aboutsummaryrefslogtreecommitdiff
path: root/printing
diff options
context:
space:
mode:
authorMaxime Dénès2018-01-16 13:34:46 +0100
committerMaxime Dénès2018-01-16 13:34:46 +0100
commitb0ac9d9748440badec581a3a804caec09c6df49d (patch)
tree73ff209532c950b2a83854ebc015a58cad864798 /printing
parent8ea2a8307a8d96f8275ebbd9bd4cbd1f6b0a00c6 (diff)
parent1856d60057ac9096c791d71d4282c0cdfef85913 (diff)
Merge PR #6551: Bracket with goal selector
Diffstat (limited to 'printing')
-rw-r--r--printing/ppvernac.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml
index e88284fb1c..27c46fe4e3 100644
--- a/printing/ppvernac.ml
+++ b/printing/ppvernac.ml
@@ -91,7 +91,7 @@ open Decl_kinds
let sep_end = function
| VernacBullet _
- | VernacSubproof None
+ | VernacSubproof _
| VernacEndSubproof -> str""
| _ -> str"."
@@ -1199,7 +1199,7 @@ open Decl_kinds
| VernacSubproof None ->
return (str "{")
| VernacSubproof (Some i) ->
- return (keyword "BeginSubproof" ++ spc () ++ int i)
+ return (Proof_bullet.pr_goal_selector i ++ str ":" ++ spc () ++ str "{")
| VernacEndSubproof ->
return (str "}")