comment out a partial definition in list.quox
This commit is contained in:
parent
519cc4779a
commit
7b3ccfc45a
1 changed files with 2 additions and 0 deletions
|
@ -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 → ★) →
|
||||
|
|
Loading…
Reference in a new issue