diff options
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/tacexpr.mli | 7 | ||||
| -rw-r--r-- | intf/vernacexpr.mli | 2 |
2 files changed, 8 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 029ee8a480..8bae8fcb63 100644 --- a/intf/vernacexpr.mli +++ b/intf/vernacexpr.mli @@ -27,7 +27,7 @@ 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 |