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 /contrib/interface/xlate.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 'contrib/interface/xlate.ml')
-rw-r--r-- | contrib/interface/xlate.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml index 365c234ae..f0cdc49ae 100644 --- a/contrib/interface/xlate.ml +++ b/contrib/interface/xlate.ml @@ -1785,6 +1785,8 @@ let rec xlate_vernac = | PrintCoercions -> CT_print_coercions | PrintCoercionPaths (id1, id2) -> CT_print_path (xlate_class id1, xlate_class id2) + | PrintCanonicalStructures -> + xlate_error "TODO: Print Canonical Structures" | PrintInspect n -> CT_inspect (CT_int n) | PrintUniverses opt_s -> CT_print_universes(ctf_STRING_OPT opt_s) | PrintLocalContext -> CT_print |