---

Step * 1 1 1 of Lemma product_functionality_wrt_equipollent_right


1. [A] : Type
2. [B] : Type
3. [C] : Type
4. f : A ⟶ B@i
5. Surj(A;B;f)@i
6. ∀a1,a2:A.  (((f a1) = (f a2) ∈ B) ⇒ (a1 = a2 ∈ A))@i
⊢ ∀a1,a2:C × A.  ((let x,y = a1 in <x, f y> = let x,y = a2 in <x, f y> ∈ (C × B)) ⇒ (a1 = a2 ∈ (C × A)))
BY
{ RepeatFor 2 (((D 0 THENA Auto) THEN D -1 THEN Reduce 0)) }

1
1. [A] : Type
2. [B] : Type
3. [C] : Type
4. f : A ⟶ B@i
5. Surj(A;B;f)@i
6. ∀a1,a2:A.  (((f a1) = (f a2) ∈ B) ⇒ (a1 = a2 ∈ A))@i
7. a2 : C@i
8. a3 : A@i
9. a4 : C@i
10. a5 : A@i
⊢ (<a2, f a3> = <a4, f a5> ∈ (C × B)) ⇒ (<a2, a3> = <a4, a5> ∈ (C × A))

---

Latex:

---

Latex:

1.  [A]  :  Type
2.  [B]  :  Type
3.  [C]  :  Type
4.  f  :  A  {}\mrightarrow{}  B@i
5.  Surj(A;B;f)@i
6.  \mforall{}a1,a2:A.    (((f  a1)  =  (f  a2))  {}\mRightarrow{}  (a1  =  a2))@i
\mvdash{}  \mforall{}a1,a2:C  \mtimes{}  A.    ((let  x,y  =  a1  in  <x,  f  y>  =  let  x,y  =  a2  in  <x,  f  y>)  {}\mRightarrow{}  (a1  =  a2))


By

---

Latex:
RepeatFor  2  (((D  0  THENA  Auto)  THEN  D  -1  THEN  Reduce  0))

---

Home Index