---

Step * of Lemma product_functionality_wrt_equipollent_left

∀[A,B,C,D:Type].  (A ~ B ⇒ A × C ~ B × D supposing C = D ∈ Type)
BY
{ (Unfold `equipollent` 0 THEN Auto THEN ExRepD THEN ((RevHypSubst (-1) 0) THENA Auto) THEN ThinVar`D') }

1
1. [A] : Type
2. [B] : Type
3. [C] : Type
4. f : A ⟶ B
5. Bij(A;B;f)
⊢ ∃f:(A × C) ⟶ (B × C). Bij(A × C;B × C;f)

---

Latex:

---

Latex:
\mforall{}[A,B,C,D:Type].    (A  \msim{}  B  {}\mRightarrow{}  A  \mtimes{}  C  \msim{}  B  \mtimes{}  D  supposing  C  =  D)


By

---

Latex:
(Unfold  `equipollent`  0
  THEN  Auto
  THEN  ExRepD
  THEN  ((RevHypSubst  (-1)  0)  THENA  Auto)
  THEN  ThinVar`D')

---

Home Index