diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-01 14:51:21 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-02-01 14:51:21 +0000 |
| commit | e47f66c79447fc902cc244bde9a2794cc6dc832c (patch) | |
| tree | 8d53592993df2e585945d1b5ab259f9b7e08e305 /proofs | |
| 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
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/refiner.mli | 3 | ||||
| -rw-r--r-- | proofs/tacmach.ml | 1 | ||||
| -rw-r--r-- | proofs/tacmach.mli | 1 |
3 files changed, 5 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 |