diff options
| author | filliatr | 2001-02-01 14:51:21 +0000 |
|---|---|---|
| committer | filliatr | 2001-02-01 14:51:21 +0000 |
| commit | e47f66c79447fc902cc244bde9a2794cc6dc832c (patch) | |
| tree | 8d53592993df2e585945d1b5ab259f9b7e08e305 | |
| parent | 9cb3549db6a56cae14c0aec0de999b78dd2e0fce (diff) | |
application patch Cuit Alvarado : tclTHENSi et intros_until_n exportés
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1308 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 f359495805..31dc12851e 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 ae0469a504..5ba5e0f962 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 e6cfff5315..456398fc52 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 c1edbafafd..bef40065f6 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 256b007fcc..e13c4758cd 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 3d5cf9bad0..0644bc972a 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 |