diff options
| author | barras | 2005-05-28 14:51:32 +0000 |
|---|---|---|
| committer | barras | 2005-05-28 14:51:32 +0000 |
| commit | c1509321d1aba64a5546248ca23521042efbe1de (patch) | |
| tree | 694bf1be03d79319c38a81224ce1bed615d5bddd /proofs | |
| parent | 8e3b48f52bc5160f396d98021e6be4871111c91e (diff) | |
unification: evar_define checks the free variables are bound in the evar context
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7088 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/logic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index ab5b426339..74a1cf7626 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -50,9 +50,9 @@ let catchable_exception = function | Util.UserError _ | TypeError _ | RefinerError _ (* unification errors *) | PretypeError(_,(CannotUnify _|CannotGeneralize _|NoOccurrenceFound _| - CannotUnifyBindingType _)) + CannotUnifyBindingType _|NotClean _)) | Stdpp.Exc_located(_,PretypeError(_,(CannotUnify _|CannotGeneralize _| - NoOccurrenceFound _ | CannotUnifyBindingType _))) + NoOccurrenceFound _ | CannotUnifyBindingType _|NotClean _))) | Stdpp.Exc_located(_,(Util.UserError _ | TypeError _ | RefinerError _ | Nametab.GlobalizationError _ | PretypeError (_,VarNotFound _))) -> true | _ -> false |