diff options
Diffstat (limited to 'toplevel/classes.ml')
| -rw-r--r-- | toplevel/classes.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index bac85345ba..1d22c3e57d 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -281,6 +281,7 @@ let new_class id par ar sup props = let subs = List.map (fun ((loc, id), b, _) -> b) props in (* Instantiate evars and check all are resolved *) let isevars,_ = Evarconv.consider_remaining_unif_problems env_props !isevars in + let isevars = Typeclasses.resolve_typeclasses env_props isevars in let sigma = Evd.evars_of isevars in let ctx_params = Evarutil.nf_named_context_evar sigma ctx_params in let ctx_props = Evarutil.nf_named_context_evar sigma ctx_props in |