blob: 9a60afe5f6e847c3a37c79259a86a73a84fa1343 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(* This used to refer to b instead of z sometimes between 8.4 and 8.5beta3 *)
Goal True.
Fail let T := constr:((fun a b : nat => a+b) 1 1) in
lazymatch T with
| (fun x z => ?y) 1 1
=> pose ((fun x _ => y) 1 1)
end.
Abort.
(* This should not raise a warning (see #4317) *)
Goal True.
assert (H:= eq_refl ((fun x => x) 1)).
let HT := type of H in
lazymatch goal with
| H1 : HT |- _ => idtac "matched"
end.
Abort.
|
