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

crude but effective stratification

Browse source
This commit is contained in:
rhiannon morris 2023-05-21 20:09:34 +02:00
parent e4a20cc632
commit 42aa07c9c8
31 changed files with 817 additions and 582 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 ⇒