Unset Strict Universe Declaration.
Module WithoutPoly.
Unset Universe Polymorphism.
Definition foo (A : Type@{i}) (B : Type@{i}) := A -> B.
Set Printing Universes.
Definition bla := ((@foo : Set -> _ -> _) : _ -> Type -> _).
(* ((fun A : Set => foo A):Set -> Type@{Top.55} -> Type@{Top.55})
:Set -> Type@{Top.55} -> Type@{Top.55}
: Set -> Type@{Top.55} -> Type@{Top.55}
(* |= Set <= Top.55
*)
End WithoutPoly.
Module WithPoly.
Set Universe Polymorphism.
Definition foo (A : Type@{i}) (B : Type@{i}) := A -> B.
Set Printing Universes.
Fail Check ((@foo : Set -> _ -> _) : _ -> Type -> _).
End WithPoly.
¤ Dauer der Verarbeitung: 0.59 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.
|