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 /tactics | |
| 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 'tactics')
| -rw-r--r-- | tactics/tacticals.ml | 1 | ||||
| -rw-r--r-- | tactics/tacticals.mli | 1 | ||||
| -rw-r--r-- | tactics/tactics.mli | 1 |
3 files changed, 3 insertions, 0 deletions
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 |