MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  assalem Structured version   Visualization version   GIF version
Theorem assalem 21412
Description: The properties of an associative algebra. (Contributed by Mario Carneiro, 29-Dec-2014.)
Hypotheses
Ref Expression
isassa.v 𝑉 = (Baseβ€˜π‘Š)
isassa.f 𝐹 = (Scalarβ€˜π‘Š)
isassa.b 𝐡 = (Baseβ€˜πΉ)
isassa.s Β· = ( ·𝑠 β€˜π‘Š)
isassa.t Γ— = (.rβ€˜π‘Š)
Assertion
Ref Expression
assalem ((π‘Š ∈ AssAlg ∧ (𝐴 ∈ 𝐡 ∧ 𝑋 ∈ 𝑉 ∧ π‘Œ ∈ 𝑉)) β†’ (((𝐴 Β· 𝑋) Γ— π‘Œ) = (𝐴 Β· (𝑋 Γ— π‘Œ)) ∧ (𝑋 Γ— (𝐴 Β· π‘Œ)) = (𝐴 Β· (𝑋 Γ— π‘Œ))))
Proof of Theorem assalem
Dummy variables π‘₯ π‘Ÿ 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 isassa.v . . . 4 𝑉 = (Baseβ€˜π‘Š)
2 isassa.f . . . 4 𝐹 = (Scalarβ€˜π‘Š)
3 isassa.b . . . 4 𝐡 = (Baseβ€˜πΉ)
4 isassa.s . . . 4 Β· = ( ·𝑠 β€˜π‘Š)
5 isassa.t . . . 4 Γ— = (.rβ€˜π‘Š)
61, 2, 3, 4, 5isassa 21411 . . 3 (π‘Š ∈ AssAlg ↔ ((π‘Š ∈ LMod ∧ π‘Š ∈ Ring) ∧ βˆ€π‘Ÿ ∈ 𝐡 βˆ€π‘₯ ∈ 𝑉 βˆ€π‘¦ ∈ 𝑉 (((π‘Ÿ Β· π‘₯) Γ— 𝑦) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) ∧ (π‘₯ Γ— (π‘Ÿ Β· 𝑦)) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)))))
76simprbi 498 . 2 (π‘Š ∈ AssAlg β†’ βˆ€π‘Ÿ ∈ 𝐡 βˆ€π‘₯ ∈ 𝑉 βˆ€π‘¦ ∈ 𝑉 (((π‘Ÿ Β· π‘₯) Γ— 𝑦) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) ∧ (π‘₯ Γ— (π‘Ÿ Β· 𝑦)) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦))))
8 oveq1 7416 . . . . . 6 (π‘Ÿ = 𝐴 β†’ (π‘Ÿ Β· π‘₯) = (𝐴 Β· π‘₯))
98oveq1d 7424 . . . . 5 (π‘Ÿ = 𝐴 β†’ ((π‘Ÿ Β· π‘₯) Γ— 𝑦) = ((𝐴 Β· π‘₯) Γ— 𝑦))
10 oveq1 7416 . . . . 5 (π‘Ÿ = 𝐴 β†’ (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) = (𝐴 Β· (π‘₯ Γ— 𝑦)))
119, 10eqeq12d 2749 . . . 4 (π‘Ÿ = 𝐴 β†’ (((π‘Ÿ Β· π‘₯) Γ— 𝑦) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) ↔ ((𝐴 Β· π‘₯) Γ— 𝑦) = (𝐴 Β· (π‘₯ Γ— 𝑦))))
12 oveq1 7416 . . . . . 6 (π‘Ÿ = 𝐴 β†’ (π‘Ÿ Β· 𝑦) = (𝐴 Β· 𝑦))
1312oveq2d 7425 . . . . 5 (π‘Ÿ = 𝐴 β†’ (π‘₯ Γ— (π‘Ÿ Β· 𝑦)) = (π‘₯ Γ— (𝐴 Β· 𝑦)))
1413, 10eqeq12d 2749 . . . 4 (π‘Ÿ = 𝐴 β†’ ((π‘₯ Γ— (π‘Ÿ Β· 𝑦)) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) ↔ (π‘₯ Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (π‘₯ Γ— 𝑦))))
1511, 14anbi12d 632 . . 3 (π‘Ÿ = 𝐴 β†’ ((((π‘Ÿ Β· π‘₯) Γ— 𝑦) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) ∧ (π‘₯ Γ— (π‘Ÿ Β· 𝑦)) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦))) ↔ (((𝐴 Β· π‘₯) Γ— 𝑦) = (𝐴 Β· (π‘₯ Γ— 𝑦)) ∧ (π‘₯ Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (π‘₯ Γ— 𝑦)))))
16 oveq2 7417 . . . . . 6 (π‘₯ = 𝑋 β†’ (𝐴 Β· π‘₯) = (𝐴 Β· 𝑋))
1716oveq1d 7424 . . . . 5 (π‘₯ = 𝑋 β†’ ((𝐴 Β· π‘₯) Γ— 𝑦) = ((𝐴 Β· 𝑋) Γ— 𝑦))
18 oveq1 7416 . . . . . 6 (π‘₯ = 𝑋 β†’ (π‘₯ Γ— 𝑦) = (𝑋 Γ— 𝑦))
1918oveq2d 7425 . . . . 5 (π‘₯ = 𝑋 β†’ (𝐴 Β· (π‘₯ Γ— 𝑦)) = (𝐴 Β· (𝑋 Γ— 𝑦)))
2017, 19eqeq12d 2749 . . . 4 (π‘₯ = 𝑋 β†’ (((𝐴 Β· π‘₯) Γ— 𝑦) = (𝐴 Β· (π‘₯ Γ— 𝑦)) ↔ ((𝐴 Β· 𝑋) Γ— 𝑦) = (𝐴 Β· (𝑋 Γ— 𝑦))))
21 oveq1 7416 . . . . 5 (π‘₯ = 𝑋 β†’ (π‘₯ Γ— (𝐴 Β· 𝑦)) = (𝑋 Γ— (𝐴 Β· 𝑦)))
2221, 19eqeq12d 2749 . . . 4 (π‘₯ = 𝑋 β†’ ((π‘₯ Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (π‘₯ Γ— 𝑦)) ↔ (𝑋 Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (𝑋 Γ— 𝑦))))
2320, 22anbi12d 632 . . 3 (π‘₯ = 𝑋 β†’ ((((𝐴 Β· π‘₯) Γ— 𝑦) = (𝐴 Β· (π‘₯ Γ— 𝑦)) ∧ (π‘₯ Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (π‘₯ Γ— 𝑦))) ↔ (((𝐴 Β· 𝑋) Γ— 𝑦) = (𝐴 Β· (𝑋 Γ— 𝑦)) ∧ (𝑋 Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (𝑋 Γ— 𝑦)))))
24 oveq2 7417 . . . . 5 (𝑦 = π‘Œ β†’ ((𝐴 Β· 𝑋) Γ— 𝑦) = ((𝐴 Β· 𝑋) Γ— π‘Œ))
25 oveq2 7417 . . . . . 6 (𝑦 = π‘Œ β†’ (𝑋 Γ— 𝑦) = (𝑋 Γ— π‘Œ))
2625oveq2d 7425 . . . . 5 (𝑦 = π‘Œ β†’ (𝐴 Β· (𝑋 Γ— 𝑦)) = (𝐴 Β· (𝑋 Γ— π‘Œ)))
2724, 26eqeq12d 2749 . . . 4 (𝑦 = π‘Œ β†’ (((𝐴 Β· 𝑋) Γ— 𝑦) = (𝐴 Β· (𝑋 Γ— 𝑦)) ↔ ((𝐴 Β· 𝑋) Γ— π‘Œ) = (𝐴 Β· (𝑋 Γ— π‘Œ))))
28 oveq2 7417 . . . . . 6 (𝑦 = π‘Œ β†’ (𝐴 Β· 𝑦) = (𝐴 Β· π‘Œ))
2928oveq2d 7425 . . . . 5 (𝑦 = π‘Œ β†’ (𝑋 Γ— (𝐴 Β· 𝑦)) = (𝑋 Γ— (𝐴 Β· π‘Œ)))
3029, 26eqeq12d 2749 . . . 4 (𝑦 = π‘Œ β†’ ((𝑋 Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (𝑋 Γ— 𝑦)) ↔ (𝑋 Γ— (𝐴 Β· π‘Œ)) = (𝐴 Β· (𝑋 Γ— π‘Œ))))
3127, 30anbi12d 632 . . 3 (𝑦 = π‘Œ β†’ ((((𝐴 Β· 𝑋) Γ— 𝑦) = (𝐴 Β· (𝑋 Γ— 𝑦)) ∧ (𝑋 Γ— (𝐴 Β· 𝑦)) = (𝐴 Β· (𝑋 Γ— 𝑦))) ↔ (((𝐴 Β· 𝑋) Γ— π‘Œ) = (𝐴 Β· (𝑋 Γ— π‘Œ)) ∧ (𝑋 Γ— (𝐴 Β· π‘Œ)) = (𝐴 Β· (𝑋 Γ— π‘Œ)))))
3215, 23, 31rspc3v 3628 . 2 ((𝐴 ∈ 𝐡 ∧ 𝑋 ∈ 𝑉 ∧ π‘Œ ∈ 𝑉) β†’ (βˆ€π‘Ÿ ∈ 𝐡 βˆ€π‘₯ ∈ 𝑉 βˆ€π‘¦ ∈ 𝑉 (((π‘Ÿ Β· π‘₯) Γ— 𝑦) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦)) ∧ (π‘₯ Γ— (π‘Ÿ Β· 𝑦)) = (π‘Ÿ Β· (π‘₯ Γ— 𝑦))) β†’ (((𝐴 Β· 𝑋) Γ— π‘Œ) = (𝐴 Β· (𝑋 Γ— π‘Œ)) ∧ (𝑋 Γ— (𝐴 Β· π‘Œ)) = (𝐴 Β· (𝑋 Γ— π‘Œ)))))
337, 32mpan9 508 1 ((π‘Š ∈ AssAlg ∧ (𝐴 ∈ 𝐡 ∧ 𝑋 ∈ 𝑉 ∧ π‘Œ ∈ 𝑉)) β†’ (((𝐴 Β· 𝑋) Γ— π‘Œ) = (𝐴 Β· (𝑋 Γ— π‘Œ)) ∧ (𝑋 Γ— (𝐴 Β· π‘Œ)) = (𝐴 Β· (𝑋 Γ— π‘Œ))))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  βˆ€wral 3062  β€˜cfv 6544  (class class class)co 7409  Basecbs 17144  .rcmulr 17198  Scalarcsca 17200   ·𝑠 cvsca 17201  Ringcrg 20056  LModclmod 20471  AssAlgcasa 21405
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-ext 2704  ax-nul 5307
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-sb 2069  df-clab 2711  df-cleq 2725  df-clel 2811  df-ne 2942  df-ral 3063  df-rab 3434  df-v 3477  df-sbc 3779  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-nul 4324  df-if 4530  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-br 5150  df-iota 6496  df-fv 6552  df-ov 7412  df-assa 21408
This theorem is referenced by:  assaass  21413  assaassr  21414
  Copyright terms: Public domain W3C validator