aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/3284.v
blob: 34cd09c6f4ec7301c52656b1218dcdb007fc43ac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(* Several bugs:
- wrong env in pose_all_metas_as_evars leading to out of scope instance of evar
- check that metas posed as evars in pose_all_metas_as_evars were
  resolved was not done
*)

Axiom functional_extensionality_dep :
  forall {A : Type} {B : A -> Type} (f g : forall x : A, B x),
    (forall x : A, f x = g x) -> f = g.

Goal forall A B C (f g : forall (x : A) (y : B x), C x y), forall x:A, (forall x y, f x y = g x y) -> True.
Proof.
  intros A B C f g x H.
  Fail apply @functional_extensionality_dep in H.
  Fail apply functional_extensionality_dep in H.
  eapply functional_extensionality_dep in H.
Abort.

Goal forall A B C (f g : forall (x : A) (y : B x), C x y), forall x:A, (forall x y, f x y = g x y) -> True.
Proof.
  intros A B C f g x H.
  specialize (H x).
  apply functional_extensionality_dep in H.