diff --git a/stdlib/list.quox b/stdlib/list.quox index 2bab51e..5b34ee4 100644 --- a/stdlib/list.quox +++ b/stdlib/list.quox @@ -144,6 +144,7 @@ def elimω2 : 0.(A B : ★) → 0.(P : (n : ℕ) → Vec n A → Vec n B → ★ pc x y n xs ys (IH xs ys) } +{- postulate elimP : ω.(π : NzQty) → ω.(ρₙ ρₗ : Qty) → 0.(A : ★) → 0.(P : (n : ℕ) → Vec n A → ★) → @@ -156,6 +157,7 @@ postulate elimP : = λ π ρₙ ρₗ A P ⇒ uhhhhhhhhhhhhhhhhhhh -} +-} def elimω2-uneven : 0.(A B : ★) → 0.(P : (m n : ℕ) → Vec m A → Vec n B → ★) →