diff options
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/equality.ml | 6 | ||||
-rw-r--r-- | tactics/equality.mli | 6 |
2 files changed, 12 insertions, 0 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index d7e697aed..c91758787 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -546,6 +546,12 @@ let apply_special_clear_request clear_flag f = e when catchable_exception e -> tclIDTAC end +type multi = + | Precisely of int + | UpTo of int + | RepeatStar + | RepeatPlus + let general_multi_rewrite with_evars l cl tac = let do1 l2r f = Proofview.Goal.enter begin fun gl -> diff --git a/tactics/equality.mli b/tactics/equality.mli index ccf454c3e..9395cf4a8 100644 --- a/tactics/equality.mli +++ b/tactics/equality.mli @@ -61,6 +61,12 @@ val general_rewrite_in : val general_rewrite_clause : orientation -> evars_flag -> ?tac:(unit Proofview.tactic * conditions) -> constr with_bindings -> clause -> unit Proofview.tactic +type multi = + | Precisely of int + | UpTo of int + | RepeatStar + | RepeatPlus + val general_multi_rewrite : evars_flag -> (bool * multi * clear_flag * delayed_open_constr_with_bindings) list -> clause -> (unit Proofview.tactic * conditions) option -> unit Proofview.tactic |