(* -*- coq-prog-args: ("-allow-sprop"); -*- *)
Set Universe Polymorphism.
Inductive False : SProp :=.
Axiom ℙ@{} : SProp.
Definition TYPE@{i} := ℙ -> Type@{i}.
Definition PROP@{} := ℙ -> SProp.
Definition El@{i} (A : TYPE@{i}) := forall p, A p.
Definition sEl@{} (A : PROP@{}) : SProp := forall p, A p.
Definition SPropᶠ@{} := fun (p : ℙ) => SProp.
Definition sProdᶠ@{i}
(A : TYPE@{i})
(B : forall (p : ℙ), El A -> SProp) : PROP := fun (p : ℙ) => forall x : El A, B p x.
Definition Falseᶠ : El SPropᶠ := fun p => False.
Definition EMᶠ : sEl (sProdᶠ SPropᶠ (fun p A => ((sProdᶠ A (fun p _ => Falseᶠ p))) p)).
Proof.
Fail Admitted.
Abort.
¤ Dauer der Verarbeitung: 0.13 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.
|