summaryrefslogtreecommitdiff
path: root/test-suite/output/InvalidDisjunctiveIntro.v
blob: 4febdf034490697ed3cd764219bf520ddb4073fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Theorem test (A:Prop) : A \/ A -> A.
  Fail intros H; destruct H as H.
  (* Cannot coerce to a disjunctive/conjunctive pattern. *)
  Fail intro H; destruct H as H.
  (* Disjunctive/conjunctive introduction pattern expected. *)
  Fail let H := fresh in intro H; destruct H as H.
  (* Cannot coerce to a disjunctive/conjunctive pattern. *)
  Fail let H := fresh in intros H; destruct H as H.
  (* Cannot coerce to a disjunctive/conjunctive pattern. *)
  Fail let H := idtac in intros H; destruct H as H.
  (* Ltac variable H is bound to <tactic closure> which cannot be
coerced to an introduction pattern. *)
  Fail let H := idtac in intros H; destruct H as H'.
  (* Disjunctive/conjunctive introduction pattern expected. *)
  Fail let H' := idtac in intros H; destruct H as H'.
(* Ltac variable H' is bound to <tactic closure> which cannot
be coerced to an introduction pattern. *)
Abort.