diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/ppvernac.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index dc61aaa261..470f937c00 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -957,6 +957,11 @@ let rec pr_vernac = function | VernacProof (Tacexpr.TacId _) -> str "Proof" | VernacProof te -> str "Proof with" ++ spc() ++ pr_raw_tactic te + | VernacProofMode s -> str ("Proof Mode "^s) + | VernacSubproof None -> str "BeginSubproof" + | VernacSubproof (Some i) -> str "BeginSubproof " ++ pr_int i + | VernacEndSubproof -> str "EndSubproof" + and pr_extend s cl = let pr_arg a = try pr_gen (Global.env()) a |