diff options
| author | herbelin | 2008-03-05 19:55:36 +0000 |
|---|---|---|
| committer | herbelin | 2008-03-05 19:55:36 +0000 |
| commit | 6911995ddd9d3b54d1c627b0000b65dad02cfce1 (patch) | |
| tree | bf18b8fdeb605b0e97e8a33054fea066c2093258 /pretyping | |
| parent | 49623ae29421c2ccd16f82d71b65cfacd0877fec (diff) | |
Correction d'une typo restant du commit 10557 et cause d'échec de contribs
telles que Godel
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10622 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 95cef9745b..890f0bd787 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -230,7 +230,8 @@ let unify_0_with_initial_metas metas is_subterm env sigma cv_pb flags m n = in if (not(occur_meta m)) && - (if flags.modulo_conv then is_fconv (conv_pb_of cv_pb) env sigma m n + (if flags.modulo_conv_on_closed_terms + then is_fconv (conv_pb_of cv_pb) env sigma m n else eq_constr m n) then (metas,[]) |