This commit is contained in:
aarne
2004-08-25 15:17:13 +00:00
parent 173a773334
commit 42e8522757
5 changed files with 13 additions and 4 deletions

View File

@@ -44,7 +44,7 @@ def
(LtNat one n)
(Univ Nat (\x -> Impl (Conj (LtNat one x) (Div n x)) (EqNat x n))) ;
--- data Elem = zero | succ ;
--- data Elem = zero | succ ;
fun ex1 : Text ;
def ex1 =