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

comment out an unfinished definition lmao

Browse source
This commit is contained in:
rhiannon morris 2023-12-04 22:49:32 +01:00
parent b1699ce022
commit 415a823dec
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
examples/nat.quox
View file

@ -149,6 +149,8 @@ def0 times-zero : (m : ℕ) → 0 ≡ timesω m 0 : ℕ =
succ m', ih ⇒ ih succ m', ih ⇒ ih
}; };
{-
-- unfinished
def0 times-succ : (m n : ℕ) → plus m (timesω m n) ≡ timesω m (succ n) : ℕ = def0 times-succ : (m n : ℕ) → plus m (timesω m n) ≡ timesω m (succ n) : ℕ =
λ m n ⇒ λ m n ⇒
case m case m
@ -158,5 +160,6 @@ def0 times-succ : (m n : ℕ) → plus m (timesω m n) ≡ timesω m (succ n) :
succ m', ih ⇒ succ m', ih ⇒
δ 𝑖 ⇒ plus (succ n) (ih @𝑖) δ 𝑖 ⇒ plus (succ n) (ih @𝑖)
}; };
-}
} }