Cleaned up Trinitarianism. Added Trinitarianism.Quest0Solutions.agda.

Trinitarianism/Quest0.agda

@@ -1,7 +1,8 @@
 module Trinitarianism.Quest0 where
 open import Trinitarianism.Quest0Preamble
 
-postulate
+private
+  postulate
     u : Level
 
 data ⊤ : Type u where

Trinitarianism/Quest0Solutions.agda

@@ -0,0 +1,30 @@
+module Trinitarianism.Quest0Solutions where
+open import Trinitarianism.Quest0Preamble
+
+private
+  postulate
+    u : Level
+
+data ⊤ : Type u where
+  trivial : ⊤
+
+TrueToTrue : ⊤ → ⊤
+TrueToTrue = λ x → x
+
+TrueToTrue' : ⊤ → ⊤
+TrueToTrue' x = x
+
+TrueToTrue'' : ⊤ → ⊤
+TrueToTrue'' trivial = trivial
+
+TrueToTrue''' : ⊤ → ⊤
+TrueToTrue''' x = trivial
+
+data ⊥ : Type u where
+
+explosion : ⊥ → ⊤
+explosion x = {!!}
+
+data ℕ : Type u where
+  zero : ℕ
+  suc : ℕ → ℕ

Trinitarianism/bin/AsProps/Quest0Solutions.agda

@@ -1,10 +1,14 @@
-module Trinitarianism.AsProps.Quest0Solutions where
-open import Trinitarianism.AsProps.Quest0Preamble
+module Trinitarianism.Quest0Solutions where
+open import Trinitarianism.Quest0Preamble
 
-data ⊤ : Prop where
+private
+  postulate
+    u : Level
+
+data ⊤ : Type u where
   trivial : ⊤
 
-data ⊥ : Prop where
+data ⊥ : Type u where
 
 TrueToTrue : ⊤ → ⊤
 TrueToTrue = λ x → x
@@ -18,7 +22,7 @@ TrueToTrue'' trivial = trivial
 TrueToTrue''' : ⊤ → ⊤
 TrueToTrue''' x = trivial
 
-isZero : ℕ → Prop
+isZero : ℕ → Type u
 isZero zero = ⊤
 isZero (suc n) = ⊥
 
@@ -28,7 +32,7 @@ ExistsZero = zero , trivial
 AllZero→⊥ : ((x : ℕ) → isZero x) → ⊥
 AllZero→⊥ h = h 1
 
-data _∨_ (P Q : Prop) : Prop where
+data _∨_ (P Q : Type u) : Type u where
   left : P → P ∨ Q
   right : Q → P ∨ Q