constraint bug fix

This commit is contained in:
aarne
2004-10-26 11:53:22 +00:00
parent b73e3b2b56
commit 25492ab0b9
2 changed files with 4 additions and 4 deletions

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 a b) d = d a b ;
ExistE _ _ _ (ExistI _ _ a b) d = d a b ;
-- Hypo and Pron are identities
Hypo _ a = a ;