From bd1e31d0e3f20e82778306bd27e0b0f8cd475757 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sat, 12 Feb 2005 11:20:58 +0000 Subject: Ajout Print Canonical Structures git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6711 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/vernacentries.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'toplevel/vernacentries.ml') diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 0389dae68..f0433f560 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -894,6 +894,7 @@ let vernac_print = function | PrintCoercions -> ppnl (Prettyp.print_coercions()) | PrintCoercionPaths (cls,clt) -> ppnl (Prettyp.print_path_between (cl_of_qualid cls) (cl_of_qualid clt)) + | PrintCanonicalStructures -> ppnl (Prettyp.print_canonical_structures ()) | PrintUniverses None -> pp (Univ.pr_universes (Global.universes ())) | PrintUniverses (Some s) -> dump_universes s | PrintHint qid -> Auto.print_hint_ref (Nametab.global qid) -- cgit v1.2.3