Theorem isassa 14985

Description: The properties of an associative algebra. (Contributed by Mario Carneiro, 29-Dec-2014.) (Revised by SN, 2-Mar-2025.)

Hypotheses

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

Assertion

Ref	Expression
isassa	⊢ (𝑊 ∈ AssAlg ↔ ((𝑊 ∈ LMod ∧ 𝑊 ∈ Ring) ∧ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))

Distinct variable groups:   𝑥,𝑟,𝑦   𝐵,𝑟   𝐹,𝑟   𝑉,𝑟,𝑥,𝑦   · ,𝑟,𝑥,𝑦   × ,𝑟,𝑥,𝑦   𝑊,𝑟,𝑥,𝑦

Allowed substitution hints:   𝐵(𝑥,𝑦)   𝐹(𝑥,𝑦)

Proof of Theorem isassa

Dummy variables 𝑓 𝑤 𝑠 𝑡 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fveq2 5693	. . . 4 ⊢ (𝑤 = 𝑊 → (Scalar‘𝑤) = (Scalar‘𝑊))
2		fveq2 5693	. . . . . 6 ⊢ (𝑤 = 𝑊 → (Base‘𝑤) = (Base‘𝑊))
3		fveq2 5693	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → ( ·𝑠 ‘𝑤) = ( ·𝑠 ‘𝑊))
4		fveq2 5693	. . . . . . . . 9 ⊢ (𝑤 = 𝑊 → (.r‘𝑤) = (.r‘𝑊))
5	4	sbceq1d 3056	. . . . . . . 8 ⊢ (𝑤 = 𝑊 → ([(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ [(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
6	3, 5	sbceqbid 3058	. . . . . . 7 ⊢ (𝑤 = 𝑊 → ([( ·𝑠 ‘𝑤) / 𝑠][(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ [( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
7	2, 6	raleqbidv 2765	. . . . . 6 ⊢ (𝑤 = 𝑊 → (∀𝑦 ∈ (Base‘𝑤)[( ·𝑠 ‘𝑤) / 𝑠][(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
8	2, 7	raleqbidv 2765	. . . . 5 ⊢ (𝑤 = 𝑊 → (∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑤)[( ·𝑠 ‘𝑤) / 𝑠][(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
9	8	ralbidv 2550	. . . 4 ⊢ (𝑤 = 𝑊 → (∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑤)[( ·𝑠 ‘𝑤) / 𝑠][(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
10	1, 9	sbceqbid 3058	. . 3 ⊢ (𝑤 = 𝑊 → ([(Scalar‘𝑤) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑤)[( ·𝑠 ‘𝑤) / 𝑠][(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ [(Scalar‘𝑊) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
11		df-assa 14982	. . 3 ⊢ AssAlg = {𝑤 ∈ (LMod ∩ Ring) ∣ [(Scalar‘𝑤) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑤)∀𝑦 ∈ (Base‘𝑤)[( ·𝑠 ‘𝑤) / 𝑠][(.r‘𝑤) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))}
12	10, 11	elrab2 2985	. 2 ⊢ (𝑊 ∈ AssAlg ↔ (𝑊 ∈ (LMod ∩ Ring) ∧ [(Scalar‘𝑊) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
13		scaslid 13490	. . . . . 6 ⊢ (Scalar = Slot (Scalar‘ndx) ∧ (Scalar‘ndx) ∈ ℕ)
14	13	slotex 13362	. . . . 5 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (Scalar‘𝑊) ∈ V)
15		fveq2 5693	. . . . . . 7 ⊢ (𝑓 = (Scalar‘𝑊) → (Base‘𝑓) = (Base‘(Scalar‘𝑊)))
16	15	raleqdv 2755	. . . . . 6 ⊢ (𝑓 = (Scalar‘𝑊) → (∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑟 ∈ (Base‘(Scalar‘𝑊))∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
17	16	sbcieg 3084	. . . . 5 ⊢ ((Scalar‘𝑊) ∈ V → ([(Scalar‘𝑊) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑟 ∈ (Base‘(Scalar‘𝑊))∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
18	14, 17	syl 14	. . . 4 ⊢ (𝑊 ∈ (LMod ∩ Ring) → ([(Scalar‘𝑊) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑟 ∈ (Base‘(Scalar‘𝑊))∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))))
19		isassa.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐹)
20		isassa.f	. . . . . . . 8 ⊢ 𝐹 = (Scalar‘𝑊)
21	20	fveq2i 5696	. . . . . . 7 ⊢ (Base‘𝐹) = (Base‘(Scalar‘𝑊))
22	19, 21	eqtr2i 2260	. . . . . 6 ⊢ (Base‘(Scalar‘𝑊)) = 𝐵
23	22	a1i 9	. . . . 5 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (Base‘(Scalar‘𝑊)) = 𝐵)
24		isassa.v	. . . . . . . 8 ⊢ 𝑉 = (Base‘𝑊)
25	24	eqcomi 2242	. . . . . . 7 ⊢ (Base‘𝑊) = 𝑉
26	25	a1i 9	. . . . . 6 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (Base‘𝑊) = 𝑉)
27		vscaslid 13500	. . . . . . . . . 10 ⊢ ( ·𝑠 = Slot ( ·𝑠 ‘ndx) ∧ ( ·𝑠 ‘ndx) ∈ ℕ)
28	27	slotex 13362	. . . . . . . . 9 ⊢ (𝑊 ∈ (LMod ∩ Ring) → ( ·𝑠 ‘𝑊) ∈ V)
29		isassa.s	. . . . . . . . . . . . . . . . 17 ⊢ · = ( ·𝑠 ‘𝑊)
30	29	eqeq2i 2249	. . . . . . . . . . . . . . . 16 ⊢ (𝑠 = · ↔ 𝑠 = ( ·𝑠 ‘𝑊))
31	30	biimpri 133	. . . . . . . . . . . . . . 15 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → 𝑠 = · )
32	31	oveqd 6096	. . . . . . . . . . . . . 14 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → (𝑟𝑠𝑥) = (𝑟 · 𝑥))
33	32	oveq1d 6094	. . . . . . . . . . . . 13 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → ((𝑟𝑠𝑥)𝑡𝑦) = ((𝑟 · 𝑥)𝑡𝑦))
34	31	oveqd 6096	. . . . . . . . . . . . 13 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → (𝑟𝑠(𝑥𝑡𝑦)) = (𝑟 · (𝑥𝑡𝑦)))
35	33, 34	eqeq12d 2253	. . . . . . . . . . . 12 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → (((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ↔ ((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦))))
36	31	oveqd 6096	. . . . . . . . . . . . . 14 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → (𝑟𝑠𝑦) = (𝑟 · 𝑦))
37	36	oveq2d 6095	. . . . . . . . . . . . 13 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → (𝑥𝑡(𝑟𝑠𝑦)) = (𝑥𝑡(𝑟 · 𝑦)))
38	37, 34	eqeq12d 2253	. . . . . . . . . . . 12 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → ((𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)) ↔ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦))))
39	35, 38	anbi12d 477	. . . . . . . . . . 11 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → ((((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ (((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦)))))
40	39	sbcbidv 3110	. . . . . . . . . 10 ⊢ (𝑠 = ( ·𝑠 ‘𝑊) → ([(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ [(.r‘𝑊) / 𝑡](((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦)))))
41	40	sbcieg 3084	. . . . . . . . 9 ⊢ (( ·𝑠 ‘𝑊) ∈ V → ([( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ [(.r‘𝑊) / 𝑡](((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦)))))
42	28, 41	syl 14	. . . . . . . 8 ⊢ (𝑊 ∈ (LMod ∩ Ring) → ([( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ [(.r‘𝑊) / 𝑡](((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦)))))
43		mulrslid 13469	. . . . . . . . . 10 ⊢ (.r = Slot (.r‘ndx) ∧ (.r‘ndx) ∈ ℕ)
44	43	slotex 13362	. . . . . . . . 9 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (.r‘𝑊) ∈ V)
45		isassa.t	. . . . . . . . . . . . . . 15 ⊢ × = (.r‘𝑊)
46	45	eqeq2i 2249	. . . . . . . . . . . . . 14 ⊢ (𝑡 = × ↔ 𝑡 = (.r‘𝑊))
47	46	biimpri 133	. . . . . . . . . . . . 13 ⊢ (𝑡 = (.r‘𝑊) → 𝑡 = × )
48	47	oveqd 6096	. . . . . . . . . . . 12 ⊢ (𝑡 = (.r‘𝑊) → ((𝑟 · 𝑥)𝑡𝑦) = ((𝑟 · 𝑥) × 𝑦))
49	47	oveqd 6096	. . . . . . . . . . . . 13 ⊢ (𝑡 = (.r‘𝑊) → (𝑥𝑡𝑦) = (𝑥 × 𝑦))
50	49	oveq2d 6095	. . . . . . . . . . . 12 ⊢ (𝑡 = (.r‘𝑊) → (𝑟 · (𝑥𝑡𝑦)) = (𝑟 · (𝑥 × 𝑦)))
51	48, 50	eqeq12d 2253	. . . . . . . . . . 11 ⊢ (𝑡 = (.r‘𝑊) → (((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ↔ ((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦))))
52	47	oveqd 6096	. . . . . . . . . . . 12 ⊢ (𝑡 = (.r‘𝑊) → (𝑥𝑡(𝑟 · 𝑦)) = (𝑥 × (𝑟 · 𝑦)))
53	52, 50	eqeq12d 2253	. . . . . . . . . . 11 ⊢ (𝑡 = (.r‘𝑊) → ((𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦)) ↔ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦))))
54	51, 53	anbi12d 477	. . . . . . . . . 10 ⊢ (𝑡 = (.r‘𝑊) → ((((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦))) ↔ (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
55	54	sbcieg 3084	. . . . . . . . 9 ⊢ ((.r‘𝑊) ∈ V → ([(.r‘𝑊) / 𝑡](((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦))) ↔ (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
56	44, 55	syl 14	. . . . . . . 8 ⊢ (𝑊 ∈ (LMod ∩ Ring) → ([(.r‘𝑊) / 𝑡](((𝑟 · 𝑥)𝑡𝑦) = (𝑟 · (𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟 · 𝑦)) = (𝑟 · (𝑥𝑡𝑦))) ↔ (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
57	42, 56	bitrd 188	. . . . . . 7 ⊢ (𝑊 ∈ (LMod ∩ Ring) → ([( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
58	26, 57	raleqbidv 2765	. . . . . 6 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
59	26, 58	raleqbidv 2765	. . . . 5 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
60	23, 59	raleqbidv 2765	. . . 4 ⊢ (𝑊 ∈ (LMod ∩ Ring) → (∀𝑟 ∈ (Base‘(Scalar‘𝑊))∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
61	18, 60	bitrd 188	. . 3 ⊢ (𝑊 ∈ (LMod ∩ Ring) → ([(Scalar‘𝑊) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦))) ↔ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
62	61	pm5.32i 458	. 2 ⊢ ((𝑊 ∈ (LMod ∩ Ring) ∧ [(Scalar‘𝑊) / 𝑓]∀𝑟 ∈ (Base‘𝑓)∀𝑥 ∈ (Base‘𝑊)∀𝑦 ∈ (Base‘𝑊)[( ·𝑠 ‘𝑊) / 𝑠][(.r‘𝑊) / 𝑡](((𝑟𝑠𝑥)𝑡𝑦) = (𝑟𝑠(𝑥𝑡𝑦)) ∧ (𝑥𝑡(𝑟𝑠𝑦)) = (𝑟𝑠(𝑥𝑡𝑦)))) ↔ (𝑊 ∈ (LMod ∩ Ring) ∧ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
63		elin 3412	. . 3 ⊢ (𝑊 ∈ (LMod ∩ Ring) ↔ (𝑊 ∈ LMod ∧ 𝑊 ∈ Ring))
64	63	anbi1i 462	. 2 ⊢ ((𝑊 ∈ (LMod ∩ Ring) ∧ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))) ↔ ((𝑊 ∈ LMod ∧ 𝑊 ∈ Ring) ∧ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))
65	12, 62, 64	3bitri 206	1 ⊢ (𝑊 ∈ AssAlg ↔ ((𝑊 ∈ LMod ∧ 𝑊 ∈ Ring) ∧ ∀𝑟 ∈ 𝐵 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝑉 (((𝑟 · 𝑥) × 𝑦) = (𝑟 · (𝑥 × 𝑦)) ∧ (𝑥 × (𝑟 · 𝑦)) = (𝑟 · (𝑥 × 𝑦)))))

Syntax hints:   ∧ wa 104   ↔ wb 105   = wceq 1402   ∈ wcel 2209  ∀wral 2528  Vcvv 2821  [wsbc 3051   ∩ cin 3219  ‘cfv 5375  (class class class)co 6079  Basecbs 13335  ._rcmulr 13415  Scalarcsca 13417   ·_𝑠 cvsca 13418  Ringcrg 14283  LModclmod 14606  AssAlgcasa 14979

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-sep 4247  ax-pow 4309  ax-pr 4344  ax-un 4576  ax-cnex 8264  ax-resscn 8265  ax-1re 8267  ax-addrcl 8270

This theorem depends on definitions:  df-bi 117  df-3an 1011  df-tru 1405  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ral 2533  df-rex 2534  df-rab 2537  df-v 2823  df-sbc 3052  df-un 3224  df-in 3226  df-ss 3233  df-pw 3690  df-sn 3714  df-pr 3715  df-op 3717  df-uni 3934  df-int 3969  df-br 4129  df-opab 4191  df-mpt 4192  df-id 4436  df-xp 4778  df-rel 4779  df-cnv 4780  df-co 4781  df-dm 4782  df-rn 4783  df-res 4784  df-iota 5335  df-fun 5377  df-fn 5378  df-fv 5383  df-ov 6082  df-inn 9288  df-2 9346  df-3 9347  df-4 9348  df-5 9349  df-6 9350  df-ndx 13338  df-slot 13339  df-mulr 13428  df-sca 13430  df-vsca 13431  df-assa 14982

This theorem is referenced by:  assalem  14986  assalmod  14989  assaring  14990  isassad  14994  assapropd  14997