(* The tactic language *)
(* Submitted by Pierre Crégut *)
(* Checks substitution of x *)
Ltac f x := unfold x; idtac.
f plus.
reflexivity.
Qed.
(* Submitted by Pierre Crégut *)
(* Check syntactic correctness *)
Ltac F x := idtac; G x
with G y := idtac; F y.
(* Check that Match Context keeps a closure *)
Ltac U := let a := constr:(I) in
match goal with
|  |- _ => apply a
end.
U.
Qed.
(* Check that Match giving non-tactic arguments are evaluated at Let-time *)
Ltac B := let y := (match goal with
| z:_ |- _ => z
end) in
(intro H1; exact y).
intros H H0.
B.  (* y is H0 if at let-time, H1 otherwise *)
Qed.
(* Checks the matching order of hypotheses *)
Ltac Y := match goal with
| x:_,y:_ |- _ => apply x
end.
Ltac Z := match goal with
| y:_,x:_ |- _ => apply x
end.

Lemma lem4 : (True -> False) -> (False -> False) -> False.