blob: 1aed53c6ed8bc98a6cda8e7a882eb3cb11591109 (
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.
Fail apply Mk. (* Check that it does not raise an anomaly *)
Abort.
|
