diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-12 11:20:58 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-02-12 11:20:58 +0000 |
| commit | bd1e31d0e3f20e82778306bd27e0b0f8cd475757 (patch) | |
| tree | 81e275d60779c253f197b217cba3b965f1cdab11 /toplevel/vernacentries.ml | |
| 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 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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) |