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

Theorem ecovass 6504
Description: Lemma used to transfer an associative law via an equivalence relation. In most cases ecoviass 6505 will be more useful. (Contributed by NM, 31-Aug-1995.) (Revised by David Abernethy, 4-Jun-2013.)
Hypotheses
Ref Expression
ecovass.1 𝐷 = ((𝑆 × 𝑆) / )
ecovass.2 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = [⟨𝐺, 𝐻⟩] )
ecovass.3 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝑁, 𝑄⟩] )
ecovass.4 (((𝐺𝑆𝐻𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
ecovass.5 (((𝑥𝑆𝑦𝑆) ∧ (𝑁𝑆𝑄𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ) = [⟨𝐿, 𝑀⟩] )
ecovass.6 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → (𝐺𝑆𝐻𝑆))
ecovass.7 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (𝑁𝑆𝑄𝑆))
ecovass.8 𝐽 = 𝐿
ecovass.9 𝐾 = 𝑀
Assertion
Ref Expression
ecovass ((𝐴𝐷𝐵𝐷𝐶𝐷) → ((𝐴 + 𝐵) + 𝐶) = (𝐴 + (𝐵 + 𝐶)))
Distinct variable groups:   𝑥,𝑦,𝑧,𝑤,𝑣,𝑢,𝐴   𝑧,𝐵,𝑤,𝑣,𝑢   𝑥,𝐶,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥, + ,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥, ,𝑦,𝑧,𝑤,𝑣,𝑢   𝑥,𝑆,𝑦,𝑧,𝑤,𝑣,𝑢   𝑧,𝐷,𝑤,𝑣,𝑢
Allowed substitution hints:   𝐵(𝑥,𝑦)   𝐷(𝑥,𝑦)   𝑄(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐺(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐻(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐽(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐾(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝐿(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝑀(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)   𝑁(𝑥,𝑦,𝑧,𝑤,𝑣,𝑢)

Proof of Theorem ecovass
StepHypRef Expression
1 ecovass.1 . 2 𝐷 = ((𝑆 × 𝑆) / )
2 oveq1 5747 . . . 4 ([⟨𝑥, 𝑦⟩] = 𝐴 → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = (𝐴 + [⟨𝑧, 𝑤⟩] ))
32oveq1d 5755 . . 3 ([⟨𝑥, 𝑦⟩] = 𝐴 → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ))
4 oveq1 5747 . . 3 ([⟨𝑥, 𝑦⟩] = 𝐴 → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )))
53, 4eqeq12d 2130 . 2 ([⟨𝑥, 𝑦⟩] = 𝐴 → ((([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) ↔ ((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ))))
6 oveq2 5748 . . . 4 ([⟨𝑧, 𝑤⟩] = 𝐵 → (𝐴 + [⟨𝑧, 𝑤⟩] ) = (𝐴 + 𝐵))
76oveq1d 5755 . . 3 ([⟨𝑧, 𝑤⟩] = 𝐵 → ((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ))
8 oveq1 5747 . . . 4 ([⟨𝑧, 𝑤⟩] = 𝐵 → ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ) = (𝐵 + [⟨𝑣, 𝑢⟩] ))
98oveq2d 5756 . . 3 ([⟨𝑧, 𝑤⟩] = 𝐵 → (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] )))
107, 9eqeq12d 2130 . 2 ([⟨𝑧, 𝑤⟩] = 𝐵 → (((𝐴 + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) ↔ ((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] ))))
11 oveq2 5748 . . 3 ([⟨𝑣, 𝑢⟩] = 𝐶 → ((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ) = ((𝐴 + 𝐵) + 𝐶))
12 oveq2 5748 . . . 4 ([⟨𝑣, 𝑢⟩] = 𝐶 → (𝐵 + [⟨𝑣, 𝑢⟩] ) = (𝐵 + 𝐶))
1312oveq2d 5756 . . 3 ([⟨𝑣, 𝑢⟩] = 𝐶 → (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] )) = (𝐴 + (𝐵 + 𝐶)))
1411, 13eqeq12d 2130 . 2 ([⟨𝑣, 𝑢⟩] = 𝐶 → (((𝐴 + 𝐵) + [⟨𝑣, 𝑢⟩] ) = (𝐴 + (𝐵 + [⟨𝑣, 𝑢⟩] )) ↔ ((𝐴 + 𝐵) + 𝐶) = (𝐴 + (𝐵 + 𝐶))))
15 ecovass.8 . . . 4 𝐽 = 𝐿
16 ecovass.9 . . . 4 𝐾 = 𝑀
17 opeq12 3675 . . . . 5 ((𝐽 = 𝐿𝐾 = 𝑀) → ⟨𝐽, 𝐾⟩ = ⟨𝐿, 𝑀⟩)
1817eceq1d 6431 . . . 4 ((𝐽 = 𝐿𝐾 = 𝑀) → [⟨𝐽, 𝐾⟩] = [⟨𝐿, 𝑀⟩] )
1915, 16, 18mp2an 420 . . 3 [⟨𝐽, 𝐾⟩] = [⟨𝐿, 𝑀⟩]
20 ecovass.2 . . . . . . 7 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) = [⟨𝐺, 𝐻⟩] )
2120oveq1d 5755 . . . . . 6 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ))
2221adantr 272 . . . . 5 ((((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ))
23 ecovass.6 . . . . . 6 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) → (𝐺𝑆𝐻𝑆))
24 ecovass.4 . . . . . 6 (((𝐺𝑆𝐻𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
2523, 24sylan 279 . . . . 5 ((((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝐺, 𝐻⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
2622, 25eqtrd 2148 . . . 4 ((((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆)) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
27263impa 1159 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = [⟨𝐽, 𝐾⟩] )
28 ecovass.3 . . . . . . 7 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] ) = [⟨𝑁, 𝑄⟩] )
2928oveq2d 5756 . . . . . 6 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ))
3029adantl 273 . . . . 5 (((𝑥𝑆𝑦𝑆) ∧ ((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆))) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ))
31 ecovass.7 . . . . . 6 (((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (𝑁𝑆𝑄𝑆))
32 ecovass.5 . . . . . 6 (((𝑥𝑆𝑦𝑆) ∧ (𝑁𝑆𝑄𝑆)) → ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ) = [⟨𝐿, 𝑀⟩] )
3331, 32sylan2 282 . . . . 5 (((𝑥𝑆𝑦𝑆) ∧ ((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆))) → ([⟨𝑥, 𝑦⟩] + [⟨𝑁, 𝑄⟩] ) = [⟨𝐿, 𝑀⟩] )
3430, 33eqtrd 2148 . . . 4 (((𝑥𝑆𝑦𝑆) ∧ ((𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆))) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = [⟨𝐿, 𝑀⟩] )
35343impb 1160 . . 3 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )) = [⟨𝐿, 𝑀⟩] )
3619, 27, 353eqtr4a 2174 . 2 (((𝑥𝑆𝑦𝑆) ∧ (𝑧𝑆𝑤𝑆) ∧ (𝑣𝑆𝑢𝑆)) → (([⟨𝑥, 𝑦⟩] + [⟨𝑧, 𝑤⟩] ) + [⟨𝑣, 𝑢⟩] ) = ([⟨𝑥, 𝑦⟩] + ([⟨𝑧, 𝑤⟩] + [⟨𝑣, 𝑢⟩] )))
371, 5, 10, 14, 363ecoptocl 6484 1 ((𝐴𝐷𝐵𝐷𝐶𝐷) → ((𝐴 + 𝐵) + 𝐶) = (𝐴 + (𝐵 + 𝐶)))
Colors of variables: wff set class
Syntax hints:  wi 4  wa 103  w3a 945   = wceq 1314  wcel 1463  cop 3498   × cxp 4505  (class class class)co 5740  [cec 6393   / cqs 6394
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-io 681  ax-5 1406  ax-7 1407  ax-gen 1408  ax-ie1 1452  ax-ie2 1453  ax-8 1465  ax-10 1466  ax-11 1467  ax-i12 1468  ax-bndl 1469  ax-4 1470  ax-14 1475  ax-17 1489  ax-i9 1493  ax-ial 1497  ax-i5r 1498  ax-ext 2097  ax-sep 4014  ax-pow 4066  ax-pr 4099
This theorem depends on definitions:  df-bi 116  df-3an 947  df-tru 1317  df-nf 1420  df-sb 1719  df-clab 2102  df-cleq 2108  df-clel 2111  df-nfc 2245  df-ral 2396  df-rex 2397  df-v 2660  df-un 3043  df-in 3045  df-ss 3052  df-pw 3480  df-sn 3501  df-pr 3502  df-op 3504  df-uni 3705  df-br 3898  df-opab 3958  df-xp 4513  df-cnv 4515  df-dm 4517  df-rn 4518  df-res 4519  df-ima 4520  df-iota 5056  df-fv 5099  df-ov 5743  df-ec 6397  df-qs 6401
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator