work on checking equations

This commit is contained in:
aarne committed 2004-10-26 11:24:32 +00:00
1 parent 24ba5b3b82
commit 2b9e31455d
5 files changed
+15 -7

No files matched your search

+1 -1
View File
@@ -81,7 +81,7 @@ 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 _ _ _ (ExistI A B a b) d = d a b ;
-- Hypo and Pron are identities
Hypo _ a = a ;