aboutsummaryrefslogtreecommitdiff
path: root/vernac
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2018-08-28 11:28:50 +0200
committerPierre-Marie Pédrot2018-08-28 11:28:50 +0200
commitf885e8a88620351d9dc4b0969f520d13197f2184 (patch)
treee9233c855e770e256dcc4dcb9fa5bb956069471f /vernac
parent5e2eedb3f9068a87eda0d7e08c82127ddef224fb (diff)
parent7a7e39f8a0279a149c6b7c20f026cb629aa489f7 (diff)
Merge PR #8112: 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 ->