This commit is contained in:
aarne
2005-09-15 15:22:00 +00:00
parent efaafffb77
commit 7df1ff9409
30 changed files with 412 additions and 55 deletions

View File

@@ -82,7 +82,9 @@ def
ImplE _ _ (ImplI _ _ b) a = b a ;
NegE _ (NegI _ b) a = b a ;
UnivE _ _ (UnivI _ _ b) a = b a ;
--- ExistE _ _ _ (ExistI _ _ a b) d = d a b ;
ExistE A B _ (ExistI A B a b) d = d a b ;
--- ExistE _ _ _ (ExistI _ _ a b) d = d a b ;
--- does not tc 13/9/2005: {a{-2-}<>a{-0-}}
--- moreover: no problem with
--- ConjEr _ _ (ConjI _ _ a _) = a ;