diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-18 15:14:05 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-06-18 15:14:05 +0000 |
| commit | aecc008e57ca056552c8bbb156d2b45b70575c1d (patch) | |
| tree | ed6fd12bdd314886cceefd969afb116235af2524 /toplevel/classes.ml | |
| parent | d0a70257ff4261e4ac1738c3de6880d69e393eb9 (diff) | |
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
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 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 |