diff options
| -rw-r--r-- | proofs/refiner.mli | 3 | ||||
| -rw-r--r-- | proofs/tacmach.ml | 1 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 1 | ||||
| -rw-r--r-- | tactics/tacticals.ml | 1 | ||||
| -rw-r--r-- | tactics/tacticals.mli | 1 | ||||
| -rw-r--r-- | tactics/tactics.mli | 1 |
6 files changed, 8 insertions, 0 deletions
diff --git a/proofs/refiner.mli b/proofs/refiner.mli index f35949580..31dc12851 100644 --- a/proofs/refiner.mli +++ b/proofs/refiner.mli @@ -63,6 +63,9 @@ val tclTHENS : tactic -> tactic list -> tactic subgoals is strictly less than [n] *) val tclTHENST : tactic -> tactic list -> tactic -> tactic +(* Same as [tclTHENS] but completes with [tac3 i] *) +val tclTHENSi : tactic -> tactic list -> (int -> tactic) -> tactic + (* Same as tclTHENST but completes with [Idtac] *) val tclTHENSI : tactic -> tactic list -> tactic diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index ae0469a50..5ba5e0f96 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -206,6 +206,7 @@ let tclTHENLIST = tclTHENLIST let tclTHEN_i = tclTHEN_i let tclTHENL = tclTHENL let tclTHENS = tclTHENS +let tclTHENSi = tclTHENSi let tclTHENST = tclTHENST let tclTHENSI = tclTHENSI let tclREPEAT = tclREPEAT diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index e6cfff531..456398fc5 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -126,6 +126,7 @@ val tclTHENLIST : tactic list -> tactic val tclTHEN_i : tactic -> (int -> tactic) -> tactic val tclTHENL : tactic -> tactic -> tactic val tclTHENS : tactic -> tactic list -> tactic +val tclTHENSi : tactic -> tactic list -> (int -> tactic) -> tactic val tclTHENST : tactic -> tactic list -> tactic -> tactic val tclTHENSI : tactic -> tactic list -> tactic val tclREPEAT : tactic -> tactic diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index c1edbafaf..bef40065f 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -27,6 +27,7 @@ let tclTHEN = Tacmach.tclTHEN let tclTHEN_i = Tacmach.tclTHEN_i let tclTHENL = Tacmach.tclTHENL let tclTHENS = Tacmach.tclTHENS +let tclTHENSi = Tacmach.tclTHENSi let tclREPEAT = Tacmach.tclREPEAT let tclFIRST = Tacmach.tclFIRST let tclSOLVE = Tacmach.tclSOLVE diff --git a/tactics/tacticals.mli b/tactics/tacticals.mli index 256b007fc..e13c4758c 100644 --- a/tactics/tacticals.mli +++ b/tactics/tacticals.mli @@ -21,6 +21,7 @@ val tclTHEN : tactic -> tactic -> tactic val tclTHEN_i : tactic -> (int -> tactic) -> tactic val tclTHENL : tactic -> tactic -> tactic val tclTHENS : tactic -> tactic list -> tactic +val tclTHENSi : tactic -> tactic list -> (int -> tactic) -> tactic val tclREPEAT : tactic -> tactic val tclFIRST : tactic list -> tactic val tclTRY : tactic -> tactic diff --git a/tactics/tactics.mli b/tactics/tactics.mli index 3d5cf9bad..0644bc972 100644 --- a/tactics/tactics.mli +++ b/tactics/tactics.mli @@ -77,6 +77,7 @@ val dyn_intros_using : tactic_arg list -> tactic i*) val intros_until : identifier -> tactic +val intros_until_n : int -> tactic val intros_until_n_wored : int -> tactic val dyn_intros_until : tactic_arg list -> tactic |