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

Theorem ecoviass 6305
Description: Lemma used to transfer an associative law via an equivalence relation. (Contributed by Jim Kingdon, 16-Sep-2019.)
Hypotheses
Ref Expression
ecoviass.1 𝐷 = ((𝑆 × 𝑆) / )
ecoviass.2 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = [⟨𝐺, 𝐻⟩] )
ecoviass.3 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝑁, 𝑄⟩] )
ecoviass.4 (((𝐺𝑆𝐻𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
ecoviass.5 (((𝑥𝑆𝑦𝑆) ∧ (𝑁𝑆𝑄𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ) = [⟨𝐿, 𝑀⟩] )
ecoviass.6 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → (𝐺𝑆𝐻𝑆))
ecoviass.7 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (𝑁𝑆𝑄𝑆))
ecoviass.8 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → 𝐽 = 𝐿)
ecoviass.9 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → 𝐾 = 𝑀)
Assertion
Ref Expression
ecoviass ((𝐴𝐷𝐵𝐷𝐶𝐷) → ((𝐴 + 𝐵) + 𝐶) = (𝐴 + (𝐵 + 𝐶)))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝐴   𝑧,𝐵,𝑤,𝑣,𝑢   𝑥,𝐶,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥, + ,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥, ,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥,𝑆,𝑦,𝑧,𝑤,𝑣,𝑢   𝑧,𝐷,𝑤,𝑣,𝑢
Allowed substitution hints:   𝐵(𝑥,𝑦)   𝐷(𝑥,𝑦)   𝑄(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐺(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐻(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐽(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐾(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐿(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝑀(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝑁(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)

Proof of Theorem ecoviass
StepHypRef Expression
1 ecoviass.1 . 2 𝐷 = ((𝑆 × 𝑆) / )
2 oveq1 5572 . . . 4 ([⟨𝑥, 𝑦⟩] = 𝐴 → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = (𝐴 + [⟨𝑧, 𝑤⟩] ))
32oveq1d 5580 . . 3 ([⟨𝑥, 𝑦⟩] = 𝐴 → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ))
4 oveq1 5572 . . 3 ([⟨𝑥, 𝑦⟩] = 𝐴 → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )))
53, 4eqeq12d 2097 . 2 ([⟨𝑥, 𝑦⟩] = 𝐴 → ((([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) ↔ ((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ))))
6 oveq2 5573 . . . 4 ([⟨𝑧, 𝑤⟩] = 𝐵 → (𝐴 + [⟨𝑧, 𝑤⟩] ) = (𝐴 + 𝐵))
76oveq1d 5580 . . 3 ([⟨𝑧, 𝑤⟩] = 𝐵 → ((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ))
8 oveq1 5572 . . . 4 ([⟨𝑧, 𝑤⟩] = 𝐵 → ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ) = (𝐵 + [⟨𝑣, 𝑢⟩] ))
98oveq2d 5581 . . 3 ([⟨𝑧, 𝑤⟩] = 𝐵 → (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] )))
107, 9eqeq12d 2097 . 2 ([⟨𝑧, 𝑤⟩] = 𝐵 → (((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) ↔ ((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] ))))
11 oveq2 5573 . . 3 ([⟨𝑣, 𝑢⟩] = 𝐶 → ((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ) = ((𝐴 + 𝐵) + 𝐶))
12 oveq2 5573 . . . 4 ([⟨𝑣, 𝑢⟩] = 𝐶 → (𝐵 + [⟨𝑣, 𝑢⟩] ) = (𝐵 + 𝐶))
1312oveq2d 5581 . . 3 ([⟨𝑣, 𝑢⟩] = 𝐶 → (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] )) = (𝐴 + (𝐵 + 𝐶)))
1411, 13eqeq12d 2097 . 2 ([⟨𝑣, 𝑢⟩] = 𝐶 → (((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] )) ↔ ((𝐴 + 𝐵) + 𝐶) = (𝐴 + (𝐵 + 𝐶))))
15 ecoviass.8 . . . 4 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → 𝐽 = 𝐿)
16 ecoviass.9 . . . 4 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → 𝐾 = 𝑀)
17 opeq12 3593 . . . . 5 ((𝐽 = 𝐿𝐾 = 𝑀) → ⟨𝐽, 𝐾⟩ = ⟨𝐿, 𝑀⟩)
1817eceq1d 6231 . . . 4 ((𝐽 = 𝐿𝐾 = 𝑀) → [⟨𝐽, 𝐾⟩] = [⟨𝐿, 𝑀⟩] )
1915, 16, 18syl2anc 403 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → [⟨𝐽, 𝐾⟩] = [⟨𝐿, 𝑀⟩] )
20 ecoviass.2 . . . . . . 7 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = [⟨𝐺, 𝐻⟩] )
2120oveq1d 5580 . . . . . 6 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ))
2221adantr 270 . . . . 5 ((((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ))
23 ecoviass.6 . . . . . 6 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → (𝐺𝑆𝐻𝑆))
24 ecoviass.4 . . . . . 6 (((𝐺𝑆𝐻𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
2523, 24sylan 277 . . . . 5 ((((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
2622, 25eqtrd 2115 . . . 4 ((((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
27263impa 1134 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
28 ecoviass.3 . . . . . . 7 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝑁, 𝑄⟩] )
2928oveq2d 5581 . . . . . 6 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ))
3029adantl 271 . . . . 5 (((𝑥𝑆𝑦𝑆) ∧ ((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆))) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ))
31 ecoviass.7 . . . . . 6 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (𝑁𝑆𝑄𝑆))
32 ecoviass.5 . . . . . 6 (((𝑥𝑆𝑦𝑆) ∧ (𝑁𝑆𝑄𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ) = [⟨𝐿, 𝑀⟩] )
3331, 32sylan2 280 . . . . 5 (((𝑥𝑆𝑦𝑆) ∧ ((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆))) → ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ) = [⟨𝐿, 𝑀⟩] )
3430, 33eqtrd 2115 . . . 4 (((𝑥𝑆𝑦𝑆) ∧ ((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆))) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = [⟨𝐿, 𝑀⟩] )
35343impb 1135 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = [⟨𝐿, 𝑀⟩] )
3619, 27, 353eqtr4d 2125 . 2 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )))
371, 5, 10, 14, 363ecoptocl 6284 1 ((𝐴𝐷𝐵𝐷𝐶𝐷) → ((𝐴 + 𝐵) + 𝐶) = (𝐴 + (𝐵 + 𝐶)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 102  w3a 920   = wceq 1285  wcel 1434  cop 3420   × cxp 4390  (class class class)co 5565  [cec 6193   / cqs 6194
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-io 663  ax-5 1377  ax-7 1378  ax-gen 1379  ax-ie1 1423  ax-ie2 1424  ax-8 1436  ax-10 1437  ax-11 1438  ax-i12 1439  ax-bndl 1440  ax-4 1441  ax-14 1446  ax-17 1460  ax-i9 1464  ax-ial 1468  ax-i5r 1469  ax-ext 2065  ax-sep 3917  ax-pow 3969  ax-pr 3993
This theorem depends on definitions:  df-bi 115  df-3an 922  df-tru 1288  df-nf 1391  df-sb 1688  df-clab 2070  df-cleq 2076  df-clel 2079  df-nfc 2212  df-ral 2358  df-rex 2359  df-v 2613  df-un 2987  df-in 2989  df-ss 2996  df-pw 3403  df-sn 3423  df-pr 3424  df-op 3426  df-uni 3623  df-br 3807  df-opab 3861  df-xp 4398  df-cnv 4400  df-dm 4402  df-rn 4403  df-res 4404  df-ima 4405  df-iota 4918  df-fv 4961  df-ov 5568  df-ec 6197  df-qs 6201
This theorem is referenced by:  addassnqg  6711  mulassnqg  6713  addasssrg  7072  mulasssrg  7074  axaddass  7177  axmulass  7178
  Copyright terms: Public domain W3C validator