diff options
Diffstat (limited to 'pretyping/constr_matching.ml')
-rw-r--r-- | pretyping/constr_matching.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/constr_matching.ml b/pretyping/constr_matching.ml index d7b73d333..66e690714 100644 --- a/pretyping/constr_matching.ml +++ b/pretyping/constr_matching.ml @@ -165,7 +165,7 @@ let matches_core env sigma convert allow_partial_app allow_bound_rels | _, _ -> (if convert then let sigma,c' = Evd.fresh_global env sigma ref in - is_conv env sigma c' c + is_conv env sigma (EConstr.of_constr c') (EConstr.of_constr c) else false) in let rec sorec ctx env subst p t = |