test-suite/bugs/closed/bug_12365.v


1
2
3
4
5
6
7
8

Parameter a b : nat.
Parameter p : a = b.

Goal exists (_ : True) (_ : exists x, x = b), True.
Proof.
  exists I, (ex_intro _ a p).
  exact I.
Qed.