31 lines
498 B
Agda
31 lines
498 B
Agda
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 : ℕ → ℕ
|