---

Step * of Lemma compact-union

∀[T,S:Type].  (compact-type(T) ⇒ compact-type(S) ⇒ compact-type(T + S))
BY
{ (Auto THEN All (Unfold `compact-type`)⋅ THEN D 0 THEN Auto) }

1
1. [T] : Type
2. [S] : Type
3. ∀p:T ⟶ 𝔹. ((∃x:T. p x = ff) ∨ (∀x:T. p x = tt))
4. ∀p:S ⟶ 𝔹. ((∃x:S. p x = ff) ∨ (∀x:S. p x = tt))
5. p : (T + S) ⟶ 𝔹
⊢ (∃x:T + S. p x = ff) ∨ (∀x:T + S. p x = tt)

---

Latex:

---

Latex:
\mforall{}[T,S:Type].    (compact-type(T)  {}\mRightarrow{}  compact-type(S)  {}\mRightarrow{}  compact-type(T  +  S))


By

---

Latex:
(Auto  THEN  All  (Unfold  `compact-type`)\mcdot{}  THEN  D  0  THEN  Auto)

---

Home Index