diff options
| author | Enrico Tassi | 2016-06-16 15:24:56 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2016-06-16 16:02:48 +0200 |
| commit | 6aac2c78ad5dec79c6ed16a50accde57c37398a9 (patch) | |
| tree | 53968b5035fd9b70d4431130cf12621f314cb187 /intf | |
| parent | a452e436af72ccc1b8342ac6b666f0ff202cc20a (diff) | |
| parent | 791f3254cba602672b834ec3484d308db074b684 (diff) | |
Merge 'pr/191' into trunk
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/tacexpr.mli | 7 | ||||
| -rw-r--r-- | intf/vernacexpr.mli | 3 |
2 files changed, 9 insertions, 1 deletions
diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli index 379dd59d39..c15ef0dd44 100644 --- a/intf/tacexpr.mli +++ b/intf/tacexpr.mli @@ -34,6 +34,12 @@ type clear_flag = bool option (* true = clear hyp, false = keep hyp, None = use type debug = Debug | Info | Off (* for trivial / auto / eauto ... *) +type goal_selector = + | SelectNth of int + | SelectList of (int * int) list + | SelectId of Id.t + | SelectAll + type 'a core_induction_arg = | ElimOnConstr of 'a | ElimOnIdent of Id.t located @@ -269,6 +275,7 @@ and 'a gen_tactic_expr = ('p,'a gen_tactic_expr) match_rule list | TacFun of 'a gen_tactic_fun_ast | TacArg of 'a gen_tactic_arg located + | TacSelect of goal_selector * 'a gen_tactic_expr (* For ML extensions *) | TacML of Loc.t * ml_tactic_entry * 'a gen_tactic_arg list (* For syntax extensions *) diff --git a/intf/vernacexpr.mli b/intf/vernacexpr.mli index cfa30a4d54..faa5ba2513 100644 --- a/intf/vernacexpr.mli +++ b/intf/vernacexpr.mli @@ -27,8 +27,9 @@ type class_rawexpr = FunClass | SortClass | RefClass of reference or_by_notation to print a goal that is out of focus (or already solved) it doesn't make sense to apply a tactic to it. Hence it the types may look very similar, they do not seem to mean the same thing. *) -type goal_selector = +type goal_selector = Tacexpr.goal_selector = | SelectNth of int + | SelectList of (int * int) list | SelectId of Id.t | SelectAll |