¬unsquashed-WCP
{ (InstLemma `Escardo-Xu` [] THEN ParallelLast) }
1. unsquashed-WCP
⊢ ∀F:(ℕ ⟶ ℕ) ⟶ ℕ. ∃k:ℕ. ∀g:ℕ ⟶ ℕ. ((∀i:ℕk. ((g i) = 0 ∈ ℕ)) 
⇒ ((F (λi.0)) = (F g) ∈ ℕ))