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

Theorem ecopovsym 7797
Description: Assuming the operation 𝐹 is commutative, show that the relation , specified by the first hypothesis, is symmetric. (Contributed by NM, 27-Aug-1995.) (Revised by Mario Carneiro, 26-Apr-2015.)
Hypotheses
Ref Expression
ecopopr.1 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 + 𝑢) = (𝑤 + 𝑣)))}
ecopopr.com (𝑥 + 𝑦) = (𝑦 + 𝑥)
Assertion
Ref Expression
ecopovsym (𝐴 𝐵𝐵 𝐴)
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝑣,𝑢, +   𝑥,𝑆,𝑦,𝑧,𝑤,𝑣,𝑢
Allowed substitution hints:   𝐴(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐵(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   (𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)

Proof of Theorem ecopovsym
Dummy variables 𝑓 𝑔 𝑡 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 ecopopr.1 . . . . 5 = {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 + 𝑢) = (𝑤 + 𝑣)))}
2 opabssxp 5156 . . . . 5 {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 + 𝑢) = (𝑤 + 𝑣)))} ⊆ ((𝑆 × 𝑆) × (𝑆 × 𝑆))
31, 2eqsstri 3616 . . . 4 ⊆ ((𝑆 × 𝑆) × (𝑆 × 𝑆))
43brel 5130 . . 3 (𝐴 𝐵 → (𝐴 ∈ (𝑆 × 𝑆) ∧ 𝐵 ∈ (𝑆 × 𝑆)))
5 eqid 2621 . . . 4 (𝑆 × 𝑆) = (𝑆 × 𝑆)
6 breq1 4618 . . . . 5 (⟨𝑓, 𝑔⟩ = 𝐴 → (⟨𝑓, 𝑔, 𝑡⟩ ↔ 𝐴 , 𝑡⟩))
7 breq2 4619 . . . . 5 (⟨𝑓, 𝑔⟩ = 𝐴 → (⟨, 𝑡𝑓, 𝑔⟩ ↔ ⟨, 𝑡 𝐴))
86, 7bibi12d 335 . . . 4 (⟨𝑓, 𝑔⟩ = 𝐴 → ((⟨𝑓, 𝑔, 𝑡⟩ ↔ ⟨, 𝑡𝑓, 𝑔⟩) ↔ (𝐴 , 𝑡⟩ ↔ ⟨, 𝑡 𝐴)))
9 breq2 4619 . . . . 5 (⟨, 𝑡⟩ = 𝐵 → (𝐴 , 𝑡⟩ ↔ 𝐴 𝐵))
10 breq1 4618 . . . . 5 (⟨, 𝑡⟩ = 𝐵 → (⟨, 𝑡 𝐴𝐵 𝐴))
119, 10bibi12d 335 . . . 4 (⟨, 𝑡⟩ = 𝐵 → ((𝐴 , 𝑡⟩ ↔ ⟨, 𝑡 𝐴) ↔ (𝐴 𝐵𝐵 𝐴)))
121ecopoveq 7796 . . . . . 6 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨𝑓, 𝑔, 𝑡⟩ ↔ (𝑓 + 𝑡) = (𝑔 + )))
13 vex 3189 . . . . . . . . 9 𝑓 ∈ V
14 vex 3189 . . . . . . . . 9 𝑡 ∈ V
15 ecopopr.com . . . . . . . . 9 (𝑥 + 𝑦) = (𝑦 + 𝑥)
1613, 14, 15caovcom 6787 . . . . . . . 8 (𝑓 + 𝑡) = (𝑡 + 𝑓)
17 vex 3189 . . . . . . . . 9 𝑔 ∈ V
18 vex 3189 . . . . . . . . 9 ∈ V
1917, 18, 15caovcom 6787 . . . . . . . 8 (𝑔 + ) = ( + 𝑔)
2016, 19eqeq12i 2635 . . . . . . 7 ((𝑓 + 𝑡) = (𝑔 + ) ↔ (𝑡 + 𝑓) = ( + 𝑔))
21 eqcom 2628 . . . . . . 7 ((𝑡 + 𝑓) = ( + 𝑔) ↔ ( + 𝑔) = (𝑡 + 𝑓))
2220, 21bitri 264 . . . . . 6 ((𝑓 + 𝑡) = (𝑔 + ) ↔ ( + 𝑔) = (𝑡 + 𝑓))
2312, 22syl6bb 276 . . . . 5 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨𝑓, 𝑔, 𝑡⟩ ↔ ( + 𝑔) = (𝑡 + 𝑓)))
241ecopoveq 7796 . . . . . 6 (((𝑆𝑡𝑆) ∧ (𝑓𝑆𝑔𝑆)) → (⟨, 𝑡𝑓, 𝑔⟩ ↔ ( + 𝑔) = (𝑡 + 𝑓)))
2524ancoms 469 . . . . 5 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨, 𝑡𝑓, 𝑔⟩ ↔ ( + 𝑔) = (𝑡 + 𝑓)))
2623, 25bitr4d 271 . . . 4 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨𝑓, 𝑔, 𝑡⟩ ↔ ⟨, 𝑡𝑓, 𝑔⟩))
275, 8, 11, 262optocl 5159 . . 3 ((𝐴 ∈ (𝑆 × 𝑆) ∧ 𝐵 ∈ (𝑆 × 𝑆)) → (𝐴 𝐵𝐵 𝐴))
284, 27syl 17 . 2 (𝐴 𝐵 → (𝐴 𝐵𝐵 𝐴))
2928ibi 256 1 (𝐴 𝐵𝐵 𝐴)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384   = wceq 1480  wex 1701  wcel 1987  cop 4156   class class class wbr 4615  {copab 4674   × cxp 5074  (class class class)co 6607
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-sep 4743  ax-nul 4751  ax-pr 4869
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1038  df-tru 1483  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ral 2912  df-rex 2913  df-rab 2916  df-v 3188  df-dif 3559  df-un 3561  df-in 3563  df-ss 3570  df-nul 3894  df-if 4061  df-sn 4151  df-pr 4153  df-op 4157  df-uni 4405  df-br 4616  df-opab 4676  df-xp 5082  df-iota 5812  df-fv 5857  df-ov 6610
This theorem is referenced by:  ecopover  7799  ecopoverOLD  7800
  Copyright terms: Public domain W3C validator