rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

make 0 in ★₀ optional

Browse source
This commit is contained in:
rhiannon morris 2023-05-21 20:33:42 +02:00
parent 7c68cd9098
commit 3bbf0366c8
8 changed files with 56 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/nat.quox
View file

@ -37,8 +37,8 @@ def0 succ-inj : 0.(m n : ℕ) → 0.(succ m ≡ succ n : ℕ) → m ≡ n : ℕ
λ m n eq ⇒ δ 𝑖 ⇒ pred (eq @𝑖);
def0 IsSucc : 0.ℕ → ★⁰ =
λ n ⇒ caseω n return ★⁰ of { zero ⇒ False; succ _ ⇒ True };
def0 IsSucc : 0.ℕ → ★ =
λ n ⇒ caseω n return ★ of { zero ⇒ False; succ _ ⇒ True };
def isSucc? : ω.(n : ℕ) → Dec (IsSucc n) =
λ n ⇒