Step
*
of Lemma
comp_product_cat_lemma
∀g,f,z,y,x,B,A:Top.
  (cat-comp(A × B) x y z f g ~ <cat-comp(A) (fst(x)) (fst(y)) (fst(z)) (fst(f)) (fst(g))
                               , cat-comp(B) (snd(x)) (snd(y)) (snd(z)) (snd(f)) (snd(g))
                               >)
BY
{ ((UnivCD THENA Auto) THEN RepUR ``cat-comp product-cat`` 0 THEN Auto) }
Latex:
Latex:
\mforall{}g,f,z,y,x,B,A:Top.
    (cat-comp(A  \mtimes{}  B)  x  y  z  f  g  \msim{}  <cat-comp(A)  (fst(x))  (fst(y))  (fst(z))  (fst(f))  (fst(g))
                                                              ,  cat-comp(B)  (snd(x))  (snd(y))  (snd(z))  (snd(f))  (snd(g))
                                                              >)
By
Latex:
((UnivCD  THENA  Auto)  THEN  RepUR  ``cat-comp  product-cat``  0  THEN  Auto)
Home
Index