diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-05-21 20:40:27 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-06-12 14:42:27 +0200 |
commit | 2af78d3cca0f941841394b224b96f86903a68b10 (patch) | |
tree | 915a23629878162399f2d26af37c282f9e73c402 /tactics | |
parent | 7e7aa7491e3743abe858c1be6b77bd9a986d4297 (diff) |
[api] Misctypes removal: multi to tactics/rewrite
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 |