---

Step * 1 1 of Lemma assert_of_eq_pair


1. s : DSet
2. t : DSet
3. a1 : |s|
4. a2 : |t|
5. b1 : |s|
6. b2 : |t|
⊢ uiff(((fst(<a1, a2>)) = (fst(<b1, b2>)) ∈ |s|) ∧ ((snd(<a1, a2>)) = (snd(<b1, b2>)) ∈ |t|);<a1, a2> = <b1, b2> ∈ (|s| \000C× |t|))
BY
{ AbReduce 0 THEN ((GenRepD) THENA Auto) }

1
1. s : DSet
2. t : DSet
3. a1 : |s|
4. a2 : |t|
5. b1 : |s|
6. b2 : |t|
7. a1 = b1 ∈ |s|
8. a2 = b2 ∈ |t|
⊢ <a1, a2> = <b1, b2> ∈ (|s| × |t|)

2
1. s : DSet
2. t : DSet
3. a1 : |s|
4. a2 : |t|
5. b1 : |s|
6. b2 : |t|
7. <a1, a2> = <b1, b2> ∈ (|s| × |t|)
⊢ a1 = b1 ∈ |s|

3
1. s : DSet
2. t : DSet
3. a1 : |s|
4. a2 : |t|
5. b1 : |s|
6. b2 : |t|
7. <a1, a2> = <b1, b2> ∈ (|s| × |t|)
⊢ a2 = b2 ∈ |t|

---

Latex:

---

Latex:

1.  s  :  DSet
2.  t  :  DSet
3.  a1  :  |s|
4.  a2  :  |t|
5.  b1  :  |s|
6.  b2  :  |t|
\mvdash{}  uiff(((fst(<a1,  a2>))  =  (fst(<b1,  b2>)))  \mwedge{}  ((snd(<a1,  a2>))  =  (snd(<b1,  b2>)));<a1,  a2>  =  <b1,  b2>\000C)


By

---

Latex:
AbReduce  0  THEN  ((GenRepD)  THENA  Auto)

---

Home Index