HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
GIF version

Theorem th3qlem1 3250
Description: Lemma for Exercise 44 version of Theorem 3Q of [Enderton] p. 60. The third hypothesis is the compatibility assumption.
Hypotheses
Ref Expression
th3qlem1.1 Er R
th3qlem1.2 dom R = S
th3qlem1.3 (((ySwS) ∧ (zSvS)) → ((yRwzRv) → (yFz)R(wFv)))
Assertion
Ref Expression
th3qlem1 ((A ∈ (S / R) ∧ B ∈ (S / R)) → ∃*xyz((A = [y]RB = [z]R) ∧ x = [(yFz)]R))
Distinct variable group(s):   x,y,z,w,v,F   x,R,y,z,w,v   x,S,y,z,w,v   x,A,y,z,w,v   x,B,y,z,w,v

Proof of Theorem th3qlem1
StepHypRef Expression
1 an4 388 . . . . . . . . . . . . 13 (((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R)) ↔ ((A = [y]RA = [w]R) ∧ (B = [z]RB = [v]R)))
21anbi2i 367 . . . . . . . . . . . 12 ((((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (B ∈ (S / R) ∧ B ∈ (S / R))) ∧ ((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R))) ↔ (((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (B ∈ (S / R) ∧ B ∈ (S / R))) ∧ ((A = [y]RA = [w]R) ∧ (B = [z]RB = [v]R))))
3 an4 388 . . . . . . . . . . . 12 ((((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (B ∈ (S / R) ∧ B ∈ (S / R))) ∧ ((A = [y]RA = [w]R) ∧ (B = [z]RB = [v]R))) ↔ (((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (A = [y]RA = [w]R)) ∧ ((B ∈ (S / R) ∧ B ∈ (S / R)) ∧ (B = [z]RB = [v]R))))
4 an4 388 . . . . . . . . . . . . . 14 (((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (A = [y]RA = [w]R)) ↔ ((A ∈ (S / R) ∧ A = [y]R) ∧ (A ∈ (S / R) ∧ A = [w]R)))
5 eleq1 1149 . . . . . . . . . . . . . . . 16 (A = [y]R → (A ∈ (S / R) ↔ [y]R ∈ (S / R)))
65pm5.32ri 490 . . . . . . . . . . . . . . 15 ((A ∈ (S / R) ∧ A = [y]R) ↔ ([y]R ∈ (S / R) ∧ A = [y]R))
7 eleq1 1149 . . . . . . . . . . . . . . . 16 (A = [w]R → (A ∈ (S / R) ↔ [w]R ∈ (S / R)))
87pm5.32ri 490 . . . . . . . . . . . . . . 15 ((A ∈ (S / R) ∧ A = [w]R) ↔ ([w]R ∈ (S / R) ∧ A = [w]R))
96, 8anbi12i 369 . . . . . . . . . . . . . 14 (((A ∈ (S / R) ∧ A = [y]R) ∧ (A ∈ (S / R) ∧ A = [w]R)) ↔ (([y]R ∈ (S / R) ∧ A = [y]R) ∧ ([w]R ∈ (S / R) ∧ A = [w]R)))
104, 9bitr 151 . . . . . . . . . . . . 13 (((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (A = [y]RA = [w]R)) ↔ (([y]R ∈ (S / R) ∧ A = [y]R) ∧ ([w]R ∈ (S / R) ∧ A = [w]R)))
11 an4 388 . . . . . . . . . . . . . 14 (((B ∈ (S / R) ∧ B ∈ (S / R)) ∧ (B = [z]RB = [v]R)) ↔ ((B ∈ (S / R) ∧ B = [z]R) ∧ (B ∈ (S / R) ∧ B = [v]R)))
12 eleq1 1149 . . . . . . . . . . . . . . . 16 (B = [z]R → (B ∈ (S / R) ↔ [z]R ∈ (S / R)))
1312pm5.32ri 490 . . . . . . . . . . . . . . 15 ((B ∈ (S / R) ∧ B = [z]R) ↔ ([z]R ∈ (S / R) ∧ B = [z]R))
14 eleq1 1149 . . . . . . . . . . . . . . . 16 (B = [v]R → (B ∈ (S / R) ↔ [v]R ∈ (S / R)))
1514pm5.32ri 490 . . . . . . . . . . . . . . 15 ((B ∈ (S / R) ∧ B = [v]R) ↔ ([v]R ∈ (S / R) ∧ B = [v]R))
1613, 15anbi12i 369 . . . . . . . . . . . . . 14 (((B ∈ (S / R) ∧ B = [z]R) ∧ (B ∈ (S / R) ∧ B = [v]R)) ↔ (([z]R ∈ (S / R) ∧ B = [z]R) ∧ ([v]R ∈ (S / R) ∧ B = [v]R)))
1711, 16bitr 151 . . . . . . . . . . . . 13 (((B ∈ (S / R) ∧ B ∈ (S / R)) ∧ (B = [z]RB = [v]R)) ↔ (([z]R ∈ (S / R) ∧ B = [z]R) ∧ ([v]R ∈ (S / R) ∧ B = [v]R)))
1810, 17anbi12i 369 . . . . . . . . . . . 12 ((((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (A = [y]RA = [w]R)) ∧ ((B ∈ (S / R) ∧ B ∈ (S / R)) ∧ (B = [z]RB = [v]R))) ↔ ((([y]R ∈ (S / R) ∧ A = [y]R) ∧ ([w]R ∈ (S / R) ∧ A = [w]R)) ∧ (([z]R ∈ (S / R) ∧ B = [z]R) ∧ ([v]R ∈ (S / R) ∧ B = [v]R))))
192, 3, 183bitr 155 . . . . . . . . . . 11 ((((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (B ∈ (S / R) ∧ B ∈ (S / R))) ∧ ((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R))) ↔ ((([y]R ∈ (S / R) ∧ A = [y]R) ∧ ([w]R ∈ (S / R) ∧ A = [w]R)) ∧ (([z]R ∈ (S / R) ∧ B = [z]R) ∧ ([v]R ∈ (S / R) ∧ B = [v]R))))
20 pm3.26 256 . . . . . . . . . . . . . . . . . . . . 21 ((ySwS) → yS)
21 th3qlem1.2 . . . . . . . . . . . . . . . . . . . . . 22 dom R = S
2221eleq2i 1153 . . . . . . . . . . . . . . . . . . . . 21 (y ∈ dom RyS)
2320, 22sylibr 175 . . . . . . . . . . . . . . . . . . . 20 ((ySwS) → y ∈ dom R)
24 visset 1350 . . . . . . . . . . . . . . . . . . . . 21 wV
25 th3qlem1.1 . . . . . . . . . . . . . . . . . . . . 21 Er R
2624, 25erthdm 3220 . . . . . . . . . . . . . . . . . . . 20 (y ∈ dom R → ([y]R = [w]RyRw))
2723, 26syl 12 . . . . . . . . . . . . . . . . . . 19 ((ySwS) → ([y]R = [w]RyRw))
28 pm3.26 256 . . . . . . . . . . . . . . . . . . . . 21 ((zSvS) → zS)
2921eleq2i 1153 . . . . . . . . . . . . . . . . . . . . 21 (z ∈ dom RzS)
3028, 29sylibr 175 . . . . . . . . . . . . . . . . . . . 20 ((zSvS) → z ∈ dom R)
31 visset 1350 . . . . . . . . . . . . . . . . . . . . 21 vV
3231, 25erthdm 3220 . . . . . . . . . . . . . . . . . . . 20 (z ∈ dom R → ([z]R = [v]RzRv))
3330, 32syl 12 . . . . . . . . . . . . . . . . . . 19 ((zSvS) → ([z]R = [v]RzRv))
3427, 33bi2anan9 478 . . . . . . . . . . . . . . . . . 18 (((ySwS) ∧ (zSvS)) → (([y]R = [w]R ∧ [z]R = [v]R) ↔ (yRwzRv)))
35 th3qlem1.3 . . . . . . . . . . . . . . . . . 18 (((ySwS) ∧ (zSvS)) → ((yRwzRv) → (yFz)R(wFv)))
3634, 35sylbid 178 . . . . . . . . . . . . . . . . 17 (((ySwS) ∧ (zSvS)) → (([y]R = [w]R ∧ [z]R = [v]R) → (yFz)R(wFv)))
37 cleq12 1113 . . . . . . . . . . . . . . . . . 18 ((x = [(yFz)]Ru = [(wFv)]R) → (x = u ↔ [(yFz)]R = [(wFv)]R))
38 oprex 3018 . . . . . . . . . . . . . . . . . . 19 (yFz) ∈ V
39 oprex 3018 . . . . . . . . . . . . . . . . . . 19 (wFv) ∈ V
4038, 39, 25erthi 3218 . . . . . . . . . . . . . . . . . 18 ((yFz)R(wFv) → [(yFz)]R = [(wFv)]R)
4137, 40syl5bir 184 . . . . . . . . . . . . . . . . 17 ((x = [(yFz)]Ru = [(wFv)]R) → ((yFz)R(wFv) → x = u))
4236, 41syl9 55 . . . . . . . . . . . . . . . 16 (((ySwS) ∧ (zSvS)) → ((x = [(yFz)]Ru = [(wFv)]R) → (([y]R = [w]R ∧ [z]R = [v]R) → x = u)))
4342com23 32 . . . . . . . . . . . . . . 15 (((ySwS) ∧ (zSvS)) → (([y]R = [w]R ∧ [z]R = [v]R) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u)))
4443imp 277 . . . . . . . . . . . . . 14 ((((ySwS) ∧ (zSvS)) ∧ ([y]R = [w]R ∧ [z]R = [v]R)) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u))
45 visset 1350 . . . . . . . . . . . . . . . . 17 yV
4645, 25, 21ecelqsdm 3235 . . . . . . . . . . . . . . . 16 ([y]R ∈ (S / R) → yS)
4724, 25, 21ecelqsdm 3235 . . . . . . . . . . . . . . . 16 ([w]R ∈ (S / R) → wS)
4846, 47anim12i 268 . . . . . . . . . . . . . . 15 (([y]R ∈ (S / R) ∧ [w]R ∈ (S / R)) → (ySwS))
49 visset 1350 . . . . . . . . . . . . . . . . 17 zV
5049, 25, 21ecelqsdm 3235 . . . . . . . . . . . . . . . 16 ([z]R ∈ (S / R) → zS)
5131, 25, 21ecelqsdm 3235 . . . . . . . . . . . . . . . 16 ([v]R ∈ (S / R) → vS)
5250, 51anim12i 268 . . . . . . . . . . . . . . 15 (([z]R ∈ (S / R) ∧ [v]R ∈ (S / R)) → (zSvS))
5348, 52anim12i 268 . . . . . . . . . . . . . 14 ((([y]R ∈ (S / R) ∧ [w]R ∈ (S / R)) ∧ ([z]R ∈ (S / R) ∧ [v]R ∈ (S / R))) → ((ySwS) ∧ (zSvS)))
54 cleq1 1107 . . . . . . . . . . . . . . . 16 (A = [y]R → (A = [w]R ↔ [y]R = [w]R))
5554biimpa 324 . . . . . . . . . . . . . . 15 ((A = [y]RA = [w]R) → [y]R = [w]R)
56 cleq1 1107 . . . . . . . . . . . . . . . 16 (B = [z]R → (B = [v]R ↔ [z]R = [v]R))
5756biimpa 324 . . . . . . . . . . . . . . 15 ((B = [z]RB = [v]R) → [z]R = [v]R)
5855, 57anim12i 268 . . . . . . . . . . . . . 14 (((A = [y]RA = [w]R) ∧ (B = [z]RB = [v]R)) → ([y]R = [w]R ∧ [z]R = [v]R))
5944, 53, 58syl2an 349 . . . . . . . . . . . . 13 (((([y]R ∈ (S / R) ∧ [w]R ∈ (S / R)) ∧ ([z]R ∈ (S / R) ∧ [v]R ∈ (S / R))) ∧ ((A = [y]RA = [w]R) ∧ (B = [z]RB = [v]R))) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u))
6059an4s 390 . . . . . . . . . . . 12 (((([y]R ∈ (S / R) ∧ [w]R ∈ (S / R)) ∧ (A = [y]RA = [w]R)) ∧ (([z]R ∈ (S / R) ∧ [v]R ∈ (S / R)) ∧ (B = [z]RB = [v]R))) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u))
61 an4 388 . . . . . . . . . . . 12 ((([y]R ∈ (S / R) ∧ A = [y]R) ∧ ([w]R ∈ (S / R) ∧ A = [w]R)) ↔ (([y]R ∈ (S / R) ∧ [w]R ∈ (S / R)) ∧ (A = [y]RA = [w]R)))
62 an4 388 . . . . . . . . . . . 12 ((([z]R ∈ (S / R) ∧ B = [z]R) ∧ ([v]R ∈ (S / R) ∧ B = [v]R)) ↔ (([z]R ∈ (S / R) ∧ [v]R ∈ (S / R)) ∧ (B = [z]RB = [v]R)))
6360, 61, 62syl2anb 350 . . . . . . . . . . 11 (((([y]R ∈ (S / R) ∧ A = [y]R) ∧ ([w]R ∈ (S / R) ∧ A = [w]R)) ∧ (([z]R ∈ (S / R) ∧ B = [z]R) ∧ ([v]R ∈ (S / R) ∧ B = [v]R))) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u))
6419, 63sylbi 174 . . . . . . . . . 10 ((((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (B ∈ (S / R) ∧ B ∈ (S / R))) ∧ ((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R))) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u))
65 anidm 331 . . . . . . . . . . 11 ((A ∈ (S / R) ∧ A ∈ (S / R)) ↔ A ∈ (S / R))
66 anidm 331 . . . . . . . . . . 11 ((B ∈ (S / R) ∧ B ∈ (S / R)) ↔ B ∈ (S / R))
6765, 66anbi12i 369 . . . . . . . . . 10 (((A ∈ (S / R) ∧ A ∈ (S / R)) ∧ (B ∈ (S / R) ∧ B ∈ (S / R))) ↔ (A ∈ (S / R) ∧ B ∈ (S / R)))
6864, 67sylanbr 345 . . . . . . . . 9 (((A ∈ (S / R) ∧ B ∈ (S / R)) ∧ ((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R))) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u))
6968exp 291 . . . . . . . 8 ((A ∈ (S / R) ∧ B ∈ (S / R)) → (((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R)) → ((x = [(yFz)]Ru = [(wFv)]R) → x = u)))
7069imp3a 279 . . . . . . 7 ((A ∈ (S / R) ∧ B ∈ (S / R)) → ((((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R)) ∧ (x = [(yFz)]Ru = [(wFv)]R)) → x = u))
71 an4 388 . . . . . . 7 ((((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) ↔ (((A = [y]RB = [z]R) ∧ (A = [w]RB = [v]R)) ∧ (x = [(yFz)]Ru = [(wFv)]R)))
7270, 71syl5ib 181 . . . . . 6 ((A ∈ (S / R) ∧ B ∈ (S / R)) → ((((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) → x = u))
737219.23advv 955 . . . . 5 ((A ∈ (S / R) ∧ B ∈ (S / R)) → (∃wv(((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) → x = u))
747319.23advv 955 . . . 4 ((A ∈ (S / R) ∧ B ∈ (S / R)) → (∃yzwv(((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) → x = u))
75 ee4anv 982 . . . 4 (∃yzwv(((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) ↔ (∃yz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ∃wv((A = [w]RB = [v]R) ∧ u = [(wFv)]R)))
7674, 75syl5ibr 182 . . 3 ((A ∈ (S / R) ∧ B ∈ (S / R)) → ((∃yz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ∃wv((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) → x = u))
777619.21aivv 944 . 2 ((A ∈ (S / R) ∧ B ∈ (S / R)) → ∀xu((∃yz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ∃wv((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) → x = u))
78 cleq1 1107 . . . . . 6 (x = u → (x = [(yFz)]Ru = [(yFz)]R))
7978anbi2d 468 . . . . 5 (x = u → (((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ↔ ((A = [y]RB = [z]R) ∧ u = [(yFz)]R)))
8079bi2exdv 938 . . . 4 (x = u → (∃yz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ↔ ∃yz((A = [y]RB = [z]R) ∧ u = [(yFz)]R)))
81 eceq2 3215 . . . . . . . 8 (y = w → [y]R = [w]R)
8281cleq2d 1112 . . . . . . 7 (y = w → (A = [y]RA = [w]R))
83 eceq2 3215 . . . . . . . 8 (z = v → [z]R = [v]R)
8483cleq2d 1112 . . . . . . 7 (z = v → (B = [z]RB = [v]R))
8582, 84bi2anan9 478 . . . . . 6 ((y = wz = v) → ((A = [y]RB = [z]R) ↔ (A = [w]RB = [v]R)))
86 opreq12 3008 . . . . . . . 8 ((y = wz = v) → (yFz) = (wFv))
87 eceq2 3215 . . . . . . . 8 ((yFz) = (wFv) → [(yFz)]R = [(wFv)]R)
8886, 87syl 12 . . . . . . 7 ((y = wz = v) → [(yFz)]R = [(wFv)]R)
8988cleq2d 1112 . . . . . 6 ((y = wz = v) → (u = [(yFz)]Ru = [(wFv)]R))
9085, 89anbi12d 476 . . . . 5 ((y = wz = v) → (((A = [y]RB = [z]R) ∧ u = [(yFz)]R) ↔ ((A = [w]RB = [v]R) ∧ u = [(wFv)]R)))
9190cbvex2v 976 . . . 4 (∃yz((A = [y]RB = [z]R) ∧ u = [(yFz)]R) ↔ ∃wv((A = [w]RB = [v]R) ∧ u = [(wFv)]R))
9280, 91syl6bb 414 . . 3 (x = u → (∃yz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ↔ ∃wv((A = [w]RB = [v]R) ∧ u = [(wFv)]R)))
9392mo4 1029 . 2 (∃*xyz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ↔ ∀xu((∃yz((A = [y]RB = [z]R) ∧ x = [(yFz)]R) ∧ ∃wv((A = [w]RB = [v]R) ∧ u = [(wFv)]R)) → x = u))
9477, 93sylibr 175 1 ((A ∈ (S / R) ∧ B ∈ (S / R)) → ∃*xyz((A = [y]RB = [z]R) ∧ x = [(yFz)]R))
Colors of variables: wff set class
Syntax hints:   → wi 2   ↔ wb 127   ∧ wa 196  ∀wal 672  ∃wex 678   = weq 797  ∃*wmo 1008   = wceq 1091   ∈ wcel 1092   class class class wbr 2054  dom cdm 2410  (class class class)co 3001  Er wer 3197  [cec 3198   / cqs 3199
This theorem is referenced by:  th3qlem2 3251
This theorem was proved from axioms:  ax-1 3  ax-2 4  ax-3 5  ax-mp 6  ax-4 673  ax-5 674  ax-6 675  ax-7 676  ax-gen 677  ax-8 798  ax-9 799  ax-10 800  ax-11 801  ax-12 802  ax-13 804  ax-14 805  ax-16 922  ax-17 925  ax-ext 1074  ax-rep 1075  ax-un 1076  ax-pow 1077
This theorem depends on definitions:  df-bi 128  df-or 197  df-an 198  df-3an 583  df-ex 679  df-sb 853  df-eu 1009  df-mo 1010  df-clab 1093  df-cleq 1097  df-clel 1099  df-rex 1206  df-v 1349  df-dif 1489  df-un 1490  df-in 1491  df-ss 1492  df-nul 1708  df-pw 1799  df-sn 1811  df-pr 1812  df-op 1815  df-uni 1920  df-br 2063  df-opab 2098  df-xp 2424  df-cnv 2426  df-co 2427  df-dm 2428  df-rn 2429  df-res 2430  df-ima 2431  df-fv 2438  df-opr 3003  df-er 3200  df-ec 3202  df-qs 3205
metamath.org