summaryrefslogtreecommitdiff
path: root/test-suite/success/ltac_plus.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/success/ltac_plus.v')
-rw-r--r--test-suite/success/ltac_plus.v12
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/ltac_plus.v b/test-suite/success/ltac_plus.v
new file mode 100644
index 00000000..8a08d646
--- /dev/null
+++ b/test-suite/success/ltac_plus.v
@@ -0,0 +1,12 @@
+(** Checks that Ltac's '+' tactical works as intended. *)
+
+Goal forall (A B C D:Prop), (A->C) -> (B->C) -> (D->C) -> B -> C.
+Proof.
+ intros A B C D h0 h1 h2 h3.
+ (* backtracking *)
+ (apply h0 + apply h1);apply h3.
+ Undo.
+ Fail ((apply h0+apply h2) || apply h1); apply h3.
+ (* interaction with || *)
+ ((apply h0+apply h1) || apply h2); apply h3.
+Qed. \ No newline at end of file