aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/bug_6534.v
blob: 8e3c2bb1a1e194d90e8e52af8065d508bd739bae (plain)
1
2
3
4
5
6
7
8
Goal forall x : nat, x = x.
Proof.
intros x.
refine ((fun x x => _ tt) tt tt).
let t := match goal with [ |- ?P ] => P end in
let _ := type of t in
idtac.
Abort.