From e47f66c79447fc902cc244bde9a2794cc6dc832c Mon Sep 17 00:00:00 2001 From: filliatr Date: Thu, 1 Feb 2001 14:51:21 +0000 Subject: 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 --- proofs/refiner.mli | 3 +++ proofs/tacmach.ml | 1 + proofs/tacmach.mli | 1 + 3 files changed, 5 insertions(+) (limited to 'proofs') 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 -- cgit v1.2.3