diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-03-30 16:12:26 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-29 20:45:05 +0200 |
| commit | 6879320384e63793ff9447d4aaddc919bac540ec (patch) | |
| tree | b3dc4506b9908da4d480e894ae5c798e75baa12f /tactics | |
| parent | 36e32a023ab262487c382e987085c7a2c1fd8781 (diff) | |
tclSELECT: SelectAll never happens
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacticals.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 5e81e2d4b..8b8d5439b 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -496,7 +496,7 @@ 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") (* Check that holes in arguments have been resolved *) |