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

Theorem ecopovsym 8815
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 5761 . . . . 5 {⟨𝑥, 𝑦⟩ ∣ ((𝑥 ∈ (𝑆 × 𝑆) ∧ 𝑦 ∈ (𝑆 × 𝑆)) ∧ ∃𝑧𝑤𝑣𝑢((𝑥 = ⟨𝑧, 𝑤⟩ ∧ 𝑦 = ⟨𝑣, 𝑢⟩) ∧ (𝑧 + 𝑢) = (𝑤 + 𝑣)))} ⊆ ((𝑆 × 𝑆) × (𝑆 × 𝑆))
31, 2eqsstri 4011 . . . 4 ⊆ ((𝑆 × 𝑆) × (𝑆 × 𝑆))
43brel 5734 . . 3 (𝐴 𝐵 → (𝐴 ∈ (𝑆 × 𝑆) ∧ 𝐵 ∈ (𝑆 × 𝑆)))
5 eqid 2726 . . . 4 (𝑆 × 𝑆) = (𝑆 × 𝑆)
6 breq1 5144 . . . . 5 (⟨𝑓, 𝑔⟩ = 𝐴 → (⟨𝑓, 𝑔, 𝑡⟩ ↔ 𝐴 , 𝑡⟩))
7 breq2 5145 . . . . 5 (⟨𝑓, 𝑔⟩ = 𝐴 → (⟨, 𝑡𝑓, 𝑔⟩ ↔ ⟨, 𝑡 𝐴))
86, 7bibi12d 345 . . . 4 (⟨𝑓, 𝑔⟩ = 𝐴 → ((⟨𝑓, 𝑔, 𝑡⟩ ↔ ⟨, 𝑡𝑓, 𝑔⟩) ↔ (𝐴 , 𝑡⟩ ↔ ⟨, 𝑡 𝐴)))
9 breq2 5145 . . . . 5 (⟨, 𝑡⟩ = 𝐵 → (𝐴 , 𝑡⟩ ↔ 𝐴 𝐵))
10 breq1 5144 . . . . 5 (⟨, 𝑡⟩ = 𝐵 → (⟨, 𝑡 𝐴𝐵 𝐴))
119, 10bibi12d 345 . . . 4 (⟨, 𝑡⟩ = 𝐵 → ((𝐴 , 𝑡⟩ ↔ ⟨, 𝑡 𝐴) ↔ (𝐴 𝐵𝐵 𝐴)))
121ecopoveq 8814 . . . . . 6 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨𝑓, 𝑔, 𝑡⟩ ↔ (𝑓 + 𝑡) = (𝑔 + )))
13 vex 3472 . . . . . . . . 9 𝑓 ∈ V
14 vex 3472 . . . . . . . . 9 𝑡 ∈ V
15 ecopopr.com . . . . . . . . 9 (𝑥 + 𝑦) = (𝑦 + 𝑥)
1613, 14, 15caovcom 7601 . . . . . . . 8 (𝑓 + 𝑡) = (𝑡 + 𝑓)
17 vex 3472 . . . . . . . . 9 𝑔 ∈ V
18 vex 3472 . . . . . . . . 9 ∈ V
1917, 18, 15caovcom 7601 . . . . . . . 8 (𝑔 + ) = ( + 𝑔)
2016, 19eqeq12i 2744 . . . . . . 7 ((𝑓 + 𝑡) = (𝑔 + ) ↔ (𝑡 + 𝑓) = ( + 𝑔))
21 eqcom 2733 . . . . . . 7 ((𝑡 + 𝑓) = ( + 𝑔) ↔ ( + 𝑔) = (𝑡 + 𝑓))
2220, 21bitri 275 . . . . . 6 ((𝑓 + 𝑡) = (𝑔 + ) ↔ ( + 𝑔) = (𝑡 + 𝑓))
2312, 22bitrdi 287 . . . . 5 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨𝑓, 𝑔, 𝑡⟩ ↔ ( + 𝑔) = (𝑡 + 𝑓)))
241ecopoveq 8814 . . . . . 6 (((𝑆𝑡𝑆) ∧ (𝑓𝑆𝑔𝑆)) → (⟨, 𝑡𝑓, 𝑔⟩ ↔ ( + 𝑔) = (𝑡 + 𝑓)))
2524ancoms 458 . . . . 5 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨, 𝑡𝑓, 𝑔⟩ ↔ ( + 𝑔) = (𝑡 + 𝑓)))
2623, 25bitr4d 282 . . . 4 (((𝑓𝑆𝑔𝑆) ∧ (𝑆𝑡𝑆)) → (⟨𝑓, 𝑔, 𝑡⟩ ↔ ⟨, 𝑡𝑓, 𝑔⟩))
275, 8, 11, 262optocl 5764 . . 3 ((𝐴 ∈ (𝑆 × 𝑆) ∧ 𝐵 ∈ (𝑆 × 𝑆)) → (𝐴 𝐵𝐵 𝐴))
284, 27syl 17 . 2 (𝐴 𝐵 → (𝐴 𝐵𝐵 𝐴))
2928ibi 267 1 (𝐴 𝐵𝐵 𝐴)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395   = wceq 1533  wex 1773  wcel 2098  cop 4629   class class class wbr 5141  {copab 5203   × cxp 5667  (class class class)co 7405
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-ext 2697  ax-sep 5292  ax-nul 5299  ax-pr 5420
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-sb 2060  df-clab 2704  df-cleq 2718  df-clel 2804  df-ral 3056  df-rex 3065  df-rab 3427  df-v 3470  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-xp 5675  df-iota 6489  df-fv 6545  df-ov 7408
This theorem is referenced by:  ecopover  8817
  Copyright terms: Public domain W3C validator