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 → ★) →