aboutsummaryrefslogtreecommitdiff
path: root/vernac
diff options
context:
space:
mode:
authorThéo Zimmermann2018-07-21 20:25:27 +0200
committerThéo Zimmermann2018-08-27 20:00:00 +0200
commitd5c9c90b9760bd51136f0ccbb041f8697ad0a081 (patch)
treed64111dda6c4af12eb15aa3a0570d4b9c0c6cf19 /vernac
parentbce734bfb2a118dbb487e5b88eba524ca14d2078 (diff)
Add support for focusing on named goals using brackets.
Diffstat (limited to 'vernac')
-rw-r--r--vernac/vernacentries.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml
index 9824172315..5258ab2ea4 100644
--- a/vernac/vernacentries.ml
+++ b/vernac/vernacentries.ml
@@ -1987,8 +1987,9 @@ let vernac_subproof gln =
match gln with
| None -> Proof.focus subproof_cond () 1 p
| Some (Goal_select.SelectNth n) -> Proof.focus subproof_cond () n p
+ | Some (Goal_select.SelectId id) -> Proof.focus_id subproof_cond () id p
| _ -> user_err ~hdr:"bracket_selector"
- (str "Brackets only support the single numbered goal selector."))
+ (str "Brackets do not support multi-goal selectors."))
let vernac_end_subproof () =
Proof_global.simple_with_current_proof (fun _ p ->