blob: b0974a3fdd28ccfc108c5455845bc8c3749dacdd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(* This failed in V8.3 because descend_in_conjunctions built ill-typed terms *)
Definition interp (etyp : nat -> Type) (p: nat) := etyp p.
Record Value (etyp : nat -> Type) := Mk {
typ : nat;
value : interp etyp typ
}.
Definition some_value (etyp : nat -> Type) : (Value etyp).
Proof.
intros.
apply Mk.
|
