10 lines
214 B
Agda
10 lines
214 B
Agda
module Trinitarianism.Quest1 where
|
||
|
||
open import Cubical.Core.Everything
|
||
open import Trinitarianism.Quest0Solutions
|
||
|
||
isEven : ℕ → Type u
|
||
isEven zero = ⊤
|
||
isEven (suc zero) = ⊥
|
||
isEven (suc (suc n)) = isEven n
|