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

example stuff

Browse source
This commit is contained in:
rhiannon morris 2023-07-22 21:26:20 +02:00
parent f6b8a12fab
commit cf9bfc2159
3 changed files with 64 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
examples/nat.quox
View file

@ -4,13 +4,18 @@ load "either.quox";
namespace nat {
def dup : ℕ → [ω.ℕ] =
def dup! : (n : ℕ) → [ω. Sing ℕ n] =
λ n ⇒
case n return [ω.ℕ] of {
zero ⇒ [zero];
succ _, 1.d ⇒ case d return [ω.ℕ] of { [d] ⇒ [succ d] }
case n return n' ⇒ [ω. Sing ℕ n'] of {
zero ⇒ [(zero, [δ _ ⇒ zero])];
succ n, 1.d ⇒
appω (Sing ℕ n) (Sing ℕ (succ n))
(sing.app ℕ ℕ n (λ n ⇒ succ n)) d
};
def dup : ℕ → [ω.ℕ] =
λ n ⇒ appω (Sing ℕ n) ℕ (sing.val ℕ n) (dup! n);
def plus : ℕ → ℕ → ℕ =
λ m n ⇒
case m return ℕ of {