diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-13 23:22:43 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-13 23:22:43 +0000 |
| commit | c0fca6e10a2a1796035fdc2b6b2e344fecbe1233 (patch) | |
| tree | aea4e4a864a264e6c24f6705ca1244e840e6dc15 /translate/ppvernacnew.ml | |
| parent | 0258ca6f2329c49db0e53817e4c6f876331605b2 (diff) | |
Hack pour ajouter Proof apres Correctness
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4266 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate/ppvernacnew.ml')
| -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 8935b36b7..c0d57c5b6 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -1050,6 +1050,7 @@ and pr_extend s cl = | Egrammar.TacTerm s -> (strm ++ spc() ++ str s, args)) (str hd,cl) rl in hov 1 pp + ++ (if s = "Correctness" then sep_end () ++ fnl() ++ str "Proof" else mt()) with Not_found -> hov 1 (str ("TODO("^s) ++ prlist_with_sep sep pr_arg cl ++ str ")") |