diff options
| author | coq | 2005-11-08 11:16:57 +0000 |
|---|---|---|
| committer | coq | 2005-11-08 11:16:57 +0000 |
| commit | 6bc52e93cbc0e8c50e67a7436187491306ce0ca7 (patch) | |
| tree | 4de0ea4d3e43893c9f646de5dd6659e25bfb8459 /translate | |
| parent | 7f8ea30bed07ca5340910fbb7df2b47dbc3cd7e0 (diff) | |
- debugging og "Show Intros": no line breaking + fresh ids
- added the command "Show Match t" which prints a typical
"match...with" for type t.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7532 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 af1f66c739..e5d7d75bd9 100644 --- a/translate/ppvernacnew.ml +++ b/translate/ppvernacnew.ml @@ -492,6 +492,7 @@ let rec pr_vernac = function | ShowTree -> str"Show Tree" | ShowProofNames -> str"Show Conjectures" | ShowIntros b -> str"Show " ++ (if b then str"Intros" else str"Intro") + | ShowMatch id -> str"Show Match " ++ pr_lident id | ExplainProof l -> str"Explain Proof" ++ spc() ++ prlist_with_sep sep int l | ExplainTree l -> str"Explain Proof Tree" ++ spc() ++ prlist_with_sep sep int l in pr_showable s |