diff options
| author | msozeau | 2011-04-13 14:28:35 +0000 |
|---|---|---|
| committer | msozeau | 2011-04-13 14:28:35 +0000 |
| commit | d51c733cb7a3034921fc63a07588e5f0d1e98525 (patch) | |
| tree | 80e53c7a10e2757649bcbe2ee62aa639ff36e4b9 /pretyping/typeclasses.ml | |
| parent | 9369925f8edebf18a7d9cc9516521f193117f3f8 (diff) | |
- Make typeclass transparency information directly available
- Fix pretyping to consider remaining unif problems with the
right transparency information.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13996 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/typeclasses.ml')
| -rw-r--r-- | pretyping/typeclasses.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index c8a99a315a..5447c21458 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -37,6 +37,10 @@ let register_set_typeclass_transparency = (:=) set_typeclass_transparency_ref let set_typeclass_transparency gr local c = !set_typeclass_transparency_ref gr local c +let classes_transparent_state_ref = ref (fun () -> assert false) +let register_classes_transparent_state = (:=) classes_transparent_state_ref +let classes_transparent_state () = !classes_transparent_state_ref () + type rels = constr list (* This module defines type-classes *) |