blob: 11124cddd789379255b4e47011a862aabb5250e7 (
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 (fun x => match x return _ with mkT n => fun g => f (g _) end).
trivial.
Qed.
|
