Finished new check pattern

This commit is contained in:
Martin Fredin 2023-03-29 11:12:33 +02:00
parent 76b1c55065
commit 52db1943bb
2 changed files with 42 additions and 70 deletions

View file

@ -3,7 +3,7 @@ data forall a. List (a) where {
Cons : a -> List (a) -> List (a)
};
length : List (Int) -> Int;
length : forall c. List (List (c)) -> Int;
length = \list. case list of {
Cons x xs => 1 + length xs;
-- Nil => 0;