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

make p,q in coe/comp optional and default to @0 @1

Browse source
This commit is contained in:
rhiannon morris 2023-05-15 19:57:10 +02:00
parent 7b93a913c7
commit d631b86be3
7 changed files with 73 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/nat.quox
View file

@ -51,7 +51,7 @@ def zero-not-succ : 0.(m : ℕ) → Not (zero ≡ succ m : ℕ) =
λ m eq ⇒ coe [𝑖 ⇒ IsSucc (eq @𝑖)] @1 @0 'true;
def succ-not-zero : 0.(m : ℕ) → Not (succ m ≡ zero : ℕ) =
λ m eq ⇒ coe [𝑖 ⇒ IsSucc (eq @𝑖)] @0 @1 'true;
λ m eq ⇒ coe [𝑖 ⇒ IsSucc (eq @𝑖)] 'true;
def0 not-succ-self : 0.(m : ℕ) → Not (m ≡ succ m : ℕ) =