diff options
| author | msozeau | 2012-03-14 09:52:41 +0000 |
|---|---|---|
| committer | msozeau | 2012-03-14 09:52:41 +0000 |
| commit | 2053e46c8d6a4da32b4155d346d1b04da3686d06 (patch) | |
| tree | 13113d33071207f1c0133416374b0f8b72e21352 /toplevel/classes.ml | |
| parent | 1b3efc6dc25be1bfde5fb7d2d39cc5c35e44a4d8 (diff) | |
Everything compiles again.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15034 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 b513f2e2e8..2f1b7138bd 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -171,6 +171,7 @@ let new_instance ?(abstract=false) ?(global=false) ctx (instid, bk, cl) props in let env' = push_rel_context ctx env in evars := Evarutil.nf_evar_map !evars; + evars := mark_resolvables !evars; evars := resolve_typeclasses env !evars; let sigma = !evars in let subst = List.map (Evarutil.nf_evar sigma) subst in |