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

Theorem setscom 17122
Description: Different components can be set in any order. (Contributed by Mario Carneiro, 5-Dec-2014.) (Revised by Mario Carneiro, 30-Apr-2015.)
Hypotheses
Ref Expression
setscom.1 𝐴 ∈ V
setscom.2 𝐵 ∈ V
Assertion
Ref Expression
setscom (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐴, 𝐶⟩) sSet ⟨𝐵, 𝐷⟩) = ((𝑆 sSet ⟨𝐵, 𝐷⟩) sSet ⟨𝐴, 𝐶⟩))

Proof of Theorem setscom
StepHypRef Expression
1 rescom 6001 . . . . . 6 ((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) = ((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴}))
21uneq1i 4154 . . . . 5 (((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}) = (((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩})
32uneq1i 4154 . . . 4 ((((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}) ∪ {⟨𝐵, 𝐷⟩}) = ((((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}) ∪ {⟨𝐵, 𝐷⟩})
4 un23 4163 . . . 4 ((((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}) ∪ {⟨𝐵, 𝐷⟩}) = ((((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐵, 𝐷⟩}) ∪ {⟨𝐴, 𝐶⟩})
53, 4eqtri 2754 . . 3 ((((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}) ∪ {⟨𝐵, 𝐷⟩}) = ((((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐵, 𝐷⟩}) ∪ {⟨𝐴, 𝐶⟩})
6 setsval 17109 . . . . . . 7 ((𝑆𝑉𝐶𝑊) → (𝑆 sSet ⟨𝐴, 𝐶⟩) = ((𝑆 ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}))
76ad2ant2r 744 . . . . . 6 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (𝑆 sSet ⟨𝐴, 𝐶⟩) = ((𝑆 ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}))
87reseq1d 5974 . . . . 5 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐴, 𝐶⟩) ↾ (V ∖ {𝐵})) = (((𝑆 ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}) ↾ (V ∖ {𝐵})))
9 resundir 5990 . . . . . 6 (((𝑆 ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}) ↾ (V ∖ {𝐵})) = (((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ ({⟨𝐴, 𝐶⟩} ↾ (V ∖ {𝐵})))
10 setscom.1 . . . . . . . . . 10 𝐴 ∈ V
11 elex 3487 . . . . . . . . . . 11 (𝐶𝑊𝐶 ∈ V)
1211ad2antrl 725 . . . . . . . . . 10 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → 𝐶 ∈ V)
13 opelxpi 5706 . . . . . . . . . 10 ((𝐴 ∈ V ∧ 𝐶 ∈ V) → ⟨𝐴, 𝐶⟩ ∈ (V × V))
1410, 12, 13sylancr 586 . . . . . . . . 9 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ⟨𝐴, 𝐶⟩ ∈ (V × V))
15 opex 5457 . . . . . . . . . 10 𝐴, 𝐶⟩ ∈ V
1615relsn 5797 . . . . . . . . 9 (Rel {⟨𝐴, 𝐶⟩} ↔ ⟨𝐴, 𝐶⟩ ∈ (V × V))
1714, 16sylibr 233 . . . . . . . 8 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → Rel {⟨𝐴, 𝐶⟩})
18 dmsnopss 6207 . . . . . . . . 9 dom {⟨𝐴, 𝐶⟩} ⊆ {𝐴}
19 disjsn2 4711 . . . . . . . . . . 11 (𝐴𝐵 → ({𝐴} ∩ {𝐵}) = ∅)
2019ad2antlr 724 . . . . . . . . . 10 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ({𝐴} ∩ {𝐵}) = ∅)
21 disj2 4452 . . . . . . . . . 10 (({𝐴} ∩ {𝐵}) = ∅ ↔ {𝐴} ⊆ (V ∖ {𝐵}))
2220, 21sylib 217 . . . . . . . . 9 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → {𝐴} ⊆ (V ∖ {𝐵}))
2318, 22sstrid 3988 . . . . . . . 8 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → dom {⟨𝐴, 𝐶⟩} ⊆ (V ∖ {𝐵}))
24 relssres 6016 . . . . . . . 8 ((Rel {⟨𝐴, 𝐶⟩} ∧ dom {⟨𝐴, 𝐶⟩} ⊆ (V ∖ {𝐵})) → ({⟨𝐴, 𝐶⟩} ↾ (V ∖ {𝐵})) = {⟨𝐴, 𝐶⟩})
2517, 23, 24syl2anc 583 . . . . . . 7 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ({⟨𝐴, 𝐶⟩} ↾ (V ∖ {𝐵})) = {⟨𝐴, 𝐶⟩})
2625uneq2d 4158 . . . . . 6 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ ({⟨𝐴, 𝐶⟩} ↾ (V ∖ {𝐵}))) = (((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}))
279, 26eqtrid 2778 . . . . 5 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}) ↾ (V ∖ {𝐵})) = (((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}))
288, 27eqtrd 2766 . . . 4 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐴, 𝐶⟩) ↾ (V ∖ {𝐵})) = (((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}))
2928uneq1d 4157 . . 3 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 sSet ⟨𝐴, 𝐶⟩) ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}) = ((((𝑆 ↾ (V ∖ {𝐴})) ↾ (V ∖ {𝐵})) ∪ {⟨𝐴, 𝐶⟩}) ∪ {⟨𝐵, 𝐷⟩}))
30 setsval 17109 . . . . . . 7 ((𝑆𝑉𝐷𝑋) → (𝑆 sSet ⟨𝐵, 𝐷⟩) = ((𝑆 ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}))
3130reseq1d 5974 . . . . . 6 ((𝑆𝑉𝐷𝑋) → ((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) = (((𝑆 ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}) ↾ (V ∖ {𝐴})))
3231ad2ant2rl 746 . . . . 5 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) = (((𝑆 ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}) ↾ (V ∖ {𝐴})))
33 resundir 5990 . . . . . 6 (((𝑆 ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}) ↾ (V ∖ {𝐴})) = (((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ ({⟨𝐵, 𝐷⟩} ↾ (V ∖ {𝐴})))
34 setscom.2 . . . . . . . . . 10 𝐵 ∈ V
35 elex 3487 . . . . . . . . . . 11 (𝐷𝑋𝐷 ∈ V)
3635ad2antll 726 . . . . . . . . . 10 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → 𝐷 ∈ V)
37 opelxpi 5706 . . . . . . . . . 10 ((𝐵 ∈ V ∧ 𝐷 ∈ V) → ⟨𝐵, 𝐷⟩ ∈ (V × V))
3834, 36, 37sylancr 586 . . . . . . . . 9 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ⟨𝐵, 𝐷⟩ ∈ (V × V))
39 opex 5457 . . . . . . . . . 10 𝐵, 𝐷⟩ ∈ V
4039relsn 5797 . . . . . . . . 9 (Rel {⟨𝐵, 𝐷⟩} ↔ ⟨𝐵, 𝐷⟩ ∈ (V × V))
4138, 40sylibr 233 . . . . . . . 8 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → Rel {⟨𝐵, 𝐷⟩})
42 dmsnopss 6207 . . . . . . . . 9 dom {⟨𝐵, 𝐷⟩} ⊆ {𝐵}
43 ssv 4001 . . . . . . . . . . 11 {𝐴} ⊆ V
44 ssv 4001 . . . . . . . . . . 11 {𝐵} ⊆ V
45 ssconb 4132 . . . . . . . . . . 11 (({𝐴} ⊆ V ∧ {𝐵} ⊆ V) → ({𝐴} ⊆ (V ∖ {𝐵}) ↔ {𝐵} ⊆ (V ∖ {𝐴})))
4643, 44, 45mp2an 689 . . . . . . . . . 10 ({𝐴} ⊆ (V ∖ {𝐵}) ↔ {𝐵} ⊆ (V ∖ {𝐴}))
4722, 46sylib 217 . . . . . . . . 9 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → {𝐵} ⊆ (V ∖ {𝐴}))
4842, 47sstrid 3988 . . . . . . . 8 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → dom {⟨𝐵, 𝐷⟩} ⊆ (V ∖ {𝐴}))
49 relssres 6016 . . . . . . . 8 ((Rel {⟨𝐵, 𝐷⟩} ∧ dom {⟨𝐵, 𝐷⟩} ⊆ (V ∖ {𝐴})) → ({⟨𝐵, 𝐷⟩} ↾ (V ∖ {𝐴})) = {⟨𝐵, 𝐷⟩})
5041, 48, 49syl2anc 583 . . . . . . 7 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ({⟨𝐵, 𝐷⟩} ↾ (V ∖ {𝐴})) = {⟨𝐵, 𝐷⟩})
5150uneq2d 4158 . . . . . 6 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ ({⟨𝐵, 𝐷⟩} ↾ (V ∖ {𝐴}))) = (((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐵, 𝐷⟩}))
5233, 51eqtrid 2778 . . . . 5 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}) ↾ (V ∖ {𝐴})) = (((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐵, 𝐷⟩}))
5332, 52eqtrd 2766 . . . 4 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) = (((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐵, 𝐷⟩}))
5453uneq1d 4157 . . 3 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}) = ((((𝑆 ↾ (V ∖ {𝐵})) ↾ (V ∖ {𝐴})) ∪ {⟨𝐵, 𝐷⟩}) ∪ {⟨𝐴, 𝐶⟩}))
555, 29, 543eqtr4a 2792 . 2 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → (((𝑆 sSet ⟨𝐴, 𝐶⟩) ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}) = (((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}))
56 ovex 7438 . . 3 (𝑆 sSet ⟨𝐴, 𝐶⟩) ∈ V
57 simprr 770 . . 3 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → 𝐷𝑋)
58 setsval 17109 . . 3 (((𝑆 sSet ⟨𝐴, 𝐶⟩) ∈ V ∧ 𝐷𝑋) → ((𝑆 sSet ⟨𝐴, 𝐶⟩) sSet ⟨𝐵, 𝐷⟩) = (((𝑆 sSet ⟨𝐴, 𝐶⟩) ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}))
5956, 57, 58sylancr 586 . 2 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐴, 𝐶⟩) sSet ⟨𝐵, 𝐷⟩) = (((𝑆 sSet ⟨𝐴, 𝐶⟩) ↾ (V ∖ {𝐵})) ∪ {⟨𝐵, 𝐷⟩}))
60 ovex 7438 . . 3 (𝑆 sSet ⟨𝐵, 𝐷⟩) ∈ V
61 simprl 768 . . 3 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → 𝐶𝑊)
62 setsval 17109 . . 3 (((𝑆 sSet ⟨𝐵, 𝐷⟩) ∈ V ∧ 𝐶𝑊) → ((𝑆 sSet ⟨𝐵, 𝐷⟩) sSet ⟨𝐴, 𝐶⟩) = (((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}))
6360, 61, 62sylancr 586 . 2 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐵, 𝐷⟩) sSet ⟨𝐴, 𝐶⟩) = (((𝑆 sSet ⟨𝐵, 𝐷⟩) ↾ (V ∖ {𝐴})) ∪ {⟨𝐴, 𝐶⟩}))
6455, 59, 633eqtr4d 2776 1 (((𝑆𝑉𝐴𝐵) ∧ (𝐶𝑊𝐷𝑋)) → ((𝑆 sSet ⟨𝐴, 𝐶⟩) sSet ⟨𝐵, 𝐷⟩) = ((𝑆 sSet ⟨𝐵, 𝐷⟩) sSet ⟨𝐴, 𝐶⟩))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395   = wceq 1533  wcel 2098  wne 2934  Vcvv 3468  cdif 3940  cun 3941  cin 3942  wss 3943  c0 4317  {csn 4623  cop 4629   × cxp 5667  dom cdm 5669  cres 5671  Rel wrel 5674  (class class class)co 7405   sSet csts 17105
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-sep 5292  ax-nul 5299  ax-pr 5420  ax-un 7722
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-ral 3056  df-rex 3065  df-rab 3427  df-v 3470  df-sbc 3773  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-nul 4318  df-if 4524  df-sn 4624  df-pr 4626  df-op 4630  df-uni 4903  df-br 5142  df-opab 5204  df-id 5567  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-res 5681  df-iota 6489  df-fun 6539  df-fv 6545  df-ov 7408  df-oprab 7409  df-mpo 7410  df-sets 17106
This theorem is referenced by:  rescabs  17791  rescabsOLD  17792  mgpress  20054  mgpressOLD  20055  resssra  33192
  Copyright terms: Public domain W3C validator