---

Step * of Lemma compact_functionality_wrt_equipollent

∀[T,S:Type].  (T ~ S ⇒ compact-type(T) ⇒ compact-type(S))
BY
{ (InstLemma `compact_functionality_wrt_surject` []
   THEN RepeatFor 3 (ParallelLast)
   THEN Unfold `equipollent` -1
   THEN ParallelLast
   THEN D -1
   THEN Auto) }

---

Latex:

---

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


By

---

Latex:
(InstLemma  `compact\_functionality\_wrt\_surject`  []
  THEN  RepeatFor  3  (ParallelLast)
  THEN  Unfold  `equipollent`  -1
  THEN  ParallelLast
  THEN  D  -1
  THEN  Auto)

---

Home Index