Step 
*
 of Lemma 
equipollent_functionality_wrt_equipollent
∀[A1,A2,B1,B2:Type].  (A1 ~ A2 ⇒ B1 ~ B2 ⇒ (A1 ~ B1 ⇐⇒ A2 ~ B2))
BY
 
{ (Auto THEN RelRST THEN Auto) }
 
Latex: 
Latex:
\mforall{}[A1,A2,B1,B2:Type].    (A1  \msim{}  A2  {}\mRightarrow{}  B1  \msim{}  B2  {}\mRightarrow{}  (A1  \msim{}  B1  \mLeftarrow{}{}\mRightarrow{}  A2  \msim{}  B2))
 By 
Latex:
(Auto  THEN  RelRST  THEN  Auto)
Home
Index