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 /translate | |
| 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 'translate')
| -rw-r--r-- | translate/ppvernacnew.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml index 11a247e50..a039027a2 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -1031,6 +1031,7 @@ let rec pr_vernac = function | PrintClasses -> str"Print Classes" | PrintCoercions -> str"Print Coercions" | PrintCoercionPaths (s,t) -> str"Print Coercion Paths" ++ spc() ++ pr_class_rawexpr s ++ spc() ++ pr_class_rawexpr t + | PrintCanonicalStructures -> str"Print Canonical Structures" | PrintTables -> str"Print Tables" | PrintOpaqueName qid -> str"Print Term" ++ spc() ++ pr_reference qid | PrintHintGoal -> str"Print Hint" |