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

Theorem soxp 7941
Description: A lexicographical ordering of two strictly ordered classes. (Contributed by Scott Fenton, 17-Mar-2011.) (Revised by Mario Carneiro, 7-Mar-2013.)
Hypothesis
Ref Expression
soxp.1 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝐴 × 𝐵) ∧ 𝑦 ∈ (𝐴 × 𝐵)) ∧ ((1st𝑥)𝑅(1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥)𝑆(2nd𝑦))))}
Assertion
Ref Expression
soxp ((𝑅 Or 𝐴𝑆 Or 𝐵) → 𝑇 Or (𝐴 × 𝐵))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦   𝑥,𝑅,𝑦   𝑥,𝑆,𝑦
Allowed substitution hints:   𝑇(𝑥,𝑦)

Proof of Theorem soxp
Dummy variables 𝑎 𝑏 𝑐 𝑑 𝑡 𝑢 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 sopo 5513 . . 3 (𝑅 Or 𝐴𝑅 Po 𝐴)
2 sopo 5513 . . 3 (𝑆 Or 𝐵𝑆 Po 𝐵)
3 soxp.1 . . . 4 𝑇 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝐴 × 𝐵) ∧ 𝑦 ∈ (𝐴 × 𝐵)) ∧ ((1st𝑥)𝑅(1st𝑦) ∨ ((1st𝑥) = (1st𝑦) ∧ (2nd𝑥)𝑆(2nd𝑦))))}
43poxp 7940 . . 3 ((𝑅 Po 𝐴𝑆 Po 𝐵) → 𝑇 Po (𝐴 × 𝐵))
51, 2, 4syl2an 595 . 2 ((𝑅 Or 𝐴𝑆 Or 𝐵) → 𝑇 Po (𝐴 × 𝐵))
6 elxp 5603 . . . . 5 (𝑡 ∈ (𝐴 × 𝐵) ↔ ∃𝑎𝑏(𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)))
7 elxp 5603 . . . . 5 (𝑢 ∈ (𝐴 × 𝐵) ↔ ∃𝑐𝑑(𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵)))
8 ioran 980 . . . . . . . . . . . . . . . . . . . . 21 (¬ ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) ↔ (¬ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∧ ¬ (𝑎 = 𝑐𝑏 = 𝑑)))
9 ioran 980 . . . . . . . . . . . . . . . . . . . . . . 23 (¬ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ↔ (¬ 𝑎𝑅𝑐 ∧ ¬ (𝑎 = 𝑐𝑏𝑆𝑑)))
10 ianor 978 . . . . . . . . . . . . . . . . . . . . . . . 24 (¬ (𝑎 = 𝑐𝑏𝑆𝑑) ↔ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑))
1110anbi2i 622 . . . . . . . . . . . . . . . . . . . . . . 23 ((¬ 𝑎𝑅𝑐 ∧ ¬ (𝑎 = 𝑐𝑏𝑆𝑑)) ↔ (¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)))
129, 11bitri 274 . . . . . . . . . . . . . . . . . . . . . 22 (¬ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ↔ (¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)))
13 ianor 978 . . . . . . . . . . . . . . . . . . . . . 22 (¬ (𝑎 = 𝑐𝑏 = 𝑑) ↔ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏 = 𝑑))
1412, 13anbi12i 626 . . . . . . . . . . . . . . . . . . . . 21 ((¬ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∧ ¬ (𝑎 = 𝑐𝑏 = 𝑑)) ↔ ((¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)) ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏 = 𝑑)))
158, 14bitri 274 . . . . . . . . . . . . . . . . . . . 20 (¬ ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) ↔ ((¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)) ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏 = 𝑑)))
16 solin 5519 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) → (𝑎𝑅𝑐𝑎 = 𝑐𝑐𝑅𝑎))
17 3orass 1088 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑎𝑅𝑐𝑎 = 𝑐𝑐𝑅𝑎) ↔ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑐𝑅𝑎)))
18 df-or 844 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑐𝑅𝑎)) ↔ (¬ 𝑎𝑅𝑐 → (𝑎 = 𝑐𝑐𝑅𝑎)))
1917, 18bitri 274 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑎𝑅𝑐𝑎 = 𝑐𝑐𝑅𝑎) ↔ (¬ 𝑎𝑅𝑐 → (𝑎 = 𝑐𝑐𝑅𝑎)))
2016, 19sylib 217 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) → (¬ 𝑎𝑅𝑐 → (𝑎 = 𝑐𝑐𝑅𝑎)))
21 solin 5519 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵)) → (𝑏𝑆𝑑𝑏 = 𝑑𝑑𝑆𝑏))
22 3orass 1088 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑏𝑆𝑑𝑏 = 𝑑𝑑𝑆𝑏) ↔ (𝑏𝑆𝑑 ∨ (𝑏 = 𝑑𝑑𝑆𝑏)))
23 df-or 844 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑏𝑆𝑑 ∨ (𝑏 = 𝑑𝑑𝑆𝑏)) ↔ (¬ 𝑏𝑆𝑑 → (𝑏 = 𝑑𝑑𝑆𝑏)))
2422, 23bitri 274 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑏𝑆𝑑𝑏 = 𝑑𝑑𝑆𝑏) ↔ (¬ 𝑏𝑆𝑑 → (𝑏 = 𝑑𝑑𝑆𝑏)))
2521, 24sylib 217 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵)) → (¬ 𝑏𝑆𝑑 → (𝑏 = 𝑑𝑑𝑆𝑏)))
2625orim2d 963 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵)) → ((¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑) → (¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏))))
2720, 26im2anan9 619 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)) → ((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏)))))
28 pm2.53 847 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑎 = 𝑐𝑐𝑅𝑎) → (¬ 𝑎 = 𝑐𝑐𝑅𝑎))
29 orc 863 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑐𝑅𝑎 → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))
3028, 29syl6 35 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑎 = 𝑐𝑐𝑅𝑎) → (¬ 𝑎 = 𝑐 → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
3130adantr 480 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏))) → (¬ 𝑎 = 𝑐 → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
32 orel1 885 . . . . . . . . . . . . . . . . . . . . . . . . . 26 𝑏 = 𝑑 → ((𝑏 = 𝑑𝑑𝑆𝑏) → 𝑑𝑆𝑏))
3332orim2d 963 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝑏 = 𝑑 → ((¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏)) → (¬ 𝑎 = 𝑐𝑑𝑆𝑏)))
3433anim2d 611 . . . . . . . . . . . . . . . . . . . . . . . 24 𝑏 = 𝑑 → (((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏))) → ((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐𝑑𝑆𝑏))))
35 imor 849 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑎 = 𝑐𝑑𝑆𝑏) ↔ (¬ 𝑎 = 𝑐𝑑𝑆𝑏))
3635biimpri 227 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((¬ 𝑎 = 𝑐𝑑𝑆𝑏) → (𝑎 = 𝑐𝑑𝑆𝑏))
3736com12 32 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑎 = 𝑐 → ((¬ 𝑎 = 𝑐𝑑𝑆𝑏) → 𝑑𝑆𝑏))
38 equcomi 2021 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (𝑎 = 𝑐𝑐 = 𝑎)
3938anim1i 614 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑎 = 𝑐𝑑𝑆𝑏) → (𝑐 = 𝑎𝑑𝑆𝑏))
4039olcd 870 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑎 = 𝑐𝑑𝑆𝑏) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))
4140ex 412 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑎 = 𝑐 → (𝑑𝑆𝑏 → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
4237, 41syld 47 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑎 = 𝑐 → ((¬ 𝑎 = 𝑐𝑑𝑆𝑏) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
4329a1d 25 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑐𝑅𝑎 → ((¬ 𝑎 = 𝑐𝑑𝑆𝑏) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
4442, 43jaoi 853 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑎 = 𝑐𝑐𝑅𝑎) → ((¬ 𝑎 = 𝑐𝑑𝑆𝑏) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
4544imp 406 . . . . . . . . . . . . . . . . . . . . . . . 24 (((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐𝑑𝑆𝑏)) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))
4634, 45syl6com 37 . . . . . . . . . . . . . . . . . . . . . . 23 (((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏))) → (¬ 𝑏 = 𝑑 → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
4731, 46jaod 855 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑎 = 𝑐𝑐𝑅𝑎) ∧ (¬ 𝑎 = 𝑐 ∨ (𝑏 = 𝑑𝑑𝑆𝑏))) → ((¬ 𝑎 = 𝑐 ∨ ¬ 𝑏 = 𝑑) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
4827, 47syl6 35 . . . . . . . . . . . . . . . . . . . . 21 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)) → ((¬ 𝑎 = 𝑐 ∨ ¬ 𝑏 = 𝑑) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))))
4948impd 410 . . . . . . . . . . . . . . . . . . . 20 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → (((¬ 𝑎𝑅𝑐 ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏𝑆𝑑)) ∧ (¬ 𝑎 = 𝑐 ∨ ¬ 𝑏 = 𝑑)) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
5015, 49syl5bi 241 . . . . . . . . . . . . . . . . . . 19 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → (¬ ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
51 df-3or 1086 . . . . . . . . . . . . . . . . . . . 20 (((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))) ↔ (((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) ∨ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
52 df-or 844 . . . . . . . . . . . . . . . . . . . 20 ((((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) ∨ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))) ↔ (¬ ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
5351, 52bitri 274 . . . . . . . . . . . . . . . . . . 19 (((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))) ↔ (¬ ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑)) → (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
5450, 53sylibr 233 . . . . . . . . . . . . . . . . . 18 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
55 pm3.2 469 . . . . . . . . . . . . . . . . . . . 20 (((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) → ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) → (((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)))))
5655ad2ant2l 742 . . . . . . . . . . . . . . . . . . 19 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) → (((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)))))
57 idd 24 . . . . . . . . . . . . . . . . . . 19 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((𝑎 = 𝑐𝑏 = 𝑑) → (𝑎 = 𝑐𝑏 = 𝑑)))
58 simpr 484 . . . . . . . . . . . . . . . . . . . . 21 ((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) → (𝑎𝐴𝑐𝐴))
5958ancomd 461 . . . . . . . . . . . . . . . . . . . 20 ((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) → (𝑐𝐴𝑎𝐴))
60 simpr 484 . . . . . . . . . . . . . . . . . . . . 21 ((𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵)) → (𝑏𝐵𝑑𝐵))
6160ancomd 461 . . . . . . . . . . . . . . . . . . . 20 ((𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵)) → (𝑑𝐵𝑏𝐵))
62 pm3.2 469 . . . . . . . . . . . . . . . . . . . 20 (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) → ((𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)) → (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))))
6359, 61, 62syl2an 595 . . . . . . . . . . . . . . . . . . 19 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)) → (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))))
6456, 57, 633orim123d 1442 . . . . . . . . . . . . . . . . . 18 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → (((𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑)) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))) → ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))))
6554, 64mpd 15 . . . . . . . . . . . . . . . . 17 (((𝑅 Or 𝐴 ∧ (𝑎𝐴𝑐𝐴)) ∧ (𝑆 Or 𝐵 ∧ (𝑏𝐵𝑑𝐵))) → ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))))
6665an4s 656 . . . . . . . . . . . . . . . 16 (((𝑅 Or 𝐴𝑆 Or 𝐵) ∧ ((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵))) → ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))))
6766expcom 413 . . . . . . . . . . . . . . 15 (((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))))
6867an4s 656 . . . . . . . . . . . . . 14 (((𝑎𝐴𝑏𝐵) ∧ (𝑐𝐴𝑑𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))))
69 breq12 5075 . . . . . . . . . . . . . . . . 17 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → (𝑡𝑇𝑢 ↔ ⟨𝑎, 𝑏𝑇𝑐, 𝑑⟩))
70 eqeq12 2755 . . . . . . . . . . . . . . . . 17 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → (𝑡 = 𝑢 ↔ ⟨𝑎, 𝑏⟩ = ⟨𝑐, 𝑑⟩))
71 breq12 5075 . . . . . . . . . . . . . . . . . 18 ((𝑢 = ⟨𝑐, 𝑑⟩ ∧ 𝑡 = ⟨𝑎, 𝑏⟩) → (𝑢𝑇𝑡 ↔ ⟨𝑐, 𝑑𝑇𝑎, 𝑏⟩))
7271ancoms 458 . . . . . . . . . . . . . . . . 17 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → (𝑢𝑇𝑡 ↔ ⟨𝑐, 𝑑𝑇𝑎, 𝑏⟩))
7369, 70, 723orbi123d 1433 . . . . . . . . . . . . . . . 16 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → ((𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡) ↔ (⟨𝑎, 𝑏𝑇𝑐, 𝑑⟩ ∨ ⟨𝑎, 𝑏⟩ = ⟨𝑐, 𝑑⟩ ∨ ⟨𝑐, 𝑑𝑇𝑎, 𝑏⟩)))
743xporderlem 7939 . . . . . . . . . . . . . . . . 17 (⟨𝑎, 𝑏𝑇𝑐, 𝑑⟩ ↔ (((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))))
75 vex 3426 . . . . . . . . . . . . . . . . . 18 𝑎 ∈ V
76 vex 3426 . . . . . . . . . . . . . . . . . 18 𝑏 ∈ V
7775, 76opth 5385 . . . . . . . . . . . . . . . . 17 (⟨𝑎, 𝑏⟩ = ⟨𝑐, 𝑑⟩ ↔ (𝑎 = 𝑐𝑏 = 𝑑))
783xporderlem 7939 . . . . . . . . . . . . . . . . 17 (⟨𝑐, 𝑑𝑇𝑎, 𝑏⟩ ↔ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))
7974, 77, 783orbi123i 1154 . . . . . . . . . . . . . . . 16 ((⟨𝑎, 𝑏𝑇𝑐, 𝑑⟩ ∨ ⟨𝑎, 𝑏⟩ = ⟨𝑐, 𝑑⟩ ∨ ⟨𝑐, 𝑑𝑇𝑎, 𝑏⟩) ↔ ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))))
8073, 79bitrdi 286 . . . . . . . . . . . . . . 15 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → ((𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡) ↔ ((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏))))))
8180biimprcd 249 . . . . . . . . . . . . . 14 (((((𝑎𝐴𝑐𝐴) ∧ (𝑏𝐵𝑑𝐵)) ∧ (𝑎𝑅𝑐 ∨ (𝑎 = 𝑐𝑏𝑆𝑑))) ∨ (𝑎 = 𝑐𝑏 = 𝑑) ∨ (((𝑐𝐴𝑎𝐴) ∧ (𝑑𝐵𝑏𝐵)) ∧ (𝑐𝑅𝑎 ∨ (𝑐 = 𝑎𝑑𝑆𝑏)))) → ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
8268, 81syl6 35 . . . . . . . . . . . . 13 (((𝑎𝐴𝑏𝐵) ∧ (𝑐𝐴𝑑𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))))
8382com3r 87 . . . . . . . . . . . 12 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) → (((𝑎𝐴𝑏𝐵) ∧ (𝑐𝐴𝑑𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))))
8483imp 406 . . . . . . . . . . 11 (((𝑡 = ⟨𝑎, 𝑏⟩ ∧ 𝑢 = ⟨𝑐, 𝑑⟩) ∧ ((𝑎𝐴𝑏𝐵) ∧ (𝑐𝐴𝑑𝐵))) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
8584an4s 656 . . . . . . . . . 10 (((𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ (𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵))) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
8685expcom 413 . . . . . . . . 9 ((𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵)) → ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))))
8786exlimivv 1936 . . . . . . . 8 (∃𝑐𝑑(𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵)) → ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))))
8887com12 32 . . . . . . 7 ((𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) → (∃𝑐𝑑(𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))))
8988exlimivv 1936 . . . . . 6 (∃𝑎𝑏(𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) → (∃𝑐𝑑(𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))))
9089imp 406 . . . . 5 ((∃𝑎𝑏(𝑡 = ⟨𝑎, 𝑏⟩ ∧ (𝑎𝐴𝑏𝐵)) ∧ ∃𝑐𝑑(𝑢 = ⟨𝑐, 𝑑⟩ ∧ (𝑐𝐴𝑑𝐵))) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
916, 7, 90syl2anb 597 . . . 4 ((𝑡 ∈ (𝐴 × 𝐵) ∧ 𝑢 ∈ (𝐴 × 𝐵)) → ((𝑅 Or 𝐴𝑆 Or 𝐵) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
9291com12 32 . . 3 ((𝑅 Or 𝐴𝑆 Or 𝐵) → ((𝑡 ∈ (𝐴 × 𝐵) ∧ 𝑢 ∈ (𝐴 × 𝐵)) → (𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
9392ralrimivv 3113 . 2 ((𝑅 Or 𝐴𝑆 Or 𝐵) → ∀𝑡 ∈ (𝐴 × 𝐵)∀𝑢 ∈ (𝐴 × 𝐵)(𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡))
94 df-so 5495 . 2 (𝑇 Or (𝐴 × 𝐵) ↔ (𝑇 Po (𝐴 × 𝐵) ∧ ∀𝑡 ∈ (𝐴 × 𝐵)∀𝑢 ∈ (𝐴 × 𝐵)(𝑡𝑇𝑢𝑡 = 𝑢𝑢𝑇𝑡)))
955, 93, 94sylanbrc 582 1 ((𝑅 Or 𝐴𝑆 Or 𝐵) → 𝑇 Or (𝐴 × 𝐵))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395  wo 843  w3o 1084   = wceq 1539  wex 1783  wcel 2108  wral 3063  cop 4564   class class class wbr 5070  {copab 5132   Po wpo 5492   Or wor 5493   × cxp 5578  cfv 6418  1st c1st 7802  2nd c2nd 7803
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-sep 5218  ax-nul 5225  ax-pr 5347  ax-un 7566
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-rab 3072  df-v 3424  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4254  df-if 4457  df-sn 4559  df-pr 4561  df-op 4565  df-uni 4837  df-br 5071  df-opab 5133  df-mpt 5154  df-id 5480  df-po 5494  df-so 5495  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-iota 6376  df-fun 6420  df-fv 6426  df-1st 7804  df-2nd 7805
This theorem is referenced by:  wexp  7942  rrx2plordso  45958
  Copyright terms: Public domain W3C validator