diff options
| author | puech | 2011-07-29 14:25:10 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:25:10 +0000 |
| commit | 4eba5c485defc6f14e7e6e11e4b157011a2017fb (patch) | |
| tree | bd2ab4311c0b3d8e05156c2df43efac9ed7a5a2b /pretyping | |
| parent | a7331c608a2fb52f11ec3fc4abbae78d68f4682a (diff) | |
Evarutil: generic equality on constr replaced by eq_constr (x2)
added array_equal in Util
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14323 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarutil.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 77ea20e153..0cf1594b5f 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -677,8 +677,8 @@ let rec assoc_up_to_alias sigma aliases y yc = function else (* Last chance, we reason up to alias conversion *) match (if c == c' then cc else expand_full_opt aliases c') with - | Some cc when yc = cc -> id - | _ -> if yc = c then id else raise Not_found + | Some cc when eq_constr yc cc -> id + | _ -> if eq_constr yc c then id else raise Not_found let rec find_projectable_vars with_evars aliases sigma y subst = let yc = expand_var aliases y in @@ -983,7 +983,7 @@ let solve_evar_evar f env evd ev1 ev2 = * depend on these args). *) let solve_refl conv_algo env evd evk argsv1 argsv2 = - if argsv1 = argsv2 then evd else + if array_equal eq_constr argsv1 argsv2 then evd else let evi = Evd.find_undefined evd evk in (* Filter and restrict if needed *) let evd,evk,args = |