aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite/bugs/closed/1891.v
blob: 685811176ae01fe7d09ae7afd944215557ee46aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
(* Check evar-evar unification *)
 Inductive T (A: Set): Set := mkT: unit -> T A.

  Definition f (A: Set) (l: T A): unit := tt.

  Implicit Arguments f [A].

  Lemma L (x: T unit): (unit -> T unit) -> unit.
  Proof.
    refine (match x return _ with mkT _ n => fun g => f (g _) end).
    trivial.
  Qed.