aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/1773.v
blob: 211af89b70f8255994a8d9ae72be6d04c4624254 (plain)
1
2
3
4
5
6
7
8
9
(* An occur-check test was done too early *)

Goal forall B C : nat -> nat -> Prop, forall k,
  (exists A, (forall k', C A k' -> B A k') -> B A k).
Proof.
  intros B C k.
  econstructor.
  intros X.
  apply X. (* used to fail here *)