diff options
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 |