diff options
author | 2007-10-03 12:31:45 +0000 | |
---|---|---|
committer | 2007-10-03 12:31:45 +0000 | |
commit | 1bead2a1ef23f2a281613093d7861815279e336d (patch) | |
tree | 9eaf1b967dbd270e8525094ae3bed20e1cf260ee /dev | |
parent | 056af27f37f8fb9a00548c88047a86061a624e8b (diff) |
Ajout de eelim, ecase, edestruct et einduction (expérimental).
Ajout de l'option with à (e)destruct et (e)induction.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10169 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'dev')
-rw-r--r-- | dev/db | 1 | ||||
-rw-r--r-- | dev/include | 1 | ||||
-rw-r--r-- | dev/top_printers.ml | 1 |
3 files changed, 3 insertions, 0 deletions
@@ -27,6 +27,7 @@ install_printer Top_printers.ppenv install_printer Top_printers.ppgoal install_printer Top_printers.ppsigmagoal install_printer Top_printers.pproof +install_printer Top_printers.ppmetas install_printer Top_printers.ppevd install_printer Top_printers.ppevm install_printer Top_printers.ppclenv diff --git a/dev/include b/dev/include index 42d2a0171..1fc82be83 100644 --- a/dev/include +++ b/dev/include @@ -17,6 +17,7 @@ #install_printer (* goal *) ppgoal;; #install_printer (* sigma goal *) ppsigmagoal;; #install_printer (* proof *) pproof;; +#install_printer (* metaset.t *) ppmeta;; #install_printer (* evar_map *) ppevm;; #install_printer (* evar_defs *) ppevd;; #install_printer (* clenv *) ppclenv;; diff --git a/dev/top_printers.ml b/dev/top_printers.ml index f2b9c996b..cd0fa0c0d 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -86,6 +86,7 @@ let ppj j = pp (genppj pr_ljudge j) let prsubst s = pp (Mod_subst.debug_pr_subst s) (* proof printers *) +let ppmetas metas = pp(pr_metaset metas) let ppevm evd = pp(pr_evar_map evd) let ppevd evd = pp(pr_evar_defs evd) let ppclenv clenv = pp(pr_clenv clenv) |