diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:26:18 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:26:18 +0000 |
| commit | fb1b438ca1cdb206a1ad35d285e6fa8ea615d047 (patch) | |
| tree | d988537f573130124c677e11c0347d4f9586e752 /plugins/firstorder/unify.ml | |
| parent | 95baa2c64e032be61eb0a2f319bdc2efdb3b9183 (diff) | |
Unify: generic equality on constr replaced by eq_constr
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14334 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/firstorder/unify.ml')
| -rw-r--r-- | plugins/firstorder/unify.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/plugins/firstorder/unify.ml b/plugins/firstorder/unify.ml index 6c82a9685..299a0054a 100644 --- a/plugins/firstorder/unify.ml +++ b/plugins/firstorder/unify.ml @@ -89,9 +89,8 @@ let unif t1 t2= let value i t= let add x y= if x<0 then y else if y<0 then x else x+y in - let tref=mkMeta i in let rec vaux term= - if term=tref then 0 else + if isMeta term && destMeta term = i then 0 else let f v t=add v (vaux t) in let vr=fold_constr f (-1) term in if vr<0 then -1 else vr+1 in |