MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  poxp Structured version   Visualization version   GIF version

Theorem poxp 8080
Description: A lexicographical ordering of two posets. (Contributed by Scott Fenton, 16-Mar-2011.) (Revised by Mario Carneiro, 7-Mar-2013.)
Hypothesis
Ref Expression
poxp.1 𝑇 = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ (𝐴 Γ— 𝐡) ∧ 𝑦 ∈ (𝐴 Γ— 𝐡)) ∧ ((1st β€˜π‘₯)𝑅(1st β€˜π‘¦) ∨ ((1st β€˜π‘₯) = (1st β€˜π‘¦) ∧ (2nd β€˜π‘₯)𝑆(2nd β€˜π‘¦))))}
Assertion
Ref Expression
poxp ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ 𝑇 Po (𝐴 Γ— 𝐡))
Distinct variable groups:   π‘₯,𝐴,𝑦   π‘₯,𝐡,𝑦   π‘₯,𝑅,𝑦   π‘₯,𝑆,𝑦
Allowed substitution hints:   𝑇(π‘₯,𝑦)

Proof of Theorem poxp
Dummy variables π‘Ž 𝑏 𝑐 𝑑 𝑒 𝑓 𝑑 𝑒 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 elxp 5676 . . . . . . . 8 (𝑑 ∈ (𝐴 Γ— 𝐡) ↔ βˆƒπ‘Žβˆƒπ‘(𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)))
2 elxp 5676 . . . . . . . 8 (𝑒 ∈ (𝐴 Γ— 𝐡) ↔ βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)))
3 elxp 5676 . . . . . . . 8 (𝑣 ∈ (𝐴 Γ— 𝐡) ↔ βˆƒπ‘’βˆƒπ‘“(𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)))
4 3an6 1446 . . . . . . . . . . . . . . . . 17 (((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) ∧ (𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) ∧ (𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) ↔ ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))))
5 poirr 5577 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑅 Po 𝐴 ∧ π‘Ž ∈ 𝐴) β†’ Β¬ π‘Žπ‘…π‘Ž)
65ex 413 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑅 Po 𝐴 β†’ (π‘Ž ∈ 𝐴 β†’ Β¬ π‘Žπ‘…π‘Ž))
7 poirr 5577 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑆 Po 𝐡 ∧ 𝑏 ∈ 𝐡) β†’ Β¬ 𝑏𝑆𝑏)
87intnand 489 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑆 Po 𝐡 ∧ 𝑏 ∈ 𝐡) β†’ Β¬ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))
98ex 413 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑆 Po 𝐡 β†’ (𝑏 ∈ 𝐡 β†’ Β¬ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏)))
106, 9im2anan9 620 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) β†’ (Β¬ π‘Žπ‘…π‘Ž ∧ Β¬ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))))
11 ioran 982 . . . . . . . . . . . . . . . . . . . . . . . . 25 (Β¬ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏)) ↔ (Β¬ π‘Žπ‘…π‘Ž ∧ Β¬ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏)))
1210, 11syl6ibr 251 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) β†’ Β¬ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))))
1312imp 407 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ Β¬ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏)))
1413intnand 489 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ Β¬ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))))
15143ad2antr1 1188 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ Β¬ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))))
16 an4 654 . . . . . . . . . . . . . . . . . . . . . 22 (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) ↔ ((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ ((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡))) ∧ ((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))))
17 3an6 1446 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) ↔ ((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)))
18 potr 5578 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) β†’ ((π‘Žπ‘…π‘ ∧ 𝑐𝑅𝑒) β†’ π‘Žπ‘…π‘’))
19183impia 1117 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (π‘Žπ‘…π‘ ∧ 𝑐𝑅𝑒)) β†’ π‘Žπ‘…π‘’)
2019orcd 871 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (π‘Žπ‘…π‘ ∧ 𝑐𝑅𝑒)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))
21203expia 1121 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) β†’ ((π‘Žπ‘…π‘ ∧ 𝑐𝑅𝑒) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
2221expdimp 453 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) ∧ π‘Žπ‘…π‘) β†’ (𝑐𝑅𝑒 β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
23 breq2 5129 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (𝑐 = 𝑒 β†’ (π‘Žπ‘…π‘ ↔ π‘Žπ‘…π‘’))
2423biimpa 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((𝑐 = 𝑒 ∧ π‘Žπ‘…π‘) β†’ π‘Žπ‘…π‘’)
2524orcd 871 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ((𝑐 = 𝑒 ∧ π‘Žπ‘…π‘) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))
2625expcom 414 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘Žπ‘…π‘ β†’ (𝑐 = 𝑒 β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
2726adantrd 492 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Žπ‘…π‘ β†’ ((𝑐 = 𝑒 ∧ 𝑑𝑆𝑓) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
2827adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) ∧ π‘Žπ‘…π‘) β†’ ((𝑐 = 𝑒 ∧ 𝑑𝑆𝑓) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
2922, 28jaod 857 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) ∧ π‘Žπ‘…π‘) β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
3029ex 413 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) β†’ (π‘Žπ‘…π‘ β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
31 potr 5578 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑏𝑆𝑑 ∧ 𝑑𝑆𝑓) β†’ 𝑏𝑆𝑓))
3231expdimp 453 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ 𝑏𝑆𝑑) β†’ (𝑑𝑆𝑓 β†’ 𝑏𝑆𝑓))
3332anim2d 612 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ 𝑏𝑆𝑑) β†’ ((𝑐 = 𝑒 ∧ 𝑑𝑆𝑓) β†’ (𝑐 = 𝑒 ∧ 𝑏𝑆𝑓)))
3433orim2d 965 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ 𝑏𝑆𝑑) β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑏𝑆𝑓))))
35 breq1 5128 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (π‘Ž = 𝑐 β†’ (π‘Žπ‘…π‘’ ↔ 𝑐𝑅𝑒))
36 equequ1 2028 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 (π‘Ž = 𝑐 β†’ (π‘Ž = 𝑒 ↔ 𝑐 = 𝑒))
3736anbi1d 630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (π‘Ž = 𝑐 β†’ ((π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓) ↔ (𝑐 = 𝑒 ∧ 𝑏𝑆𝑓)))
3835, 37orbi12d 917 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘Ž = 𝑐 β†’ ((π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)) ↔ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑏𝑆𝑓))))
3938imbi2d 340 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘Ž = 𝑐 β†’ (((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))) ↔ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑏𝑆𝑓)))))
4034, 39imbitrrid 245 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘Ž = 𝑐 β†’ (((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ 𝑏𝑆𝑑) β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
4140expd 416 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘Ž = 𝑐 β†’ ((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) β†’ (𝑏𝑆𝑑 β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))))
4241com12 32 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) β†’ (π‘Ž = 𝑐 β†’ (𝑏𝑆𝑑 β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))))
4342impd 411 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) β†’ ((π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑) β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
4430, 43jaao 953 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) ∧ (𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡))) β†’ ((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) β†’ ((𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
4544impd 411 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((𝑅 Po 𝐴 ∧ (π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴)) ∧ (𝑆 Po 𝐡 ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡))) β†’ (((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓))) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
4645an4s 658 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡))) β†’ (((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓))) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
4717, 46sylan2b 594 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ (((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓))) β†’ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
48 an4 654 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) ↔ ((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)))
4948biimpi 215 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)))
50493adant2 1131 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)))
5150adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ ((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)))
5247, 51jctild 526 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ (((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
5352adantld 491 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ ((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡))) ∧ ((π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
5416, 53biimtrid 241 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
5515, 54jca 512 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ (Β¬ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))) ∧ (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))))
56 breq12 5130 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑑 = βŸ¨π‘Ž, π‘βŸ©) β†’ (𝑑𝑇𝑑 ↔ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ©))
5756anidms 567 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑑 = βŸ¨π‘Ž, π‘βŸ© β†’ (𝑑𝑇𝑑 ↔ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ©))
5857notbid 317 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑑 = βŸ¨π‘Ž, π‘βŸ© β†’ (Β¬ 𝑑𝑇𝑑 ↔ Β¬ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ©))
59583ad2ant1 1133 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (Β¬ 𝑑𝑇𝑑 ↔ Β¬ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ©))
60 breq12 5130 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ©) β†’ (𝑑𝑇𝑒 ↔ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ©))
61603adant3 1132 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (𝑑𝑇𝑒 ↔ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ©))
62 breq12 5130 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (𝑒𝑇𝑣 ↔ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©))
63623adant1 1130 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (𝑒𝑇𝑣 ↔ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©))
6461, 63anbi12d 631 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) ↔ (βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ∧ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©)))
65 breq12 5130 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (𝑑𝑇𝑣 ↔ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©))
66653adant2 1131 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (𝑑𝑇𝑣 ↔ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©))
6764, 66imbi12d 344 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣) ↔ ((βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ∧ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©) β†’ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©)))
6859, 67anbi12d 631 . . . . . . . . . . . . . . . . . . . . 21 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ ((Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)) ↔ (Β¬ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ© ∧ ((βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ∧ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©) β†’ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©))))
69 poxp.1 . . . . . . . . . . . . . . . . . . . . . . . 24 𝑇 = {⟨π‘₯, π‘¦βŸ© ∣ ((π‘₯ ∈ (𝐴 Γ— 𝐡) ∧ 𝑦 ∈ (𝐴 Γ— 𝐡)) ∧ ((1st β€˜π‘₯)𝑅(1st β€˜π‘¦) ∨ ((1st β€˜π‘₯) = (1st β€˜π‘¦) ∧ (2nd β€˜π‘₯)𝑆(2nd β€˜π‘¦))))}
7069xporderlem 8079 . . . . . . . . . . . . . . . . . . . . . . 23 (βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ© ↔ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))))
7170notbii 319 . . . . . . . . . . . . . . . . . . . . . 22 (Β¬ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ© ↔ Β¬ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))))
7269xporderlem 8079 . . . . . . . . . . . . . . . . . . . . . . . 24 (βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ↔ (((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))))
7369xporderlem 8079 . . . . . . . . . . . . . . . . . . . . . . . 24 (βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ© ↔ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓))))
7472, 73anbi12i 627 . . . . . . . . . . . . . . . . . . . . . . 23 ((βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ∧ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©) ↔ ((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))))
7569xporderlem 8079 . . . . . . . . . . . . . . . . . . . . . . 23 (βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ© ↔ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))
7674, 75imbi12i 350 . . . . . . . . . . . . . . . . . . . . . 22 (((βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ∧ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©) β†’ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©) ↔ (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))
7771, 76anbi12i 627 . . . . . . . . . . . . . . . . . . . . 21 ((Β¬ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘Ž, π‘βŸ© ∧ ((βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘, π‘‘βŸ© ∧ βŸ¨π‘, π‘‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©) β†’ βŸ¨π‘Ž, π‘βŸ©π‘‡βŸ¨π‘’, π‘“βŸ©)) ↔ (Β¬ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))) ∧ (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓))))))
7868, 77bitrdi 286 . . . . . . . . . . . . . . . . . . . 20 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ ((Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)) ↔ (Β¬ (((π‘Ž ∈ 𝐴 ∧ π‘Ž ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑏 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘Ž ∨ (π‘Ž = π‘Ž ∧ 𝑏𝑆𝑏))) ∧ (((((π‘Ž ∈ 𝐴 ∧ 𝑐 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑑 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘ ∨ (π‘Ž = 𝑐 ∧ 𝑏𝑆𝑑))) ∧ (((𝑐 ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑑 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (𝑐𝑅𝑒 ∨ (𝑐 = 𝑒 ∧ 𝑑𝑆𝑓)))) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑒 ∈ 𝐴) ∧ (𝑏 ∈ 𝐡 ∧ 𝑓 ∈ 𝐡)) ∧ (π‘Žπ‘…π‘’ ∨ (π‘Ž = 𝑒 ∧ 𝑏𝑆𝑓)))))))
7955, 78imbitrrid 245 . . . . . . . . . . . . . . . . . . 19 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))
8079expcomd 417 . . . . . . . . . . . . . . . . . 18 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) β†’ (((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)))))
8180imp 407 . . . . . . . . . . . . . . . . 17 (((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ 𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ 𝑣 = βŸ¨π‘’, π‘“βŸ©) ∧ ((π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡) ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡) ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))
824, 81sylbi 216 . . . . . . . . . . . . . . . 16 (((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) ∧ (𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) ∧ (𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))
83823exp 1119 . . . . . . . . . . . . . . 15 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ ((𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ ((𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
8483com3l 89 . . . . . . . . . . . . . 14 ((𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ ((𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
8584exlimivv 1935 . . . . . . . . . . . . 13 (βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ ((𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
8685com3l 89 . . . . . . . . . . . 12 ((𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ (βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
8786exlimivv 1935 . . . . . . . . . . 11 (βˆƒπ‘’βˆƒπ‘“(𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ (βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
8887com3l 89 . . . . . . . . . 10 ((𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ (βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ (βˆƒπ‘’βˆƒπ‘“(𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
8988exlimivv 1935 . . . . . . . . 9 (βˆƒπ‘Žβˆƒπ‘(𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) β†’ (βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) β†’ (βˆƒπ‘’βˆƒπ‘“(𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))))
90893imp 1111 . . . . . . . 8 ((βˆƒπ‘Žβˆƒπ‘(𝑑 = βŸ¨π‘Ž, π‘βŸ© ∧ (π‘Ž ∈ 𝐴 ∧ 𝑏 ∈ 𝐡)) ∧ βˆƒπ‘βˆƒπ‘‘(𝑒 = βŸ¨π‘, π‘‘βŸ© ∧ (𝑐 ∈ 𝐴 ∧ 𝑑 ∈ 𝐡)) ∧ βˆƒπ‘’βˆƒπ‘“(𝑣 = βŸ¨π‘’, π‘“βŸ© ∧ (𝑒 ∈ 𝐴 ∧ 𝑓 ∈ 𝐡))) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))
911, 2, 3, 90syl3anb 1161 . . . . . . 7 ((𝑑 ∈ (𝐴 Γ— 𝐡) ∧ 𝑒 ∈ (𝐴 Γ— 𝐡) ∧ 𝑣 ∈ (𝐴 Γ— 𝐡)) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))
92913expia 1121 . . . . . 6 ((𝑑 ∈ (𝐴 Γ— 𝐡) ∧ 𝑒 ∈ (𝐴 Γ— 𝐡)) β†’ (𝑣 ∈ (𝐴 Γ— 𝐡) β†’ ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)))))
9392com3r 87 . . . . 5 ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ ((𝑑 ∈ (𝐴 Γ— 𝐡) ∧ 𝑒 ∈ (𝐴 Γ— 𝐡)) β†’ (𝑣 ∈ (𝐴 Γ— 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)))))
9493imp 407 . . . 4 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ (𝑑 ∈ (𝐴 Γ— 𝐡) ∧ 𝑒 ∈ (𝐴 Γ— 𝐡))) β†’ (𝑣 ∈ (𝐴 Γ— 𝐡) β†’ (Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣))))
9594ralrimiv 3144 . . 3 (((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) ∧ (𝑑 ∈ (𝐴 Γ— 𝐡) ∧ 𝑒 ∈ (𝐴 Γ— 𝐡))) β†’ βˆ€π‘£ ∈ (𝐴 Γ— 𝐡)(Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)))
9695ralrimivva 3199 . 2 ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ βˆ€π‘‘ ∈ (𝐴 Γ— 𝐡)βˆ€π‘’ ∈ (𝐴 Γ— 𝐡)βˆ€π‘£ ∈ (𝐴 Γ— 𝐡)(Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)))
97 df-po 5565 . 2 (𝑇 Po (𝐴 Γ— 𝐡) ↔ βˆ€π‘‘ ∈ (𝐴 Γ— 𝐡)βˆ€π‘’ ∈ (𝐴 Γ— 𝐡)βˆ€π‘£ ∈ (𝐴 Γ— 𝐡)(Β¬ 𝑑𝑇𝑑 ∧ ((𝑑𝑇𝑒 ∧ 𝑒𝑇𝑣) β†’ 𝑑𝑇𝑣)))
9896, 97sylibr 233 1 ((𝑅 Po 𝐴 ∧ 𝑆 Po 𝐡) β†’ 𝑇 Po (𝐴 Γ— 𝐡))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   ∧ w3a 1087   = wceq 1541  βˆƒwex 1781   ∈ wcel 2106  βˆ€wral 3060  βŸ¨cop 4612   class class class wbr 5125  {copab 5187   Po wpo 5563   Γ— cxp 5651  β€˜cfv 6516  1st c1st 7939  2nd c2nd 7940
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-sep 5276  ax-nul 5283  ax-pr 5404  ax-un 7692
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ral 3061  df-rex 3070  df-rab 3419  df-v 3461  df-dif 3931  df-un 3933  df-in 3935  df-ss 3945  df-nul 4303  df-if 4507  df-sn 4607  df-pr 4609  df-op 4613  df-uni 4886  df-br 5126  df-opab 5188  df-mpt 5209  df-id 5551  df-po 5565  df-xp 5659  df-rel 5660  df-cnv 5661  df-co 5662  df-dm 5663  df-rn 5664  df-iota 6468  df-fun 6518  df-fv 6524  df-1st 7941  df-2nd 7942
This theorem is referenced by:  soxp  8081
  Copyright terms: Public domain W3C validator