isclmp - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > isclmp		Structured version Visualization version GIF version

Theorem isclmp 25398

Description: The predicate "is a subcomplex module". (Contributed by NM, 31-May-2008.) (Revised by AV, 4-Oct-2021.)

**Hypotheses**
Ref	Expression
isclmp.t	⊢ · = ( ·_𝑠 ‘𝑊)
isclmp.a	⊢ + = (+_g‘𝑊)
isclmp.v	⊢ 𝑉 = (Base‘𝑊)
isclmp.s	⊢ 𝑆 = (Scalar‘𝑊)
isclmp.k	⊢ 𝐾 = (Base‘𝑆)

**Assertion**
Ref	Expression
isclmp	⊢ (𝑊 ∈ ℂMod ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ ∀𝑥 ∈ 𝑉 ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))

Distinct variable groups: 𝑥,𝐾,𝑦,𝑧 𝑥,𝑆,𝑦,𝑧 𝑥,𝑉,𝑦,𝑧 𝑥,𝑊,𝑦,𝑧 𝑥, + ,𝑦,𝑧 𝑥, · ,𝑦,𝑧

Proof of Theorem isclmp Dummy variable 𝑟 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		isclmp.s	. . 3 ⊢ 𝑆 = (Scalar‘𝑊)
2		isclmp.k	. . 3 ⊢ 𝐾 = (Base‘𝑆)
3	1, 2	isclm 25365	. 2 ⊢ (𝑊 ∈ ℂMod ↔ (𝑊 ∈ LMod ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)))
4		isclmp.v	. . . . 5 ⊢ 𝑉 = (Base‘𝑊)
5		isclmp.a	. . . . 5 ⊢ + = (+_g‘𝑊)
6		isclmp.t	. . . . 5 ⊢ · = ( ·_𝑠 ‘𝑊)
7		eqid 2761	. . . . 5 ⊢ (+_g‘𝑆) = (+_g‘𝑆)
8		eqid 2761	. . . . 5 ⊢ (._r‘𝑆) = (._r‘𝑆)
9		eqid 2761	. . . . 5 ⊢ (1_r‘𝑆) = (1_r‘𝑆)
10	4, 5, 6, 1, 2, 7, 8, 9	islmod 21119	. . . 4 ⊢ (𝑊 ∈ LMod ↔ (𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))))
11	10	3anbi1i 1175	. . 3 ⊢ ((𝑊 ∈ LMod ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ↔ ((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)))
12		3anass 1111	. . . 4 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ↔ ((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))))
13		df-3an 1105	. . . . 5 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ↔ ((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))))
14	13	anbi1i 636	. . . 4 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ↔ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))))
15	12, 14	bitri 278	. . 3 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ↔ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))))
16		an32 659	. . 3 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ↔ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))))
17	11, 15, 16	3bitri 300	. 2 ⊢ ((𝑊 ∈ LMod ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ↔ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))))
18		an32 659	. . . . 5 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ↔ ((𝑊 ∈ Grp ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ∧ 𝑆 ∈ Ring))
19		3anass 1111	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ↔ (𝑊 ∈ Grp ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))))
20	19	bicomi 227	. . . . . 6 ⊢ ((𝑊 ∈ Grp ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ↔ (𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)))
21	20	anbi1i 636	. . . . 5 ⊢ (((𝑊 ∈ Grp ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ∧ 𝑆 ∈ Ring) ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ 𝑆 ∈ Ring))
22	18, 21	bitri 278	. . . 4 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ 𝑆 ∈ Ring))
23	22	anbi1i 636	. . 3 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ↔ (((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ 𝑆 ∈ Ring) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))))
24		anass 474	. . 3 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ 𝑆 ∈ Ring) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)))))
25		df-3an 1105	. . . . . . . . . . 11 ⊢ (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ↔ (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))))
26		ancom 466	. . . . . . . . . . 11 ⊢ ((((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ↔ (((1_r‘𝑆) · 𝑥) = 𝑥 ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))
27	25, 26	anbi12i 640	. . . . . . . . . 10 ⊢ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((1_r‘𝑆) · 𝑥) = 𝑥 ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
28		an4 669	. . . . . . . . . 10 ⊢ (((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((1_r‘𝑆) · 𝑥) = 𝑥 ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ∧ (((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
29		an32 659	. . . . . . . . . . . 12 ⊢ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ↔ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
30		ancom 466	. . . . . . . . . . . . 13 ⊢ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ↔ (((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉))
31	30	anbi1i 636	. . . . . . . . . . . 12 ⊢ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ ((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
32	29, 31	bitri 278	. . . . . . . . . . 11 ⊢ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ↔ ((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
33	32	anbi1i 636	. . . . . . . . . 10 ⊢ (((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥) ∧ (((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
34	27, 28, 33	3bitri 300	. . . . . . . . 9 ⊢ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ (((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
35		fveq2 6877	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑆 = (ℂ_fld ↾_s 𝐾) → (1_r‘𝑆) = (1_r‘(ℂ_fld ↾_s 𝐾)))
36		eqid 2761	. . . . . . . . . . . . . . . . . . . 20 ⊢ (ℂ_fld ↾_s 𝐾) = (ℂ_fld ↾_s 𝐾)
37		eqid 2761	. . . . . . . . . . . . . . . . . . . 20 ⊢ (1_r‘ℂ_fld) = (1_r‘ℂ_fld)
38	36, 37	subrg1 20814	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → (1_r‘ℂ_fld) = (1_r‘(ℂ_fld ↾_s 𝐾)))
39	38	eqcomd 2767	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → (1_r‘(ℂ_fld ↾_s 𝐾)) = (1_r‘ℂ_fld))
40	35, 39	sylan9eq 2816	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (1_r‘𝑆) = (1_r‘ℂ_fld))
41		cnfld1 21683	. . . . . . . . . . . . . . . . 17 ⊢ 1 = (1_r‘ℂ_fld)
42	40, 41	eqtr4di 2814	. . . . . . . . . . . . . . . 16 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (1_r‘𝑆) = 1)
43	42	oveq1d 7427	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → ((1_r‘𝑆) · 𝑥) = (1 · 𝑥))
44	43	eqeq1d 2763	. . . . . . . . . . . . . 14 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (((1_r‘𝑆) · 𝑥) = 𝑥 ↔ (1 · 𝑥) = 𝑥))
45	44	3adant1 1148	. . . . . . . . . . . . 13 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (((1_r‘𝑆) · 𝑥) = 𝑥 ↔ (1 · 𝑥) = 𝑥))
46	45	ad2antrr 739	. . . . . . . . . . . 12 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → (((1_r‘𝑆) · 𝑥) = 𝑥 ↔ (1 · 𝑥) = 𝑥))
47	46	anbi1d 643	. . . . . . . . . . 11 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → ((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ↔ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)))
48	47	anbi1d 643	. . . . . . . . . 10 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → (((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ (((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
49		eqid 2761	. . . . . . . . . . . . . . . . . . 19 ⊢ (+_g‘ℂ_fld) = (+_g‘ℂ_fld)
50	36, 49	ressplusg 17442	. . . . . . . . . . . . . . . . . 18 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → (+_g‘ℂ_fld) = (+_g‘(ℂ_fld ↾_s 𝐾)))
51	50	adantl 487	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (+_g‘ℂ_fld) = (+_g‘(ℂ_fld ↾_s 𝐾)))
52		cnfldadd 21664	. . . . . . . . . . . . . . . . . 18 ⊢ + = (+_g‘ℂ_fld)
53	52	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → + = (+_g‘ℂ_fld))
54		fveq2 6877	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑆 = (ℂ_fld ↾_s 𝐾) → (+_g‘𝑆) = (+_g‘(ℂ_fld ↾_s 𝐾)))
55	54	adantr 486	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (+_g‘𝑆) = (+_g‘(ℂ_fld ↾_s 𝐾)))
56	51, 53, 55	3eqtr4rd 2807	. . . . . . . . . . . . . . . 16 ⊢ ((𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (+_g‘𝑆) = + )
57	56	3adant1 1148	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (+_g‘𝑆) = + )
58	57	oveqd 7429	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (𝑟(+_g‘𝑆)𝑦) = (𝑟 + 𝑦))
59	58	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → (𝑟(+_g‘𝑆)𝑦) = (𝑟 + 𝑦))
60	59	oveq1d 7427	. . . . . . . . . . . 12 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 + 𝑦) · 𝑥))
61	60	eqeq1d 2763	. . . . . . . . . . 11 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → (((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ↔ ((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))))
62		eqid 2761	. . . . . . . . . . . . . . . . . 18 ⊢ (._r‘ℂ_fld) = (._r‘ℂ_fld)
63	36, 62	ressmulr 17458	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → (._r‘ℂ_fld) = (._r‘(ℂ_fld ↾_s 𝐾)))
64	63	3ad2ant3 1153	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (._r‘ℂ_fld) = (._r‘(ℂ_fld ↾_s 𝐾)))
65		cnfldmul 21666	. . . . . . . . . . . . . . . . 17 ⊢ · = (._r‘ℂ_fld)
66	65	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → · = (._r‘ℂ_fld))
67		fveq2 6877	. . . . . . . . . . . . . . . . 17 ⊢ (𝑆 = (ℂ_fld ↾_s 𝐾) → (._r‘𝑆) = (._r‘(ℂ_fld ↾_s 𝐾)))
68	67	3ad2ant2 1152	. . . . . . . . . . . . . . . 16 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (._r‘𝑆) = (._r‘(ℂ_fld ↾_s 𝐾)))
69	64, 66, 68	3eqtr4rd 2807	. . . . . . . . . . . . . . 15 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (._r‘𝑆) = · )
70	69	oveqd 7429	. . . . . . . . . . . . . 14 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (𝑟(._r‘𝑆)𝑦) = (𝑟 · 𝑦))
71	70	ad2antrr 739	. . . . . . . . . . . . 13 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → (𝑟(._r‘𝑆)𝑦) = (𝑟 · 𝑦))
72	71	oveq1d 7427	. . . . . . . . . . . 12 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → ((𝑟(._r‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑦) · 𝑥))
73	72	eqeq1d 2763	. . . . . . . . . . 11 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ↔ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))
74	61, 73	anbi12d 644	. . . . . . . . . 10 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → ((((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))) ↔ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
75	48, 74	anbi12d 644	. . . . . . . . 9 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → ((((((1_r‘𝑆) · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
76	34, 75	bitrid 286	. . . . . . . 8 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) ∧ (𝑧 ∈ 𝑉 ∧ 𝑥 ∈ 𝑉)) → ((((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
77	76	2ralbidva 3225	. . . . . . 7 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑟 ∈ 𝐾 ∧ 𝑦 ∈ 𝐾)) → (∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
78	77	2ralbidva 3225	. . . . . 6 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
79		ralrot3 3294	. . . . . . . . 9 ⊢ (∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
80	79	ralbii 3109	. . . . . . . 8 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
81		ralcom 3291	. . . . . . . 8 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
82	80, 81	bitri 278	. . . . . . 7 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
83		ralcom 3291	. . . . . . . 8 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑦 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
84	83	ralbii 3109	. . . . . . 7 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
85		ralcom 3291	. . . . . . . 8 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
86	85	2ralbii 3138	. . . . . . 7 ⊢ (∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑟 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
87	82, 84, 86	3bitri 300	. . . . . 6 ⊢ (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
88	78, 87	bitrdi 290	. . . . 5 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ ∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
89	36	subrgring 20806	. . . . . . . 8 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → (ℂ_fld ↾_s 𝐾) ∈ Ring)
90	89	3ad2ant3 1153	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (ℂ_fld ↾_s 𝐾) ∈ Ring)
91		eleq1 2849	. . . . . . . 8 ⊢ (𝑆 = (ℂ_fld ↾_s 𝐾) → (𝑆 ∈ Ring ↔ (ℂ_fld ↾_s 𝐾) ∈ Ring))
92	91	3ad2ant2 1152	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (𝑆 ∈ Ring ↔ (ℂ_fld ↾_s 𝐾) ∈ Ring))
93	90, 92	mpbird 260	. . . . . 6 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → 𝑆 ∈ Ring)
94	93	biantrurd 542	. . . . 5 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)) ↔ (𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)))))
95	4	grpbn0 19157	. . . . . . . 8 ⊢ (𝑊 ∈ Grp → 𝑉 ≠ ∅)
96	95	3ad2ant1 1151	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → 𝑉 ≠ ∅)
97	37	subrg1cl 20812	. . . . . . . . 9 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → (1_r‘ℂ_fld) ∈ 𝐾)
98	97	ne0d 4288	. . . . . . . 8 ⊢ (𝐾 ∈ (SubRing‘ℂ_fld) → 𝐾 ≠ ∅)
99	98	3ad2ant3 1153	. . . . . . 7 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → 𝐾 ≠ ∅)
100		ancom 466	. . . . . . . . . . . . . . . . 17 ⊢ ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ ((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)))
101	100	anbi1i 636	. . . . . . . . . . . . . . . 16 ⊢ (((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
102	101	a1i 11	. . . . . . . . . . . . . . 15 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
103	102	ralbidv 3186	. . . . . . . . . . . . . 14 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑟 ∈ 𝐾 (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
104		r19.28zv 4462	. . . . . . . . . . . . . . 15 ⊢ (𝐾 ≠ ∅ → (∀𝑟 ∈ 𝐾 (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
105	104	adantl 487	. . . . . . . . . . . . . 14 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑟 ∈ 𝐾 (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
106	103, 105	bitrd 282	. . . . . . . . . . . . 13 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
107		anass 474	. . . . . . . . . . . . . 14 ⊢ ((((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ (((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
108		anass 474	. . . . . . . . . . . . . . 15 ⊢ ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))))
109	108	anbi2i 635	. . . . . . . . . . . . . 14 ⊢ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ (((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ↔ ((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))))
110		ancom 466	. . . . . . . . . . . . . 14 ⊢ (((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))) ↔ (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
111	107, 109, 110	3bitri 300	. . . . . . . . . . . . 13 ⊢ ((((𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
112	106, 111	bitrdi 290	. . . . . . . . . . . 12 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
113	112	ralbidv 3186	. . . . . . . . . . 11 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑧 ∈ 𝑉 (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
114		r19.28zv 4462	. . . . . . . . . . . 12 ⊢ (𝑉 ≠ ∅ → (∀𝑧 ∈ 𝑉 (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
115	114	adantr 486	. . . . . . . . . . 11 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑧 ∈ 𝑉 (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
116	113, 115	bitrd 282	. . . . . . . . . 10 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
117		anass 474	. . . . . . . . . . 11 ⊢ ((((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ ((1 · 𝑥) = 𝑥 ∧ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))))
118		oveq1 7419	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑟 → (𝑧 + 𝑦) = (𝑟 + 𝑦))
119	118	oveq1d 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑟 → ((𝑧 + 𝑦) · 𝑥) = ((𝑟 + 𝑦) · 𝑥))
120		oveq1 7419	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑟 → (𝑧 · 𝑥) = (𝑟 · 𝑥))
121	120	oveq1d 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑟 → ((𝑧 · 𝑥) + (𝑦 · 𝑥)) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)))
122	119, 121	eqeq12d 2777	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑟 → (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ↔ ((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))))
123		oveq1 7419	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑧 = 𝑟 → (𝑧 · 𝑦) = (𝑟 · 𝑦))
124	123	oveq1d 7427	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑟 → ((𝑧 · 𝑦) · 𝑥) = ((𝑟 · 𝑦) · 𝑥))
125		oveq1 7419	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑧 = 𝑟 → (𝑧 · (𝑦 · 𝑥)) = (𝑟 · (𝑦 · 𝑥)))
126	124, 125	eqeq12d 2777	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑟 → (((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)) ↔ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))
127	122, 126	anbi12d 644	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑟 → ((((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥))) ↔ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
128	127	cbvralvw 3241	. . . . . . . . . . . . . . 15 ⊢ (∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥))) ↔ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))
129	128	3anbi3i 1177	. . . . . . . . . . . . . 14 ⊢ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))) ↔ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))))
130		3anan32 1113	. . . . . . . . . . . . . 14 ⊢ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
131	129, 130	bitri 278	. . . . . . . . . . . . 13 ⊢ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))) ↔ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))))
132	131	bicomi 227	. . . . . . . . . . . 12 ⊢ ((((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))
133	132	anbi2i 635	. . . . . . . . . . 11 ⊢ (((1 · 𝑥) = 𝑥 ∧ (((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)))) ↔ ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥))))))
134	117, 133	bitri 278	. . . . . . . . . 10 ⊢ ((((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑟 ∈ 𝐾 (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥))))) ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ↔ ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥))))))
135	116, 134	bitrdi 290	. . . . . . . . 9 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
136	135	ralbidv 3186	. . . . . . . 8 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑦 ∈ 𝐾 ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
137		r19.28zv 4462	. . . . . . . . 9 ⊢ (𝐾 ≠ ∅ → (∀𝑦 ∈ 𝐾 ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥))))) ↔ ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
138	137	adantl 487	. . . . . . . 8 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑦 ∈ 𝐾 ((1 · 𝑥) = 𝑥 ∧ ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥))))) ↔ ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
139	136, 138	bitrd 282	. . . . . . 7 ⊢ ((𝑉 ≠ ∅ ∧ 𝐾 ≠ ∅) → (∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
140	96, 99, 139	syl2anc 596	. . . . . 6 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
141	140	ralbidv 3186	. . . . 5 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → (∀𝑥 ∈ 𝑉 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑟 ∈ 𝐾 ((((1 · 𝑥) = 𝑥 ∧ (𝑦 · 𝑥) ∈ 𝑉) ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧))) ∧ (((𝑟 + 𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑟 · 𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)))) ↔ ∀𝑥 ∈ 𝑉 ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
142	88, 94, 141	3bitr3d 312	. . . 4 ⊢ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) → ((𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ↔ ∀𝑥 ∈ 𝑉 ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
143	142	pm5.32i 585	. . 3 ⊢ (((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ (𝑆 ∈ Ring ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥)))) ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ ∀𝑥 ∈ 𝑉 ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
144	23, 24, 143	3bitri 300	. 2 ⊢ ((((𝑊 ∈ Grp ∧ 𝑆 ∈ Ring) ∧ (𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld))) ∧ ∀𝑟 ∈ 𝐾 ∀𝑦 ∈ 𝐾 ∀𝑧 ∈ 𝑉 ∀𝑥 ∈ 𝑉 (((𝑦 · 𝑥) ∈ 𝑉 ∧ (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ((𝑟(+_g‘𝑆)𝑦) · 𝑥) = ((𝑟 · 𝑥) + (𝑦 · 𝑥))) ∧ (((𝑟(._r‘𝑆)𝑦) · 𝑥) = (𝑟 · (𝑦 · 𝑥)) ∧ ((1_r‘𝑆) · 𝑥) = 𝑥))) ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ ∀𝑥 ∈ 𝑉 ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))
145	3, 17, 144	3bitri 300	1 ⊢ (𝑊 ∈ ℂMod ↔ ((𝑊 ∈ Grp ∧ 𝑆 = (ℂ_fld ↾_s 𝐾) ∧ 𝐾 ∈ (SubRing‘ℂ_fld)) ∧ ∀𝑥 ∈ 𝑉 ((1 · 𝑥) = 𝑥 ∧ ∀𝑦 ∈ 𝐾 ((𝑦 · 𝑥) ∈ 𝑉 ∧ ∀𝑧 ∈ 𝑉 (𝑦 · (𝑥 + 𝑧)) = ((𝑦 · 𝑥) + (𝑦 · 𝑧)) ∧ ∀𝑧 ∈ 𝐾 (((𝑧 + 𝑦) · 𝑥) = ((𝑧 · 𝑥) + (𝑦 · 𝑥)) ∧ ((𝑧 · 𝑦) · 𝑥) = (𝑧 · (𝑦 · 𝑥)))))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ↔ wb 209 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2145 ≠ wne 2956 ∀wral 3077 ∅c0 4279 ‘cfv 6531 (class class class)co 7412 1c1 11182 + caddc 11184 · cmul 11186 Basecbs 17367 ↾_s cress 17388 +_gcplusg 17408 ._rcmulr 17409 Scalarcsca 17411 ·_𝑠 cvsca 17412 Grpcgrp 19124 1_rcur 20387 Ringcrg 20439 SubRingcsubrg 20801 LModclmod 21115 ℂ_fldccnfld 21658 ℂModcclm 25363

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2733 ax-sep 5249 ax-nul 5260 ax-pow 5327 ax-pr 5391 ax-un 7740 ax-cnex 11237 ax-resscn 11238 ax-1cn 11239 ax-icn 11240 ax-addcl 11241 ax-addrcl 11242 ax-mulcl 11243 ax-mulrcl 11244 ax-mulcom 11245 ax-addass 11246 ax-mulass 11247 ax-distr 11248 ax-i2m1 11249 ax-1ne0 11250 ax-1rid 11251 ax-rnegex 11252 ax-rrecex 11253 ax-cnre 11254 ax-pre-lttri 11255 ax-pre-lttrn 11256 ax-pre-ltadd 11257 ax-pre-mulgt0 11258 ax-addf 11260 ax-mulf 11261

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2565 df-eu 2595 df-clab 2740 df-cleq 2753 df-clel 2836 df-nfc 2910 df-ne 2957 df-nel 3063 df-ral 3078 df-rex 3088 df-rmo 3366 df-reu 3367 df-rab 3414 df-v 3453 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-iun 4953 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5546 df-eprel 5551 df-po 5559 df-so 5560 df-fr 5604 df-we 5606 df-xp 5657 df-rel 5658 df-cnv 5659 df-co 5660 df-dm 5661 df-rn 5662 df-res 5663 df-ima 5664 df-pred 6297 df-ord 6358 df-on 6359 df-lim 6360 df-suc 6361 df-iota 6487 df-fun 6533 df-fn 6534 df-f 6535 df-f1 6536 df-fo 6537 df-f1o 6538 df-fv 6539 df-riota 7369 df-ov 7415 df-oprab 7416 df-mpo 7417 df-om 7867 df-1st 7990 df-2nd 7991 df-frecs 8283 df-wrecs 8314 df-recs 8363 df-rdg 8402 df-1o 8460 df-er 8701 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11524 df-neg 11525 df-nn 12317 df-2 12386 df-3 12387 df-4 12388 df-5 12389 df-6 12390 df-7 12391 df-8 12392 df-9 12393 df-n0 12588 df-z 12675 df-dec 12796 df-uz 12947 df-fz 13621 df-struct 17305 df-sets 17322 df-slot 17340 df-ndx 17352 df-base 17368 df-ress 17389 df-plusg 17421 df-mulr 17422 df-starv 17423 df-tset 17427 df-ple 17428 df-ds 17430 df-unif 17431 df-0g 17592 df-mgm 18796 df-sgrp 18888 df-mnd 18904 df-grp 19127 df-subg 19313 df-cmn 19976 df-mgp 20341 df-ur 20388 df-ring 20441 df-cring 20442 df-subrg 20802 df-lmod 21117 df-cnfld 21659 df-clm 25364

This theorem is used by: isclmi0 25399 iscvsp 25429

W3C validator