Theorem assa2ass 20621

Description: Left- and right-associative property of an associative algebra. Notice that the scalars are commuted! (Contributed by AV, 14-Aug-2019.)

Hypotheses

Ref	Expression
assa2ass.v	⊢ 𝑉 = (Base‘𝑊)
assa2ass.f	⊢ 𝐹 = (Scalar‘𝑊)
assa2ass.b	⊢ 𝐵 = (Base‘𝐹)
assa2ass.m	⊢ ∗ = (.r‘𝐹)
assa2ass.s	⊢ · = ( ·𝑠 ‘𝑊)
assa2ass.t	⊢ × = (.r‘𝑊)

Assertion

Ref	Expression
assa2ass	⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐴 · 𝑋) × (𝐶 · 𝑌)) = ((𝐶 ∗ 𝐴) · (𝑋 × 𝑌)))

Proof of Theorem assa2ass

Step	Hyp	Ref	Expression
1		simp1 1134	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝑊 ∈ AssAlg)
2		simpr 489	. . . 4 ⊢ ((𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) → 𝐶 ∈ 𝐵)
3	2	3ad2ant2 1132	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝐶 ∈ 𝐵)
4		assalmod 20618	. . . 4 ⊢ (𝑊 ∈ AssAlg → 𝑊 ∈ LMod)
5		simpl 487	. . . 4 ⊢ ((𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) → 𝐴 ∈ 𝐵)
6		simpl 487	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) → 𝑋 ∈ 𝑉)
7		assa2ass.v	. . . . 5 ⊢ 𝑉 = (Base‘𝑊)
8		assa2ass.f	. . . . 5 ⊢ 𝐹 = (Scalar‘𝑊)
9		assa2ass.s	. . . . 5 ⊢ · = ( ·𝑠 ‘𝑊)
10		assa2ass.b	. . . . 5 ⊢ 𝐵 = (Base‘𝐹)
11	7, 8, 9, 10	lmodvscl 19712	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ 𝐴 ∈ 𝐵 ∧ 𝑋 ∈ 𝑉) → (𝐴 · 𝑋) ∈ 𝑉)
12	4, 5, 6, 11	syl3an 1158	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝐴 · 𝑋) ∈ 𝑉)
13		simpr 489	. . . 4 ⊢ ((𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉) → 𝑌 ∈ 𝑉)
14	13	3ad2ant3 1133	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝑌 ∈ 𝑉)
15		assa2ass.t	. . . 4 ⊢ × = (.r‘𝑊)
16	7, 8, 10, 9, 15	assaassr 20617	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐶 ∈ 𝐵 ∧ (𝐴 · 𝑋) ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐴 · 𝑋) × (𝐶 · 𝑌)) = (𝐶 · ((𝐴 · 𝑋) × 𝑌)))
17	1, 3, 12, 14, 16	syl13anc 1370	. 2 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐴 · 𝑋) × (𝐶 · 𝑌)) = (𝐶 · ((𝐴 · 𝑋) × 𝑌)))
18	7, 8, 10, 9, 15	assaass 20616	. . . 4 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐶 ∈ 𝐵 ∧ (𝐴 · 𝑋) ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐶 · (𝐴 · 𝑋)) × 𝑌) = (𝐶 · ((𝐴 · 𝑋) × 𝑌)))
19	18	eqcomd 2765	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐶 ∈ 𝐵 ∧ (𝐴 · 𝑋) ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝐶 · ((𝐴 · 𝑋) × 𝑌)) = ((𝐶 · (𝐴 · 𝑋)) × 𝑌))
20	1, 3, 12, 14, 19	syl13anc 1370	. 2 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝐶 · ((𝐴 · 𝑋) × 𝑌)) = ((𝐶 · (𝐴 · 𝑋)) × 𝑌))
21	4	3ad2ant1 1131	. . . 4 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝑊 ∈ LMod)
22	5	3ad2ant2 1132	. . . 4 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝐴 ∈ 𝐵)
23	6	3ad2ant3 1133	. . . 4 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → 𝑋 ∈ 𝑉)
24		assa2ass.m	. . . . . . 7 ⊢ ∗ = (.r‘𝐹)
25	7, 8, 9, 10, 24	lmodvsass 19720	. . . . . 6 ⊢ ((𝑊 ∈ LMod ∧ (𝐶 ∈ 𝐵 ∧ 𝐴 ∈ 𝐵 ∧ 𝑋 ∈ 𝑉)) → ((𝐶 ∗ 𝐴) · 𝑋) = (𝐶 · (𝐴 · 𝑋)))
26	25	eqcomd 2765	. . . . 5 ⊢ ((𝑊 ∈ LMod ∧ (𝐶 ∈ 𝐵 ∧ 𝐴 ∈ 𝐵 ∧ 𝑋 ∈ 𝑉)) → (𝐶 · (𝐴 · 𝑋)) = ((𝐶 ∗ 𝐴) · 𝑋))
27	26	oveq1d 7166	. . . 4 ⊢ ((𝑊 ∈ LMod ∧ (𝐶 ∈ 𝐵 ∧ 𝐴 ∈ 𝐵 ∧ 𝑋 ∈ 𝑉)) → ((𝐶 · (𝐴 · 𝑋)) × 𝑌) = (((𝐶 ∗ 𝐴) · 𝑋) × 𝑌))
28	21, 3, 22, 23, 27	syl13anc 1370	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐶 · (𝐴 · 𝑋)) × 𝑌) = (((𝐶 ∗ 𝐴) · 𝑋) × 𝑌))
29	8	assasca 20620	. . . . . . . 8 ⊢ (𝑊 ∈ AssAlg → 𝐹 ∈ CRing)
30		crngring 19370	. . . . . . . 8 ⊢ (𝐹 ∈ CRing → 𝐹 ∈ Ring)
31	29, 30	syl 17	. . . . . . 7 ⊢ (𝑊 ∈ AssAlg → 𝐹 ∈ Ring)
32	31	adantr 485	. . . . . 6 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → 𝐹 ∈ Ring)
33	2	adantl 486	. . . . . 6 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → 𝐶 ∈ 𝐵)
34	5	adantl 486	. . . . . 6 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → 𝐴 ∈ 𝐵)
35	10, 24	ringcl 19375	. . . . . 6 ⊢ ((𝐹 ∈ Ring ∧ 𝐶 ∈ 𝐵 ∧ 𝐴 ∈ 𝐵) → (𝐶 ∗ 𝐴) ∈ 𝐵)
36	32, 33, 34, 35	syl3anc 1369	. . . . 5 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵)) → (𝐶 ∗ 𝐴) ∈ 𝐵)
37	36	3adant3 1130	. . . 4 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (𝐶 ∗ 𝐴) ∈ 𝐵)
38	7, 8, 10, 9, 15	assaass 20616	. . . 4 ⊢ ((𝑊 ∈ AssAlg ∧ ((𝐶 ∗ 𝐴) ∈ 𝐵 ∧ 𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (((𝐶 ∗ 𝐴) · 𝑋) × 𝑌) = ((𝐶 ∗ 𝐴) · (𝑋 × 𝑌)))
39	1, 37, 23, 14, 38	syl13anc 1370	. . 3 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → (((𝐶 ∗ 𝐴) · 𝑋) × 𝑌) = ((𝐶 ∗ 𝐴) · (𝑋 × 𝑌)))
40	28, 39	eqtrd 2794	. 2 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐶 · (𝐴 · 𝑋)) × 𝑌) = ((𝐶 ∗ 𝐴) · (𝑋 × 𝑌)))
41	17, 20, 40	3eqtrd 2798	1 ⊢ ((𝑊 ∈ AssAlg ∧ (𝐴 ∈ 𝐵 ∧ 𝐶 ∈ 𝐵) ∧ (𝑋 ∈ 𝑉 ∧ 𝑌 ∈ 𝑉)) → ((𝐴 · 𝑋) × (𝐶 · 𝑌)) = ((𝐶 ∗ 𝐴) · (𝑋 × 𝑌)))

