diff options
| author | puech | 2011-07-29 14:26:07 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:26:07 +0000 |
| commit | 574bdce32385d8c787db15e2df82dda3f838e48f (patch) | |
| tree | 408b39a0f2170cd423fe51ee59f4072af4192e30 | |
| parent | bb4982b896c7b96eef2f18ceab3d0b8e294e44d0 (diff) | |
Evarutil: generic equality on constr replaced by destructors
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14332 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evarutil.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 0cf1594b5f..2e940583c6 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -933,7 +933,8 @@ let are_canonical_instances args1 args2 env = | [] -> let rec aux2 n = n = n1 || - (args1.(n) = mkRel (n1-n) && args2.(n) = mkRel (n1-n) && aux2 (n+1)) + (isRel args1.(n) && destRel args1.(n) = n1-n && + isRel args2.(n) && destRel args2.(n) = n1-n && aux2 (n+1)) in aux2 n | _ -> false in n1 = n2 & aux 0 (named_context env) |