diff options
| author | Pierre-Marie Pédrot | 2018-04-30 09:39:56 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-04-30 09:39:56 +0200 |
| commit | c1e12fbc64c39739e4a9f7bbf92e42f1bcb6be24 (patch) | |
| tree | 3ae4ffb92eab12be9e33fad5a5ff0687c6cff540 /tactics | |
| parent | 86cfc249dc7cc95d772ed91663491ee8b37c1431 (diff) | |
| parent | d94fef210a63db4ff34251afe093041912a7cbde (diff) | |
Merge PR #6944: Strict focusing using Default Goal Selector.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacticals.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 5e81e2d4b1..82b178388e 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -496,7 +496,9 @@ module New = struct | Vernacexpr.SelectNth i -> Proofview.tclFOCUS i i | Vernacexpr.SelectList l -> Proofview.tclFOCUSLIST l | Vernacexpr.SelectId id -> Proofview.tclFOCUSID id - | Vernacexpr.SelectAll -> fun tac -> tac + | Vernacexpr.SelectAll -> anomaly ~label:"tclSELECT" Pp.(str "SelectAll not allowed here") + | Vernacexpr.SelectAlreadyFocused -> + anomaly ~label:"tclSELECT" Pp.(str "SelectAlreadyFocused not allowed here") (* Check that holes in arguments have been resolved *) |