diff options
| author | filliatr | 2000-06-21 01:15:42 +0000 |
|---|---|---|
| committer | filliatr | 2000-06-21 01:15:42 +0000 |
| commit | 5378cd45ac34551ea4d265f41b489ff386ea1a49 (patch) | |
| tree | 655fdd402e962863483cdbb40483fcf8b5ab4892 /proofs/clenv.ml | |
| parent | 18ca75a6fbaf2a1238a3a2e36f51f1e1bf1c2c68 (diff) | |
portage EAuto et Ring
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@513 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/clenv.ml')
| -rw-r--r-- | proofs/clenv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenv.ml b/proofs/clenv.ml index 2ad3f58965..e643f02a43 100644 --- a/proofs/clenv.ml +++ b/proofs/clenv.ml @@ -252,7 +252,7 @@ and w_resrec metas evars wc = | (lhs,(DOP0(Meta k) as rhs))::t -> w_resrec ((k,lhs)::metas) t wc | (DOPN(Evar evn,_) as evar,rhs)::t -> - if w_defined_const wc evar then + if w_defined_evar wc evn then let (wc',metas') = w_Unify rhs evar metas wc in w_resrec metas' t wc' else |