printing improvements, improve case eval

This commit is contained in:
2024-11-09 09:34:37 -08:00
parent 778ac056f1
commit bbd4832671
6 changed files with 67 additions and 41 deletions

View File

@@ -63,13 +63,13 @@ comp : {A : U} {B : A -> U} {C : {a : A} -> B a -> U}
-> C (g a)
comp = \f g a => f (g a)
-- compExample : Bool
-- TODO unsolved metas in dependent function composition
-- compExample : List Bool
-- compExample = comp (cons true) (cons false) nil
Nat : U
Nat = (N : U) -> (N -> N) -> N -> N
-- TODO - first underscore there, why are there two metas?
mul : Nat -> Nat -> Nat
mul = \a b N s z => a _ (b _ s) z