Step
*
of Lemma
equiv-fun-cubical-id-equiv
∀[G,A:Top].  (equiv-fun(IdEquiv(G;A)) ~ cubical-id-fun(G))
BY
{ (Intros
   THEN RepUR ``equiv-fun cubical-id-equiv cubical-id-fun cubical-lam`` 0
   THEN RepUR ``cubical-id-is-equiv equiv-witness cubical-lambda cubical-pair cubical-fst`` 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[G,A:Top].    (equiv-fun(IdEquiv(G;A))  \msim{}  cubical-id-fun(G))
By
Latex:
(Intros
  THEN  RepUR  ``equiv-fun  cubical-id-equiv  cubical-id-fun  cubical-lam``  0
  THEN  RepUR  ``cubical-id-is-equiv  equiv-witness  cubical-lambda  cubical-pair  cubical-fst``  0
  THEN  Auto)
Home
Index