|
(* 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.
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
