---

Step * of Lemma equipollent_functionality_wrt_ext-eq

∀[A1,A2,B1,B2:Type].  (A1 ~ B1 ⇐⇒ A2 ~ B2) supposing (B1 ≡ B2 and A1 ≡ A2)
BY
{ (Auto THEN RepeatFor 2 ((FLemma `equipollent_weakening_ext-eq` [-3] THENA Auto)) THEN RelRST THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A1,A2,B1,B2:Type].    (A1  \msim{}  B1  \mLeftarrow{}{}\mRightarrow{}  A2  \msim{}  B2)  supposing  (B1  \mequiv{}  B2  and  A1  \mequiv{}  A2)


By

---

Latex:
(Auto
  THEN  RepeatFor  2  ((FLemma  `equipollent\_weakening\_ext-eq`  [-3]  THENA  Auto))
  THEN  RelRST
  THEN  Auto)

---

Home Index