Syntax hints:   → wi 4   ∧ wa 400   ∧ w3a 1085   = wceq 1539   ∈ wcel 2112  ‘cfv 6336  (class class class)co 7151  Basecbs 16534  ._rcmulr 16617  Scalarcsca 16619   ·_𝑠 cvsca 16620  Ringcrg 19358  CRingccrg 19359  LModclmod 19695  AssAlgcasa 20608

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 1912  ax-6 1971  ax-7 2016  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2730  ax-sep 5170  ax-nul 5177  ax-pow 5235  ax-pr 5299  ax-un 7460  ax-cnex 10624  ax-resscn 10625  ax-1cn 10626  ax-icn 10627  ax-addcl 10628  ax-addrcl 10629  ax-mulcl 10630  ax-mulrcl 10631  ax-mulcom 10632  ax-addass 10633  ax-mulass 10634  ax-distr 10635  ax-i2m1 10636  ax-1ne0 10637  ax-1rid 10638  ax-rnegex 10639  ax-rrecex 10640  ax-cnre 10641  ax-pre-lttri 10642  ax-pre-lttrn 10643  ax-pre-ltadd 10644  ax-pre-mulgt0 10645

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 846  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2071  df-mo 2558  df-eu 2589  df-clab 2737  df-cleq 2751  df-clel 2831  df-nfc 2902  df-ne 2953  df-nel 3057  df-ral 3076  df-rex 3077  df-reu 3078  df-rab 3080  df-v 3412  df-sbc 3698  df-csb 3807  df-dif 3862  df-un 3864  df-in 3866  df-ss 3876  df-pss 3878  df-nul 4227  df-if 4422  df-pw 4497  df-sn 4524  df-pr 4526  df-tp 4528  df-op 4530  df-uni 4800  df-iun 4886  df-br 5034  df-opab 5096  df-mpt 5114  df-tr 5140  df-id 5431  df-eprel 5436  df-po 5444  df-so 5445  df-fr 5484  df-we 5486  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-pred 6127  df-ord 6173  df-on 6174  df-lim 6175  df-suc 6176  df-iota 6295  df-fun 6338  df-fn 6339  df-f 6340  df-f1 6341  df-fo 6342  df-f1o 6343  df-fv 6344  df-riota 7109  df-ov 7154  df-oprab 7155  df-mpo 7156  df-om 7581  df-wrecs 7958  df-recs 8019  df-rdg 8057  df-er 8300  df-en 8529  df-dom 8530  df-sdom 8531  df-pnf 10708  df-mnf 10709  df-xr 10710  df-ltxr 10711  df-le 10712  df-sub 10903  df-neg 10904  df-nn 11668  df-2 11730  df-ndx 16537  df-slot 16538  df-base 16540  df-sets 16541  df-plusg 16629  df-mgm 17911  df-sgrp 17960  df-mnd 17971  df-mgp 19301  df-ring 19360  df-cring 19361  df-lmod 19697  df-assa 20611

This theorem is referenced by:  cpmadugsumlemB  21567