diff options
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/subtac/subtac_pretyping.ml | 1 | ||||
| -rw-r--r-- | plugins/subtac/subtac_pretyping_F.ml | 3 |
2 files changed, 3 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_pretyping.ml b/plugins/subtac/subtac_pretyping.ml index f16fa1c7a6..91418e05e7 100644 --- a/plugins/subtac/subtac_pretyping.ml +++ b/plugins/subtac/subtac_pretyping.ml @@ -74,6 +74,7 @@ let interp env isevars c tycon = let evd,_ = consider_remaining_unif_problems env !isevars in (* let unevd = undefined_evars evd in *) let unevd' = Typeclasses.resolve_typeclasses ~onlyargs:true ~split:true ~fail:true env evd in + let unevd' = Typeclasses.resolve_typeclasses ~onlyargs:false ~split:true ~fail:false env unevd' in let evm = unevd' in isevars := unevd'; nf_evar evm j.uj_val, nf_evar evm j.uj_type diff --git a/plugins/subtac/subtac_pretyping_F.ml b/plugins/subtac/subtac_pretyping_F.ml index 23d8457327..8456d24a99 100644 --- a/plugins/subtac/subtac_pretyping_F.ml +++ b/plugins/subtac/subtac_pretyping_F.ml @@ -580,7 +580,8 @@ module SubtacPretyping_F (Coercion : Coercion.S) = struct evdref := fst (consider_remaining_unif_problems env !evdref); if resolve_classes then evdref := - Typeclasses.resolve_typeclasses ~onlyargs:true ~fail:false env !evdref; + Typeclasses.resolve_typeclasses ~onlyargs:false + ~split:true ~fail:fail_evar env !evdref; let c = nf_evar !evdref c' in if fail_evar then check_evars env Evd.empty !evdref c; c |