diff options
| author | herbelin | 2005-02-12 11:20:58 +0000 |
|---|---|---|
| committer | herbelin | 2005-02-12 11:20:58 +0000 |
| commit | bd1e31d0e3f20e82778306bd27e0b0f8cd475757 (patch) | |
| tree | 81e275d60779c253f197b217cba3b965f1cdab11 /pretyping | |
| parent | 21b5fa26bb25b07b38d96f0b4d3c144b923d0269 (diff) | |
Ajout Print Canonical Structures
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6711 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rwxr-xr-x | pretyping/recordops.ml | 2 | ||||
| -rwxr-xr-x | pretyping/recordops.mli | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index cc53ae7f3f..cfccdb5e68 100755 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -117,6 +117,8 @@ let subst_obj subst obj = let object_table = (ref [] : ((global_reference * global_reference) * obj_typ) list ref) +let canonical_structures () = !object_table + let cache_canonical_structure (_,(cst,lo)) = List.iter (fun (o,_ as x) -> if not (List.mem_assoc o !object_table) then diff --git a/pretyping/recordops.mli b/pretyping/recordops.mli index 128018d581..7402f74c9a 100755 --- a/pretyping/recordops.mli +++ b/pretyping/recordops.mli @@ -48,3 +48,6 @@ val inStruc : inductive * struc_typ -> obj val outStruc : obj -> inductive * struc_typ val outCanonicalStructure : obj -> constant + +val canonical_structures : unit -> + ((global_reference * global_reference) * obj_typ) list |