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

remove Tighten stuff #47

Merged
rhi merged 6 commits from notight into 🐉 2024-07-18 11:59:08 -04:00
Conversation 0 Commits 6 Files changed 20 +3
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 68c414a941 - Show all commits

3
stdlib/list.quox
View file

@ -240,6 +240,9 @@ def0 ZipWith = zip-with.Result
def zip-with-het = zip-with.zip-with-het def zip-with-het = zip-with.zip-with-het
def zip-with-hetω = zip-with.zip-with-hetω def zip-with-hetω = zip-with.zip-with-hetω
def map : 0.(A B : ★) → ω.(A → B) → (n : ℕ) → Vec n A → Vec n B =
λ A B f ⇒ elim A (λ n _ ⇒ Vec n B) 'nil (λ x _ _ ys ⇒ (f x, ys))
#[compile-scheme "(lambda% (n xs) xs)"] #[compile-scheme "(lambda% (n xs) xs)"]
def up : 0.(A : ★) → (n : ℕ) → Vec n A → Vec¹ n A = def up : 0.(A : ★) → (n : ℕ) → Vec n A → Vec¹ n A =
λ A n ⇒ λ A n ⇒