diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-07 17:18:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-06-07 17:18:52 +0000 |
| commit | 9b9ed1245225fc95374b070f5f5ed699337448fc (patch) | |
| tree | 956868838bc16e02f1827b4ba73aa5cba81a87f2 /pretyping/evarconv.ml | |
| parent | 28ff8a949debb5bf65e7494746b1a9441d6e4aaf (diff) | |
L'ordre supérieur avait quelque peu été oublié dans l'unification...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2772 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 049659b89..772eae76b 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -173,6 +173,7 @@ and evar_eqappr_x env isevars pbty (term1,l1 as appr1) (term2,l2 as appr2) = | MaybeFlexible flex1, MaybeFlexible flex2 -> let f2 () = (flex1 = flex2) + & (List.length l1 = List.length l2) & (list_for_all2eq (evar_conv_x env isevars CONV) l1 l2) and f3 () = (try conv_record env isevars |