Intuitionistic Logic Explorer < Previous   Next > Nearby theorems Mirrors  >  Home  >  ILE Home  >  Th. List  >  ecovicom GIF version

Theorem ecovicom 6214
 Description: Lemma used to transfer a commutative law via an equivalence relation. (Contributed by Jim Kingdon, 15-Sep-2019.)
Hypotheses
Ref Expression
ecovicom.1 𝐶 = ((𝑆 × 𝑆) / )
ecovicom.2 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = [⟨𝐷, 𝐺⟩] )
ecovicom.3 (((𝑧𝑆𝑤𝑆) ∧ (𝑥𝑆𝑦𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑥, 𝑦⟩] ) = [⟨𝐻, 𝐽⟩] )
ecovicom.4 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → 𝐷 = 𝐻)
ecovicom.5 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → 𝐺 = 𝐽)
Assertion
Ref Expression
ecovicom ((𝐴𝐶𝐵𝐶) → (𝐴 + 𝐵) = (𝐵 + 𝐴))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝐴   𝑧,𝐵,𝑤   𝑥, + ,𝑦,𝑧,𝑤   𝑥, ,𝑦,𝑧,𝑤   𝑥,𝑆,𝑦,𝑧,𝑤   𝑧,𝐶,𝑤
Allowed substitution hints:   𝐵(𝑥,𝑦)   𝐶(𝑥,𝑦)   𝐷(𝑥,𝑦,𝑧,𝑤)   𝐺(𝑥,𝑦,𝑧,𝑤)   𝐻(𝑥,𝑦,𝑧,𝑤)   𝐽(𝑥,𝑦,𝑧,𝑤)

Proof of Theorem ecovicom
StepHypRef Expression
1 ecovicom.1 . 2 𝐶 = ((𝑆 × 𝑆) / )
2 oveq1 5519 . . 3 ([⟨𝑥, 𝑦⟩] = 𝐴 → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = (𝐴 + [⟨𝑧, 𝑤⟩] ))
3 oveq2 5520 . . 3 ([⟨𝑥, 𝑦⟩] = 𝐴 → ([⟨𝑧, 𝑤⟩] + [⟨𝑥, 𝑦⟩] ) = ([⟨𝑧, 𝑤⟩] + 𝐴))
42, 3eqeq12d 2054 . 2 ([⟨𝑥, 𝑦⟩] = 𝐴 → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = ([⟨𝑧, 𝑤⟩] + [⟨𝑥, 𝑦⟩] ) ↔ (𝐴 + [⟨𝑧, 𝑤⟩] ) = ([⟨𝑧, 𝑤⟩] + 𝐴)))
5 oveq2 5520 . . 3 ([⟨𝑧, 𝑤⟩] = 𝐵 → (𝐴 + [⟨𝑧, 𝑤⟩] ) = (𝐴 + 𝐵))
6 oveq1 5519 . . 3 ([⟨𝑧, 𝑤⟩] = 𝐵 → ([⟨𝑧, 𝑤⟩] + 𝐴) = (𝐵 + 𝐴))
75, 6eqeq12d 2054 . 2 ([⟨𝑧, 𝑤⟩] = 𝐵 → ((𝐴 + [⟨𝑧, 𝑤⟩] ) = ([⟨𝑧, 𝑤⟩] + 𝐴) ↔ (𝐴 + 𝐵) = (𝐵 + 𝐴)))
8 ecovicom.4 . . . 4 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → 𝐷 = 𝐻)
9 ecovicom.5 . . . 4 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → 𝐺 = 𝐽)
10 opeq12 3551 . . . . 5 ((𝐷 = 𝐻𝐺 = 𝐽) → ⟨𝐷, 𝐺⟩ = ⟨𝐻, 𝐽⟩)
1110eceq1d 6142 . . . 4 ((𝐷 = 𝐻𝐺 = 𝐽) → [⟨𝐷, 𝐺⟩] = [⟨𝐻, 𝐽⟩] )
128, 9, 11syl2anc 391 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → [⟨𝐷, 𝐺⟩] = [⟨𝐻, 𝐽⟩] )
13 ecovicom.2 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = [⟨𝐷, 𝐺⟩] )
14 ecovicom.3 . . . 4 (((𝑧𝑆𝑤𝑆) ∧ (𝑥𝑆𝑦𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑥, 𝑦⟩] ) = [⟨𝐻, 𝐽⟩] )
1514ancoms 255 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑥, 𝑦⟩] ) = [⟨𝐻, 𝐽⟩] )
1612, 13, 153eqtr4d 2082 . 2 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = ([⟨𝑧, 𝑤⟩] + [⟨𝑥, 𝑦⟩] ))
171, 4, 7, 162ecoptocl 6194 1 ((𝐴𝐶𝐵𝐶) → (𝐴 + 𝐵) = (𝐵 + 𝐴))
 Colors of variables: wff set class Syntax hints:   → wi 4   ∧ wa 97   = wceq 1243   ∈ wcel 1393  ⟨cop 3378   × cxp 4343  (class class class)co 5512  [cec 6104   / cqs 6105 This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-io 630  ax-5 1336  ax-7 1337  ax-gen 1338  ax-ie1 1382  ax-ie2 1383  ax-8 1395  ax-10 1396  ax-11 1397  ax-i12 1398  ax-bndl 1399  ax-4 1400  ax-14 1405  ax-17 1419  ax-i9 1423  ax-ial 1427  ax-i5r 1428  ax-ext 2022  ax-sep 3875  ax-pow 3927  ax-pr 3944 This theorem depends on definitions:  df-bi 110  df-3an 887  df-tru 1246  df-nf 1350  df-sb 1646  df-clab 2027  df-cleq 2033  df-clel 2036  df-nfc 2167  df-ral 2311  df-rex 2312  df-v 2559  df-un 2922  df-in 2924  df-ss 2931  df-pw 3361  df-sn 3381  df-pr 3382  df-op 3384  df-uni 3581  df-br 3765  df-opab 3819  df-xp 4351  df-cnv 4353  df-dm 4355  df-rn 4356  df-res 4357  df-ima 4358  df-iota 4867  df-fv 4910  df-ov 5515  df-ec 6108  df-qs 6112 This theorem is referenced by:  addcomnqg  6479  mulcomnqg  6481  addcomsrg  6840  mulcomsrg  6842  axmulcom  6945
 Copyright terms: Public domain W3C validator