∀n:ℕ. compact-type(ℕn)
{ (Unfold `compact-type` 0 THEN Auto) }
1. n : ℕ
2. p : ℕn ⟶ 𝔹
⊢ (∃x:ℕn. p x = ff) ∨ (∀x:ℕn. p x = tt)