test-suite/bugs/opened/1773.v


1
2
3
4
5
6
7
8
9
10

Goal forall B C : nat -> nat -> Prop, forall k, C 0 k ->
  (exists A, (forall k', C A k' -> B A k') -> B A k).
Proof.
  intros B C k H.
  econstructor.
  intros X.
  apply X.
  apply H.
Qed.