diff options
author | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-01-16 13:30:37 +0000 |
---|---|---|
committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-01-16 13:30:37 +0000 |
commit | 925e99db4166a97056e0ab3c314b452e1f2559cb (patch) | |
tree | ec7c31546cecbec706c1506b68a6e8a7703bcfed | |
parent | a353fd786f4f75f94f7a5a7f78342c5ba6d810c6 (diff) |
Correct a bug in commit 11659
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11792 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | pretyping/typeclasses.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index bf346bd18..e6b590b03 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -196,7 +196,9 @@ let subst_instance (_,subst,inst) = is_impl = fst (Mod_subst.subst_con subst inst.is_impl) } let discharge_instance (_,inst) = - { inst with is_class = Lib.discharge_global inst.is_class } + { inst with + is_class = Lib.discharge_global inst.is_class; + is_impl = Lib.discharge_con inst.is_impl} let rebuild_instance inst = match !(inst.is_global) with |