From aecc008e57ca056552c8bbb156d2b45b70575c1d Mon Sep 17 00:00:00 2001 From: msozeau Date: Wed, 18 Jun 2008 15:14:05 +0000 Subject: Fix bug in implementation of splitting of class constraints. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11141 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/classes.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'toplevel/classes.ml') diff --git a/toplevel/classes.ml b/toplevel/classes.ml index bac85345b..1d22c3e57 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 -- cgit v1.2.3