From b264811fbed75caff5deb2b6eb78a327dc134f68 Mon Sep 17 00:00:00 2001 From: soubiran Date: Tue, 12 Jan 2010 16:12:44 +0000 Subject: Added module sharing support for typeclasses and hints (pri_auto_tactic). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12655 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/typeclasses.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'pretyping/typeclasses.ml') diff --git a/pretyping/typeclasses.ml b/pretyping/typeclasses.ml index 8d987d037..94ade8c3c 100644 --- a/pretyping/typeclasses.ml +++ b/pretyping/typeclasses.ml @@ -55,8 +55,9 @@ type typeclass = { (* The method implementaions as projections. *) cl_projs : (identifier * constant option) list; } +module Gmap = Fmap.Make(RefOrdered) -type typeclasses = (global_reference, typeclass) Gmap.t +type typeclasses = typeclass Gmap.t type instance = { is_class: global_reference; @@ -68,7 +69,7 @@ type instance = { is_impl: global_reference; } -type instances = (global_reference, (global_reference, instance) Gmap.t) Gmap.t +type instances = (instance Gmap.t) Gmap.t let instance_impl is = is.is_impl -- cgit v1.2.3