diff options
| author | aspiwack | 2013-11-02 15:38:41 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:38:41 +0000 |
| commit | af63420fe7202f01b483812bc1f5ff50c5a640e2 (patch) | |
| tree | eb124c5a451cb55a3080093994b14a8960251a68 /intf | |
| parent | a9cfc4691726ac248dc7bbc43bb5ae8a7db3233f (diff) | |
Adds a tactical once.
[once t] does just as [t] but has exactly one success it [t] has at least one success.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17004 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/tacexpr.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli index fece993120..839294c0a1 100644 --- a/intf/tacexpr.mli +++ b/intf/tacexpr.mli @@ -217,6 +217,8 @@ and ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr = | TacOr of ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr * ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr + | TacOnce of + ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr | TacOrelse of ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr * ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr |