From fafd9c0fbc366185fe3bf9697524687a65e0b7c2 Mon Sep 17 00:00:00 2001
From: aspiwack
Date: Sat, 2 Nov 2013 15:38:16 +0000
Subject: Added the tactical "tac1 + tac2".

It works pretty much like "tac1 || tac2" except that it has as successes all the successes of tac1 followed by all the successes of tac2 (whereas the latter has either the successes of tac1 (if there is at least one) or those of tac2 (otherwise)).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16998 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 intf/tacexpr.mli | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'intf')

diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli
index df4ed2c41e..fece993120 100644
--- a/intf/tacexpr.mli
+++ b/intf/tacexpr.mli
@@ -214,6 +214,9 @@ and ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr =
   | TacComplete of ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr
   | TacSolve of ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr list
   | TacTry of ('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
   | TacOrelse of
       ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr *
       ('t,'p,'c,'i,'r,'n,'l) gen_tactic_expr
-- 
cgit v1.2.3