Theorem fedgmullem1 33964

Description: Lemma for fedgmul 33966. (Contributed by Thierry Arnoux, 20-Jul-2023.)

Hypotheses

Ref	Expression
fedgmul.a	⊢ 𝐴 = ((subringAlg ‘𝐸)‘𝑉)
fedgmul.b	⊢ 𝐵 = ((subringAlg ‘𝐸)‘𝑈)
fedgmul.c	⊢ 𝐶 = ((subringAlg ‘𝐹)‘𝑉)
fedgmul.f	⊢ 𝐹 = (𝐸 ↾s 𝑈)
fedgmul.k	⊢ 𝐾 = (𝐸 ↾s 𝑉)
fedgmul.1	⊢ (𝜑 → 𝐸 ∈ DivRing)
fedgmul.2	⊢ (𝜑 → 𝐹 ∈ DivRing)
fedgmul.3	⊢ (𝜑 → 𝐾 ∈ DivRing)
fedgmul.4	⊢ (𝜑 → 𝑈 ∈ (SubRing‘𝐸))
fedgmul.5	⊢ (𝜑 → 𝑉 ∈ (SubRing‘𝐹))
fedgmullem.d	⊢ 𝐷 = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (𝑖(.r‘𝐸)𝑗))
fedgmullem.h	⊢ 𝐻 = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑖))
fedgmullem.x	⊢ (𝜑 → 𝑋 ∈ (LBasis‘𝐶))
fedgmullem.y	⊢ (𝜑 → 𝑌 ∈ (LBasis‘𝐵))
fedgmullem1.a	⊢ (𝜑 → 𝑍 ∈ (Base‘𝐴))
fedgmullem1.l	⊢ (𝜑 → 𝐿:𝑌⟶(Base‘(Scalar‘𝐵)))
fedgmullem1.1	⊢ (𝜑 → 𝐿 finSupp (0g‘(Scalar‘𝐵)))
fedgmullem1.z	⊢ (𝜑 → 𝑍 = (𝐵 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))))
fedgmullem1.g	⊢ (𝜑 → 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋))
fedgmullem1.2	⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)))
fedgmullem1.3	⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐿‘𝑗) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))

Assertion

Ref	Expression
fedgmullem1	⊢ (𝜑 → (𝐻 finSupp (0g‘(Scalar‘𝐴)) ∧ 𝑍 = (𝐴 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷))))

Distinct variable groups:   𝐴,𝑖,𝑗   𝐵,𝑗   𝐶,𝑖,𝑗   𝐷,𝑖,𝑗   𝑖,𝐸,𝑗   𝑖,𝐺,𝑗   𝑖,𝐻,𝑗   𝑗,𝐿   𝑈,𝑖   𝑖,𝑋,𝑗   𝑖,𝑌,𝑗   𝜑,𝑖,𝑗

Allowed substitution hints:   𝐵(𝑖)   𝑈(𝑗)   𝐹(𝑖,𝑗)   𝐾(𝑖,𝑗)   𝐿(𝑖)   𝑉(𝑖,𝑗)   𝑍(𝑖,𝑗)

Proof of Theorem fedgmullem1

Dummy variables 𝑢 𝑘 𝑙 𝑔 𝑤 𝑣 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fedgmullem1.g	. . . . 5 ⊢ (𝜑 → 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋))
2		simpllr 787	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋))
3		simplr 780	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑗 ∈ 𝑌)
4	2, 3	ffvelcdmd 7081	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝐺‘𝑗) ∈ ((Base‘(Scalar‘𝐶)) ↑m 𝑋))
5		elmapi 8846	. . . . . . . . . . . 12 ⊢ ((𝐺‘𝑗) ∈ ((Base‘(Scalar‘𝐶)) ↑m 𝑋) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶)))
6	4, 5	syl 18	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶)))
7	6	anasss 471	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶)))
8		simprr 784	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → 𝑖 ∈ 𝑋)
9	7, 8	ffvelcdmd 7081	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐶)))
10		fedgmul.k	. . . . . . . . . . . . 13 ⊢ 𝐾 = (𝐸 ↾s 𝑉)
11		fedgmul.a	. . . . . . . . . . . . . . 15 ⊢ 𝐴 = ((subringAlg ‘𝐸)‘𝑉)
12	11	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐴 = ((subringAlg ‘𝐸)‘𝑉))
13		fedgmul.4	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑈 ∈ (SubRing‘𝐸))
14		fedgmul.5	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝑉 ∈ (SubRing‘𝐹))
15		fedgmul.f	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐹 = (𝐸 ↾s 𝑈)
16	15	subsubrg 20683	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑈 ∈ (SubRing‘𝐸) → (𝑉 ∈ (SubRing‘𝐹) ↔ (𝑉 ∈ (SubRing‘𝐸) ∧ 𝑉 ⊆ 𝑈)))
17	16	biimpa 481	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑈 ∈ (SubRing‘𝐸) ∧ 𝑉 ∈ (SubRing‘𝐹)) → (𝑉 ∈ (SubRing‘𝐸) ∧ 𝑉 ⊆ 𝑈))
18	13, 14, 17	syl2anc 595	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑉 ∈ (SubRing‘𝐸) ∧ 𝑉 ⊆ 𝑈))
19	18	simpld 499	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉 ∈ (SubRing‘𝐸))
20		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐸) = (Base‘𝐸)
21	20	subrgss 20657	. . . . . . . . . . . . . . 15 ⊢ (𝑉 ∈ (SubRing‘𝐸) → 𝑉 ⊆ (Base‘𝐸))
22	19, 21	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ⊆ (Base‘𝐸))
23	12, 22	srasca 21279	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ↾s 𝑉) = (Scalar‘𝐴))
24	10, 23	eqtrid 2816	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 = (Scalar‘𝐴))
25	18	simprd 500	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉 ⊆ 𝑈)
26		ressabs 17308	. . . . . . . . . . . . . . 15 ⊢ ((𝑈 ∈ (SubRing‘𝐸) ∧ 𝑉 ⊆ 𝑈) → ((𝐸 ↾s 𝑈) ↾s 𝑉) = (𝐸 ↾s 𝑉))
27	13, 25, 26	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐸 ↾s 𝑈) ↾s 𝑉) = (𝐸 ↾s 𝑉))
28	15	oveq1i 7421	. . . . . . . . . . . . . 14 ⊢ (𝐹 ↾s 𝑉) = ((𝐸 ↾s 𝑈) ↾s 𝑉)
29	27, 28, 10	3eqtr4g 2829	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 ↾s 𝑉) = 𝐾)
30		fedgmul.c	. . . . . . . . . . . . . . 15 ⊢ 𝐶 = ((subringAlg ‘𝐹)‘𝑉)
31	30	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐶 = ((subringAlg ‘𝐹)‘𝑉))
32		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (Base‘𝐹) = (Base‘𝐹)
33	32	subrgss 20657	. . . . . . . . . . . . . . 15 ⊢ (𝑉 ∈ (SubRing‘𝐹) → 𝑉 ⊆ (Base‘𝐹))
34	14, 33	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 ⊆ (Base‘𝐹))
35	31, 34	srasca 21279	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐹 ↾s 𝑉) = (Scalar‘𝐶))
36	29, 35	eqtr3d 2806	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 = (Scalar‘𝐶))
37	24, 36	eqtr3d 2806	. . . . . . . . . . 11 ⊢ (𝜑 → (Scalar‘𝐴) = (Scalar‘𝐶))
38	37	fveq2d 6886	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘(Scalar‘𝐴)) = (Base‘(Scalar‘𝐶)))
39	38	ad2antrr 738	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → (Base‘(Scalar‘𝐴)) = (Base‘(Scalar‘𝐶)))
40	9, 39	eleqtrrd 2872	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐴)))
41	40	ralrimivva 3214	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) → ∀𝑗 ∈ 𝑌 ∀𝑖 ∈ 𝑋 ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐴)))
42		fedgmullem.h	. . . . . . . 8 ⊢ 𝐻 = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑖))
43	42	fmpo 8065	. . . . . . 7 ⊢ (∀𝑗 ∈ 𝑌 ∀𝑖 ∈ 𝑋 ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐴)) ↔ 𝐻:(𝑌 × 𝑋)⟶(Base‘(Scalar‘𝐴)))
44	41, 43	sylib 221	. . . . . 6 ⊢ ((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) → 𝐻:(𝑌 × 𝑋)⟶(Base‘(Scalar‘𝐴)))
45		fvexd 6897	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) → (Base‘(Scalar‘𝐴)) ∈ V)
46		fedgmullem.y	. . . . . . . . 9 ⊢ (𝜑 → 𝑌 ∈ (LBasis‘𝐵))
47		fedgmullem.x	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ (LBasis‘𝐶))
48	46, 47	xpexd 7750	. . . . . . . 8 ⊢ (𝜑 → (𝑌 × 𝑋) ∈ V)
49	48	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) → (𝑌 × 𝑋) ∈ V)
50	45, 49	elmapd 8837	. . . . . 6 ⊢ ((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) → (𝐻 ∈ ((Base‘(Scalar‘𝐴)) ↑m (𝑌 × 𝑋)) ↔ 𝐻:(𝑌 × 𝑋)⟶(Base‘(Scalar‘𝐴))))
51	44, 50	mpbird 260	. . . . 5 ⊢ ((𝜑 ∧ 𝐺:𝑌⟶((Base‘(Scalar‘𝐶)) ↑m 𝑋)) → 𝐻 ∈ ((Base‘(Scalar‘𝐴)) ↑m (𝑌 × 𝑋)))
52	1, 51	mpdan 699	. . . 4 ⊢ (𝜑 → 𝐻 ∈ ((Base‘(Scalar‘𝐴)) ↑m (𝑌 × 𝑋)))
53		simpl 487	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝜑)
54	53	adantr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝜑)
55	1	ffvelcdmda 7080	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗) ∈ ((Base‘(Scalar‘𝐶)) ↑m 𝑋))
56	55, 5	syl 18	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶)))
57	56	adantr 485	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶)))
58	38	feq3d 6691	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐴)) ↔ (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶))))
59	58	biimpar 482	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐶))) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐴)))
60	54, 57, 59	syl2anc 595	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝐺‘𝑗):𝑋⟶(Base‘(Scalar‘𝐴)))
61		simpr 489	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑖 ∈ 𝑋)
62	60, 61	ffvelcdmd 7081	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐴)))
63	62	ralrimiva 3163	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ∀𝑖 ∈ 𝑋 ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐴)))
64	63	ralrimiva 3163	. . . . . 6 ⊢ (𝜑 → ∀𝑗 ∈ 𝑌 ∀𝑖 ∈ 𝑋 ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐴)))
65	64, 43	sylib 221	. . . . 5 ⊢ (𝜑 → 𝐻:(𝑌 × 𝑋)⟶(Base‘(Scalar‘𝐴)))
66	65	ffund 6711	. . . 4 ⊢ (𝜑 → Fun 𝐻)
67		fedgmul.1	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ DivRing)
68		drngring 20820	. . . . . 6 ⊢ (𝐸 ∈ DivRing → 𝐸 ∈ Ring)
69	67, 68	syl 18	. . . . 5 ⊢ (𝜑 → 𝐸 ∈ Ring)
70		ringgrp 20320	. . . . 5 ⊢ (𝐸 ∈ Ring → 𝐸 ∈ Grp)
71		eqid 2769	. . . . . 6 ⊢ (0g‘𝐸) = (0g‘𝐸)
72	20, 71	grpidcl 19032	. . . . 5 ⊢ (𝐸 ∈ Grp → (0g‘𝐸) ∈ (Base‘𝐸))
73	69, 70, 72	3syl 19	. . . 4 ⊢ (𝜑 → (0g‘𝐸) ∈ (Base‘𝐸))
74		fedgmullem1.1	. . . . . . 7 ⊢ (𝜑 → 𝐿 finSupp (0g‘(Scalar‘𝐵)))
75	74	fsuppimpd 9329	. . . . . 6 ⊢ (𝜑 → (𝐿 supp (0g‘(Scalar‘𝐵))) ∈ Fin)
76		simpl 487	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → 𝜑)
77		simpr 489	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵)))))
78	77	eldifad 3925	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → 𝑗 ∈ 𝑌)
79		fedgmullem1.l	. . . . . . . . . 10 ⊢ (𝜑 → 𝐿:𝑌⟶(Base‘(Scalar‘𝐵)))
80		ssidd 3968	. . . . . . . . . 10 ⊢ (𝜑 → (𝐿 supp (0g‘(Scalar‘𝐵))) ⊆ (𝐿 supp (0g‘(Scalar‘𝐵))))
81		fvexd 6897	. . . . . . . . . 10 ⊢ (𝜑 → (0g‘(Scalar‘𝐵)) ∈ V)
82	79, 80, 46, 81	suppssr 8191	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → (𝐿‘𝑗) = (0g‘(Scalar‘𝐵)))
83		fedgmullem1.3	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐿‘𝑗) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
84	78, 83	syldan 602	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → (𝐿‘𝑗) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
85		fedgmul.b	. . . . . . . . . . . . . . 15 ⊢ 𝐵 = ((subringAlg ‘𝐸)‘𝑈)
86	85	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐵 = ((subringAlg ‘𝐸)‘𝑈))
87	20	subrgss 20657	. . . . . . . . . . . . . . 15 ⊢ (𝑈 ∈ (SubRing‘𝐸) → 𝑈 ⊆ (Base‘𝐸))
88	13, 87	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑈 ⊆ (Base‘𝐸))
89	86, 88	srasca 21279	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐸 ↾s 𝑈) = (Scalar‘𝐵))
90	15, 89	eqtrid 2816	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹 = (Scalar‘𝐵))
91	90	fveq2d 6886	. . . . . . . . . . 11 ⊢ (𝜑 → (0g‘𝐹) = (0g‘(Scalar‘𝐵)))
92		fedgmul.2	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐹 ∈ DivRing)
93	30, 92, 14	drgext0g 33925	. . . . . . . . . . 11 ⊢ (𝜑 → (0g‘𝐹) = (0g‘𝐶))
94	91, 93	eqtr3d 2806	. . . . . . . . . 10 ⊢ (𝜑 → (0g‘(Scalar‘𝐵)) = (0g‘𝐶))
95	94	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → (0g‘(Scalar‘𝐵)) = (0g‘𝐶))
96	82, 84, 95	3eqtr3d 2812	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶))
97		fedgmullem1.2	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)))
98		breq1 5116	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝐺‘𝑗) → (𝑔 finSupp (0g‘(Scalar‘𝐶)) ↔ (𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶))))
99		fveq1 6881	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 = (𝐺‘𝑗) → (𝑔‘𝑖) = ((𝐺‘𝑗)‘𝑖))
100	99	oveq1d 7426	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = (𝐺‘𝑗) → ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖) = (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))
101	100	mpteq2dv 5209	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝐺‘𝑗) → (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖)) = (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖)))
102	101	oveq2d 7427	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝐺‘𝑗) → (𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
103	102	eqeq1d 2771	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝐺‘𝑗) → ((𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶) ↔ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)))
104	98, 103	anbi12d 643	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝐺‘𝑗) → ((𝑔 finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) ↔ ((𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶))))
105		eqeq1 2773	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝐺‘𝑗) → (𝑔 = (𝑋 × {(0g‘(Scalar‘𝐶))}) ↔ (𝐺‘𝑗) = (𝑋 × {(0g‘(Scalar‘𝐶))})))
106	104, 105	imbi12d 347	. . . . . . . . . . 11 ⊢ (𝑔 = (𝐺‘𝑗) → (((𝑔 finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → 𝑔 = (𝑋 × {(0g‘(Scalar‘𝐶))})) ↔ (((𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → (𝐺‘𝑗) = (𝑋 × {(0g‘(Scalar‘𝐶))}))))
107		fedgmul.3	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐾 ∈ DivRing)
108	29, 107	eqeltrd 2869	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝐹 ↾s 𝑉) ∈ DivRing)
109		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (𝐹 ↾s 𝑉) = (𝐹 ↾s 𝑉)
110	30, 109	sralvec 33920	. . . . . . . . . . . . . . 15 ⊢ ((𝐹 ∈ DivRing ∧ (𝐹 ↾s 𝑉) ∈ DivRing ∧ 𝑉 ∈ (SubRing‘𝐹)) → 𝐶 ∈ LVec)
111	92, 108, 14, 110	syl3anc 1396	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐶 ∈ LVec)
112		lveclmod 21205	. . . . . . . . . . . . . 14 ⊢ (𝐶 ∈ LVec → 𝐶 ∈ LMod)
113	111, 112	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐶 ∈ LMod)
114	113	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝐶 ∈ LMod)
115		eqid 2769	. . . . . . . . . . . . . . 15 ⊢ (Base‘𝐶) = (Base‘𝐶)
116		eqid 2769	. . . . . . . . . . . . . . 15 ⊢ (LBasis‘𝐶) = (LBasis‘𝐶)
117	115, 116	lbsss 21176	. . . . . . . . . . . . . 14 ⊢ (𝑋 ∈ (LBasis‘𝐶) → 𝑋 ⊆ (Base‘𝐶))
118	47, 117	syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑋 ⊆ (Base‘𝐶))
119	118	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑋 ⊆ (Base‘𝐶))
120		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (LSpan‘𝐶) = (LSpan‘𝐶)
121	115, 116, 120	islbs4 21951	. . . . . . . . . . . . . . 15 ⊢ (𝑋 ∈ (LBasis‘𝐶) ↔ (𝑋 ∈ (LIndS‘𝐶) ∧ ((LSpan‘𝐶)‘𝑋) = (Base‘𝐶)))
122	47, 121	sylib 221	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑋 ∈ (LIndS‘𝐶) ∧ ((LSpan‘𝐶)‘𝑋) = (Base‘𝐶)))
123	122	simpld 499	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑋 ∈ (LIndS‘𝐶))
124	123	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑋 ∈ (LIndS‘𝐶))
125		eqid 2769	. . . . . . . . . . . . . 14 ⊢ (Base‘(Scalar‘𝐶)) = (Base‘(Scalar‘𝐶))
126		eqid 2769	. . . . . . . . . . . . . 14 ⊢ (Scalar‘𝐶) = (Scalar‘𝐶)
127		eqid 2769	. . . . . . . . . . . . . 14 ⊢ ( ·𝑠 ‘𝐶) = ( ·𝑠 ‘𝐶)
128		eqid 2769	. . . . . . . . . . . . . 14 ⊢ (0g‘𝐶) = (0g‘𝐶)
129		eqid 2769	. . . . . . . . . . . . . 14 ⊢ (0g‘(Scalar‘𝐶)) = (0g‘(Scalar‘𝐶))
130	115, 125, 126, 127, 128, 129	islinds5 33625	. . . . . . . . . . . . 13 ⊢ ((𝐶 ∈ LMod ∧ 𝑋 ⊆ (Base‘𝐶)) → (𝑋 ∈ (LIndS‘𝐶) ↔ ∀𝑔 ∈ ((Base‘(Scalar‘𝐶)) ↑m 𝑋)((𝑔 finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → 𝑔 = (𝑋 × {(0g‘(Scalar‘𝐶))}))))
131	130	biimpa 481	. . . . . . . . . . . 12 ⊢ (((𝐶 ∈ LMod ∧ 𝑋 ⊆ (Base‘𝐶)) ∧ 𝑋 ∈ (LIndS‘𝐶)) → ∀𝑔 ∈ ((Base‘(Scalar‘𝐶)) ↑m 𝑋)((𝑔 finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → 𝑔 = (𝑋 × {(0g‘(Scalar‘𝐶))})))
132	114, 119, 124, 131	syl21anc 850	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ∀𝑔 ∈ ((Base‘(Scalar‘𝐶)) ↑m 𝑋)((𝑔 finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ ((𝑔‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → 𝑔 = (𝑋 × {(0g‘(Scalar‘𝐶))})))
133	106, 132, 55	rspcdva 3591	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (((𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → (𝐺‘𝑗) = (𝑋 × {(0g‘(Scalar‘𝐶))})))
134	97, 133	mpand 707	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶) → (𝐺‘𝑗) = (𝑋 × {(0g‘(Scalar‘𝐶))})))
135	134	imp 411	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (0g‘𝐶)) → (𝐺‘𝑗) = (𝑋 × {(0g‘(Scalar‘𝐶))}))
136	76, 78, 96, 135	syl21anc 850	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ (𝑌 ∖ (𝐿 supp (0g‘(Scalar‘𝐵))))) → (𝐺‘𝑗) = (𝑋 × {(0g‘(Scalar‘𝐶))}))
137	1, 136	suppss 8190	. . . . . 6 ⊢ (𝜑 → (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) ⊆ (𝐿 supp (0g‘(Scalar‘𝐵))))
138	75, 137	ssfid 9229	. . . . 5 ⊢ (𝜑 → (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) ∈ Fin)
139		suppssdm 8173	. . . . . . . . . 10 ⊢ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) ⊆ dom 𝐺
140	139, 1	fssdm 6726	. . . . . . . . 9 ⊢ (𝜑 → (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) ⊆ 𝑌)
141	140	sselda 3945	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))) → 𝑤 ∈ 𝑌)
142		eleq1w 2852	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑤 → (𝑗 ∈ 𝑌 ↔ 𝑤 ∈ 𝑌))
143	142	anbi2d 641	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑤 → ((𝜑 ∧ 𝑗 ∈ 𝑌) ↔ (𝜑 ∧ 𝑤 ∈ 𝑌)))
144		fveq2 6882	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑤 → (𝐺‘𝑗) = (𝐺‘𝑤))
145	144	breq1d 5123	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑤 → ((𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)) ↔ (𝐺‘𝑤) finSupp (0g‘(Scalar‘𝐶))))
146	143, 145	imbi12d 347	. . . . . . . . . 10 ⊢ (𝑗 = 𝑤 → (((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶))) ↔ ((𝜑 ∧ 𝑤 ∈ 𝑌) → (𝐺‘𝑤) finSupp (0g‘(Scalar‘𝐶)))))
147	146, 97	chvarvv 2016	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑌) → (𝐺‘𝑤) finSupp (0g‘(Scalar‘𝐶)))
148	147	fsuppimpd 9329	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑤 ∈ 𝑌) → ((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin)
149	141, 148	syldan 602	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))) → ((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin)
150	149	ralrimiva 3163	. . . . . 6 ⊢ (𝜑 → ∀𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin)
151		iunfi 9300	. . . . . 6 ⊢ (((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) ∈ Fin ∧ ∀𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin) → ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin)
152	138, 150, 151	syl2anc 595	. . . . 5 ⊢ (𝜑 → ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin)
153		xpfi 9279	. . . . 5 ⊢ (((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) ∈ Fin ∧ ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))) ∈ Fin) → ((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶)))) ∈ Fin)
154	138, 152, 153	syl2anc 595	. . . 4 ⊢ (𝜑 → ((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶)))) ∈ Fin)
155		fveq2 6882	. . . . . . . . . 10 ⊢ (𝑣 = 𝑗 → (𝐺‘𝑣) = (𝐺‘𝑗))
156	155	fveq1d 6884	. . . . . . . . 9 ⊢ (𝑣 = 𝑗 → ((𝐺‘𝑣)‘𝑢) = ((𝐺‘𝑗)‘𝑢))
157	156	mpteq2dv 5209	. . . . . . . 8 ⊢ (𝑣 = 𝑗 → (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)) = (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑢)))
158		fveq2 6882	. . . . . . . . 9 ⊢ (𝑢 = 𝑖 → ((𝐺‘𝑗)‘𝑢) = ((𝐺‘𝑗)‘𝑖))
159	158	cbvmptv 5219	. . . . . . . 8 ⊢ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑢)) = (𝑖 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑖))
160	157, 159	eqtrdi 2820	. . . . . . 7 ⊢ (𝑣 = 𝑗 → (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)) = (𝑖 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑖)))
161	160	cbvmptv 5219	. . . . . 6 ⊢ (𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) = (𝑗 ∈ 𝑌 ↦ (𝑖 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑖)))
162		fvexd 6897	. . . . . 6 ⊢ (𝜑 → (0g‘(Scalar‘𝐶)) ∈ V)
163		fvexd 6897	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → ((𝐺‘𝑗)‘𝑖) ∈ V)
164	42, 161, 46, 47, 162, 163	suppovss 32967	. . . . 5 ⊢ (𝜑 → (𝐻 supp (0g‘(Scalar‘𝐶))) ⊆ (((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ ((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) supp (𝑋 × {(0g‘(Scalar‘𝐶))}))(((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)))‘𝑤) supp (0g‘(Scalar‘𝐶)))))
165	10, 71	subrg0 20664	. . . . . . . 8 ⊢ (𝑉 ∈ (SubRing‘𝐸) → (0g‘𝐸) = (0g‘𝐾))
166	19, 165	syl 18	. . . . . . 7 ⊢ (𝜑 → (0g‘𝐸) = (0g‘𝐾))
167	36	fveq2d 6886	. . . . . . 7 ⊢ (𝜑 → (0g‘𝐾) = (0g‘(Scalar‘𝐶)))
168	166, 167	eqtr2d 2805	. . . . . 6 ⊢ (𝜑 → (0g‘(Scalar‘𝐶)) = (0g‘𝐸))
169	168	oveq2d 7427	. . . . 5 ⊢ (𝜑 → (𝐻 supp (0g‘(Scalar‘𝐶))) = (𝐻 supp (0g‘𝐸)))
170	1	feqmptd 6950	. . . . . . . 8 ⊢ (𝜑 → 𝐺 = (𝑣 ∈ 𝑌 ↦ (𝐺‘𝑣)))
171		eleq1w 2852	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑣 → (𝑗 ∈ 𝑌 ↔ 𝑣 ∈ 𝑌))
172	171	anbi2d 641	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑣 → ((𝜑 ∧ 𝑗 ∈ 𝑌) ↔ (𝜑 ∧ 𝑣 ∈ 𝑌)))
173		fveq2 6882	. . . . . . . . . . . . 13 ⊢ (𝑗 = 𝑣 → (𝐺‘𝑗) = (𝐺‘𝑣))
174	173	feq1d 6688	. . . . . . . . . . . 12 ⊢ (𝑗 = 𝑣 → ((𝐺‘𝑗):𝑋⟶(Base‘𝐸) ↔ (𝐺‘𝑣):𝑋⟶(Base‘𝐸)))
175	172, 174	imbi12d 347	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑣 → (((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗):𝑋⟶(Base‘𝐸)) ↔ ((𝜑 ∧ 𝑣 ∈ 𝑌) → (𝐺‘𝑣):𝑋⟶(Base‘𝐸))))
176	10, 20	ressbas2 17298	. . . . . . . . . . . . . . . 16 ⊢ (𝑉 ⊆ (Base‘𝐸) → 𝑉 = (Base‘𝐾))
177	22, 176	syl 18	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑉 = (Base‘𝐾))
178	36	fveq2d 6886	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (Base‘𝐾) = (Base‘(Scalar‘𝐶)))
179	177, 178	eqtrd 2804	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑉 = (Base‘(Scalar‘𝐶)))
180	179, 22	eqsstrrd 3980	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘(Scalar‘𝐶)) ⊆ (Base‘𝐸))
181	180	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (Base‘(Scalar‘𝐶)) ⊆ (Base‘𝐸))
182	56, 181	fssd 6724	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗):𝑋⟶(Base‘𝐸))
183	175, 182	chvarvv 2016	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝑌) → (𝐺‘𝑣):𝑋⟶(Base‘𝐸))
184	183	feqmptd 6950	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑣 ∈ 𝑌) → (𝐺‘𝑣) = (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)))
185	184	mpteq2dva 5208	. . . . . . . 8 ⊢ (𝜑 → (𝑣 ∈ 𝑌 ↦ (𝐺‘𝑣)) = (𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))))
186	170, 185	eqtr2d 2805	. . . . . . 7 ⊢ (𝜑 → (𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) = 𝐺)
187	186	oveq1d 7426	. . . . . 6 ⊢ (𝜑 → ((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) supp (𝑋 × {(0g‘(Scalar‘𝐶))})) = (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})))
188	186	fveq1d 6884	. . . . . . . 8 ⊢ (𝜑 → ((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)))‘𝑤) = (𝐺‘𝑤))
189	188	oveq1d 7426	. . . . . . 7 ⊢ (𝜑 → (((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)))‘𝑤) supp (0g‘(Scalar‘𝐶))) = ((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))))
190	187, 189	iuneq12d 4990	. . . . . 6 ⊢ (𝜑 → ∪ 𝑤 ∈ ((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) supp (𝑋 × {(0g‘(Scalar‘𝐶))}))(((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)))‘𝑤) supp (0g‘(Scalar‘𝐶))) = ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶))))
191	187, 190	xpeq12d 5693	. . . . 5 ⊢ (𝜑 → (((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ ((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢))) supp (𝑋 × {(0g‘(Scalar‘𝐶))}))(((𝑣 ∈ 𝑌 ↦ (𝑢 ∈ 𝑋 ↦ ((𝐺‘𝑣)‘𝑢)))‘𝑤) supp (0g‘(Scalar‘𝐶)))) = ((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶)))))
192	164, 169, 191	3sstr3d 3999	. . . 4 ⊢ (𝜑 → (𝐻 supp (0g‘𝐸)) ⊆ ((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶)))))
193		suppssfifsupp 9340	. . . 4 ⊢ (((𝐻 ∈ ((Base‘(Scalar‘𝐴)) ↑m (𝑌 × 𝑋)) ∧ Fun 𝐻 ∧ (0g‘𝐸) ∈ (Base‘𝐸)) ∧ (((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶)))) ∈ Fin ∧ (𝐻 supp (0g‘𝐸)) ⊆ ((𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))})) × ∪ 𝑤 ∈ (𝐺 supp (𝑋 × {(0g‘(Scalar‘𝐶))}))((𝐺‘𝑤) supp (0g‘(Scalar‘𝐶)))))) → 𝐻 finSupp (0g‘𝐸))
194	52, 66, 73, 154, 192, 193	syl32anc 1403	. . 3 ⊢ (𝜑 → 𝐻 finSupp (0g‘𝐸))
195	37	fveq2d 6886	. . . 4 ⊢ (𝜑 → (0g‘(Scalar‘𝐴)) = (0g‘(Scalar‘𝐶)))
196	195, 168	eqtr2d 2805	. . 3 ⊢ (𝜑 → (0g‘𝐸) = (0g‘(Scalar‘𝐴)))
197	194, 196	breqtrd 5141	. 2 ⊢ (𝜑 → 𝐻 finSupp (0g‘(Scalar‘𝐴)))
198		fedgmullem1.z	. . 3 ⊢ (𝜑 → 𝑍 = (𝐵 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))))
199	85, 67, 13, 15, 92, 46	drgextgsum 33930	. . 3 ⊢ (𝜑 → (𝐸 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))) = (𝐵 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))))
200	47	adantr 485	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑋 ∈ (LBasis‘𝐶))
201	13	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑈 ∈ (SubRing‘𝐸))
202		subrgsubg 20662	. . . . . . . . . . . . 13 ⊢ (𝑈 ∈ (SubRing‘𝐸) → 𝑈 ∈ (SubGrp‘𝐸))
203		subgsubm 19215	. . . . . . . . . . . . 13 ⊢ (𝑈 ∈ (SubGrp‘𝐸) → 𝑈 ∈ (SubMnd‘𝐸))
204	201, 202, 203	3syl 19	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑈 ∈ (SubMnd‘𝐸))
205	113	ad2antrr 738	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝐶 ∈ LMod)
206	56	ffvelcdmda 7080	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐶)))
207	118	ad2antrr 738	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑋 ⊆ (Base‘𝐶))
208	207, 61	sseldd 3946	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑖 ∈ (Base‘𝐶))
209	115, 126, 127, 125	lmodvscl 20977	. . . . . . . . . . . . . . 15 ⊢ ((𝐶 ∈ LMod ∧ ((𝐺‘𝑗)‘𝑖) ∈ (Base‘(Scalar‘𝐶)) ∧ 𝑖 ∈ (Base‘𝐶)) → (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖) ∈ (Base‘𝐶))
210	205, 206, 208, 209	syl3anc 1396	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖) ∈ (Base‘𝐶))
211	15, 20	ressbas2 17298	. . . . . . . . . . . . . . . . 17 ⊢ (𝑈 ⊆ (Base‘𝐸) → 𝑈 = (Base‘𝐹))
212	88, 211	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑈 = (Base‘𝐹))
213	31, 34	srabase 21276	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (Base‘𝐹) = (Base‘𝐶))
214	212, 213	eqtrd 2804	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑈 = (Base‘𝐶))
215	214	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑈 = (Base‘𝐶))
216	210, 215	eleqtrrd 2872	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖) ∈ 𝑈)
217	216	fmpttd 7111	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖)):𝑋⟶𝑈)
218	200, 204, 217, 15	gsumsubm 18894	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (𝐹 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
219		eqid 2769	. . . . . . . . . . . . . . . . . 18 ⊢ (.r‘𝐸) = (.r‘𝐸)
220	15, 219	ressmulr 17360	. . . . . . . . . . . . . . . . 17 ⊢ (𝑈 ∈ (SubRing‘𝐸) → (.r‘𝐸) = (.r‘𝐹))
221	13, 220	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (.r‘𝐸) = (.r‘𝐹))
222	31, 34	sravsca 21280	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (.r‘𝐹) = ( ·𝑠 ‘𝐶))
223	221, 222	eqtr2d 2805	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ( ·𝑠 ‘𝐶) = (.r‘𝐸))
224	223	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → ( ·𝑠 ‘𝐶) = (.r‘𝐸))
225	224	oveqd 7428	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖) = (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖))
226	225	mpteq2dva 5208	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖)) = (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)))
227	226	oveq2d 7427	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖))))
228	30, 92, 14, 109, 108, 47	drgextgsum 33930	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐹 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
229	228	adantr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐹 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
230	218, 227, 229	3eqtr3d 2812	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖))) = (𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖))))
231	230	oveq1d 7426	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)))(.r‘𝐸)𝑗) = ((𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖)))(.r‘𝐸)𝑗))
232	69	ad2antrr 738	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝐸 ∈ Ring)
233	180	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (Base‘(Scalar‘𝐶)) ⊆ (Base‘𝐸))
234	233, 206	sseldd 3946	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → ((𝐺‘𝑗)‘𝑖) ∈ (Base‘𝐸))
235	214, 88	eqsstrrd 3980	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (Base‘𝐶) ⊆ (Base‘𝐸))
236	118, 235	sstrd 3955	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑋 ⊆ (Base‘𝐸))
237	236	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑋 ⊆ (Base‘𝐸))
238	237, 61	sseldd 3946	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑖 ∈ (Base‘𝐸))
239		eqid 2769	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐵) = (Base‘𝐵)
240		eqid 2769	. . . . . . . . . . . . . . . . . 18 ⊢ (LBasis‘𝐵) = (LBasis‘𝐵)
241	239, 240	lbsss 21176	. . . . . . . . . . . . . . . . 17 ⊢ (𝑌 ∈ (LBasis‘𝐵) → 𝑌 ⊆ (Base‘𝐵))
242	46, 241	syl 18	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝑌 ⊆ (Base‘𝐵))
243	86, 88	srabase 21276	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (Base‘𝐸) = (Base‘𝐵))
244	242, 243	sseqtrrd 3982	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝑌 ⊆ (Base‘𝐸))
245	244	ad2antrr 738	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑌 ⊆ (Base‘𝐸))
246		simplr 780	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑗 ∈ 𝑌)
247	245, 246	sseldd 3946	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → 𝑗 ∈ (Base‘𝐸))
248	20, 219	ringass 20335	. . . . . . . . . . . . 13 ⊢ ((𝐸 ∈ Ring ∧ (((𝐺‘𝑗)‘𝑖) ∈ (Base‘𝐸) ∧ 𝑖 ∈ (Base‘𝐸) ∧ 𝑗 ∈ (Base‘𝐸))) → ((((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)(.r‘𝐸)𝑗) = (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))
249	232, 234, 238, 247, 248	syl13anc 1397	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → ((((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)(.r‘𝐸)𝑗) = (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))
250	249	mpteq2dva 5208	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝑖 ∈ 𝑋 ↦ ((((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)(.r‘𝐸)𝑗)) = (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗))))
251	250	oveq2d 7427	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ ((((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)(.r‘𝐸)𝑗))) = (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))))
252	69	adantr 485	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝐸 ∈ Ring)
253	242	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑌 ⊆ (Base‘𝐵))
254	243	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (Base‘𝐸) = (Base‘𝐵))
255	253, 254	sseqtrrd 3982	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑌 ⊆ (Base‘𝐸))
256		simpr 489	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑗 ∈ 𝑌)
257	255, 256	sseldd 3946	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → 𝑗 ∈ (Base‘𝐸))
258	20, 219	ringcl 20332	. . . . . . . . . . . 12 ⊢ ((𝐸 ∈ Ring ∧ ((𝐺‘𝑗)‘𝑖) ∈ (Base‘𝐸) ∧ 𝑖 ∈ (Base‘𝐸)) → (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖) ∈ (Base‘𝐸))
259	232, 234, 238, 258	syl3anc 1396	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖) ∈ (Base‘𝐸))
260	168	breq2d 5125	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)) ↔ (𝐺‘𝑗) finSupp (0g‘𝐸)))
261	260	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐺‘𝑗) finSupp (0g‘(Scalar‘𝐶)) ↔ (𝐺‘𝑗) finSupp (0g‘𝐸)))
262	97, 261	mpbid 235	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐺‘𝑗) finSupp (0g‘𝐸))
263	20, 252, 200, 238, 182, 262	rmfsupp2 33498	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)) finSupp (0g‘𝐸))
264	20, 71, 219, 252, 200, 257, 259, 263	gsummulc1 20397	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ ((((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)(.r‘𝐸)𝑗))) = ((𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)))(.r‘𝐸)𝑗))
265	251, 264	eqtr3d 2806	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))) = ((𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)𝑖)))(.r‘𝐸)𝑗))
266	83	oveq1d 7426	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐿‘𝑗)(.r‘𝐸)𝑗) = ((𝐶 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)( ·𝑠 ‘𝐶)𝑖)))(.r‘𝐸)𝑗))
267	231, 265, 266	3eqtr4rd 2815	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐿‘𝑗)(.r‘𝐸)𝑗) = (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))))
268	86, 88	sravsca 21280	. . . . . . . . . 10 ⊢ (𝜑 → (.r‘𝐸) = ( ·𝑠 ‘𝐵))
269	268	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (.r‘𝐸) = ( ·𝑠 ‘𝐵))
270	269	oveqd 7428	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐿‘𝑗)(.r‘𝐸)𝑗) = ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))
271		fvexd 6897	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋) → ((𝐺‘𝑗)‘𝑖) ∈ V)
272		ovexd 7446	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋) → (𝑖(.r‘𝐸)𝑗) ∈ V)
273	42	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐻 = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ ((𝐺‘𝑗)‘𝑖)))
274		fedgmullem.d	. . . . . . . . . . . . . . 15 ⊢ 𝐷 = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (𝑖(.r‘𝐸)𝑗))
275	274	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝐷 = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (𝑖(.r‘𝐸)𝑗)))
276	46, 47, 271, 272, 273, 275	offval22 8083	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐻 ∘f (.r‘𝐸)𝐷) = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗))))
277	276	oveqd 7428	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖) = (𝑗(𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))𝑖))
278	277	ad2antrr 738	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖) = (𝑗(𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))𝑖))
279		ovexd 7446	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)) ∈ V)
280		eqid 2769	. . . . . . . . . . . . 13 ⊢ (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗))) = (𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))
281	280	ovmpt4g 7558	. . . . . . . . . . . 12 ⊢ ((𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋 ∧ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)) ∈ V) → (𝑗(𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))𝑖) = (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))
282	246, 61, 279, 281	syl3anc 1396	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝑗(𝑗 ∈ 𝑌, 𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))𝑖) = (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))
283	278, 282	eqtr2d 2805	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)) = (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖))
284	283	mpteq2dva 5208	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗))) = (𝑖 ∈ 𝑋 ↦ (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖)))
285	284	oveq2d 7427	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (((𝐺‘𝑗)‘𝑖)(.r‘𝐸)(𝑖(.r‘𝐸)𝑗)))) = (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖))))
286	267, 270, 285	3eqtr3d 2812	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑗 ∈ 𝑌) → ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗) = (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖))))
287	286	mpteq2dva 5208	. . . . . 6 ⊢ (𝜑 → (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗)) = (𝑗 ∈ 𝑌 ↦ (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖)))))
288	287	oveq2d 7427	. . . . 5 ⊢ (𝜑 → (𝐸 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))) = (𝐸 Σg (𝑗 ∈ 𝑌 ↦ (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖))))))
289		ringcmn 20365	. . . . . . 7 ⊢ (𝐸 ∈ Ring → 𝐸 ∈ CMnd)
290	69, 289	syl 18	. . . . . 6 ⊢ (𝜑 → 𝐸 ∈ CMnd)
291	69	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → 𝐸 ∈ Ring)
292	38, 180	eqsstrd 3979	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘(Scalar‘𝐴)) ⊆ (Base‘𝐸))
293	292	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → (Base‘(Scalar‘𝐴)) ⊆ (Base‘𝐸))
294		simprl 782	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → 𝑙 ∈ (Base‘(Scalar‘𝐴)))
295	293, 294	sseldd 3946	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → 𝑙 ∈ (Base‘𝐸))
296		simprr 784	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → 𝑘 ∈ (Base‘𝐴))
297	12, 22	srabase 21276	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘𝐸) = (Base‘𝐴))
298	297	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → (Base‘𝐸) = (Base‘𝐴))
299	296, 298	eleqtrrd 2872	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → 𝑘 ∈ (Base‘𝐸))
300	20, 219	ringcl 20332	. . . . . . . 8 ⊢ ((𝐸 ∈ Ring ∧ 𝑙 ∈ (Base‘𝐸) ∧ 𝑘 ∈ (Base‘𝐸)) → (𝑙(.r‘𝐸)𝑘) ∈ (Base‘𝐸))
301	291, 295, 299, 300	syl3anc 1396	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑙 ∈ (Base‘(Scalar‘𝐴)) ∧ 𝑘 ∈ (Base‘𝐴))) → (𝑙(.r‘𝐸)𝑘) ∈ (Base‘𝐸))
302	20, 219	ringcl 20332	. . . . . . . . . . . 12 ⊢ ((𝐸 ∈ Ring ∧ 𝑖 ∈ (Base‘𝐸) ∧ 𝑗 ∈ (Base‘𝐸)) → (𝑖(.r‘𝐸)𝑗) ∈ (Base‘𝐸))
303	232, 238, 247, 302	syl3anc 1396	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝑖(.r‘𝐸)𝑗) ∈ (Base‘𝐸))
304	297	ad2antrr 738	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (Base‘𝐸) = (Base‘𝐴))
305	303, 304	eleqtrd 2871	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑗 ∈ 𝑌) ∧ 𝑖 ∈ 𝑋) → (𝑖(.r‘𝐸)𝑗) ∈ (Base‘𝐴))
306	305	anasss 471	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑗 ∈ 𝑌 ∧ 𝑖 ∈ 𝑋)) → (𝑖(.r‘𝐸)𝑗) ∈ (Base‘𝐴))
307	306	ralrimivva 3214	. . . . . . . 8 ⊢ (𝜑 → ∀𝑗 ∈ 𝑌 ∀𝑖 ∈ 𝑋 (𝑖(.r‘𝐸)𝑗) ∈ (Base‘𝐴))
308	274	fmpo 8065	. . . . . . . 8 ⊢ (∀𝑗 ∈ 𝑌 ∀𝑖 ∈ 𝑋 (𝑖(.r‘𝐸)𝑗) ∈ (Base‘𝐴) ↔ 𝐷:(𝑌 × 𝑋)⟶(Base‘𝐴))
309	307, 308	sylib 221	. . . . . . 7 ⊢ (𝜑 → 𝐷:(𝑌 × 𝑋)⟶(Base‘𝐴))
310		inidm 4187	. . . . . . 7 ⊢ ((𝑌 × 𝑋) ∩ (𝑌 × 𝑋)) = (𝑌 × 𝑋)
311	301, 65, 309, 48, 48, 310	off 7693	. . . . . 6 ⊢ (𝜑 → (𝐻 ∘f (.r‘𝐸)𝐷):(𝑌 × 𝑋)⟶(Base‘𝐸))
312	69	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘𝐴)) → 𝐸 ∈ Ring)
313		simpr 489	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘𝐴)) → 𝑢 ∈ (Base‘𝐴))
314	297	adantr 485	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘𝐴)) → (Base‘𝐸) = (Base‘𝐴))
315	313, 314	eleqtrrd 2872	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘𝐴)) → 𝑢 ∈ (Base‘𝐸))
316	20, 219, 71	ringlz 20376	. . . . . . . 8 ⊢ ((𝐸 ∈ Ring ∧ 𝑢 ∈ (Base‘𝐸)) → ((0g‘𝐸)(.r‘𝐸)𝑢) = (0g‘𝐸))
317	312, 315, 316	syl2anc 595	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑢 ∈ (Base‘𝐴)) → ((0g‘𝐸)(.r‘𝐸)𝑢) = (0g‘𝐸))
318	48, 73, 73, 65, 309, 194, 317	offinsupp1 33012	. . . . . 6 ⊢ (𝜑 → (𝐻 ∘f (.r‘𝐸)𝐷) finSupp (0g‘𝐸))
319	20, 71, 290, 46, 47, 311, 318	gsumxp 20046	. . . . 5 ⊢ (𝜑 → (𝐸 Σg (𝐻 ∘f (.r‘𝐸)𝐷)) = (𝐸 Σg (𝑗 ∈ 𝑌 ↦ (𝐸 Σg (𝑖 ∈ 𝑋 ↦ (𝑗(𝐻 ∘f (.r‘𝐸)𝐷)𝑖))))))
320	12, 22	sravsca 21280	. . . . . . . 8 ⊢ (𝜑 → (.r‘𝐸) = ( ·𝑠 ‘𝐴))
321	320	ofeqd 7677	. . . . . . 7 ⊢ (𝜑 → ∘f (.r‘𝐸) = ∘f ( ·𝑠 ‘𝐴))
322	321	oveqd 7428	. . . . . 6 ⊢ (𝜑 → (𝐻 ∘f (.r‘𝐸)𝐷) = (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷))
323	322	oveq2d 7427	. . . . 5 ⊢ (𝜑 → (𝐸 Σg (𝐻 ∘f (.r‘𝐸)𝐷)) = (𝐸 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷)))
324	288, 319, 323	3eqtr2rd 2811	. . . 4 ⊢ (𝜑 → (𝐸 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷)) = (𝐸 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))))
325		ovexd 7446	. . . . 5 ⊢ (𝜑 → (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷) ∈ V)
326		fedgmullem1.a	. . . . . 6 ⊢ (𝜑 → 𝑍 ∈ (Base‘𝐴))
327	326	elfvexd 6918	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ V)
328	11, 325, 67, 327, 22	gsumsra 33308	. . . 4 ⊢ (𝜑 → (𝐸 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷)) = (𝐴 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷)))
329	324, 328	eqtr3d 2806	. . 3 ⊢ (𝜑 → (𝐸 Σg (𝑗 ∈ 𝑌 ↦ ((𝐿‘𝑗)( ·𝑠 ‘𝐵)𝑗))) = (𝐴 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷)))
330	198, 199, 329	3eqtr2d 2810	. 2 ⊢ (𝜑 → 𝑍 = (𝐴 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷)))
331	197, 330	jca 520	1 ⊢ (𝜑 → (𝐻 finSupp (0g‘(Scalar‘𝐴)) ∧ 𝑍 = (𝐴 Σg (𝐻 ∘f ( ·𝑠 ‘𝐴)𝐷))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   ∧ w3a 1101   = wceq 1567   ∈ wcel 2149  ∀wral 3085  Vcvv 3463   ∖ cdif 3910   ⊆ wss 3913  {csn 4594  ∪ ciun 4960   class class class wbr 5113   ↦ cmpt 5196   × cxp 5660  Fun wfun 6531  ⟶wf 6533  ‘cfv 6537  (class class class)co 7411   ∈ cmpo 7413   ∘_f cof 7673   supp csupp 8156   ↑_m cmap 8824  Fincfn 8943   finSupp cfsupp 9321  Basecbs 17269   ↾_s cress 17290  ._rcmulr 17311  Scalarcsca 17313   ·_𝑠 cvsca 17314  0_gc0g 17492   Σ_g cgsu 17493  SubMndcsubmnd 18840  Grpcgrp 19000  SubGrpcsubg 19186  CMndccmn 19850  Ringcrg 20315  SubRingcsubrg 20654  DivRingcdr 20813  LModclmod 20959  LSpanclspn 21070  LBasisclbs 21173  LVecclvec 21201  subringAlg csra 21270  LIndSclinds 21924

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-rep 5242  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733  ax-cnex 11156  ax-resscn 11157  ax-1cn 11158  ax-icn 11159  ax-addcl 11160  ax-addrcl 11161  ax-mulcl 11162  ax-mulrcl 11163  ax-mulcom 11164  ax-addass 11165  ax-mulass 11166  ax-distr 11167  ax-i2m1 11168  ax-1ne0 11169  ax-1rid 11170  ax-rnegex 11171  ax-rrecex 11172  ax-cnre 11173  ax-pre-lttri 11174  ax-pre-lttrn 11175  ax-pre-ltadd 11176  ax-pre-mulgt0 11177

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3or 1102  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-nel 3071  df-ral 3086  df-rex 3096  df-rmo 3376  df-reu 3377  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3933  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4877  df-int 4917  df-iun 4962  df-iin 4963  df-br 5114  df-opab 5178  df-mpt 5197  df-tr 5223  df-id 5557  df-eprel 5562  df-po 5570  df-so 5571  df-fr 5615  df-se 5616  df-we 5617  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-res 5674  df-ima 5675  df-pred 6303  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7368  df-ov 7414  df-oprab 7415  df-mpo 7416  df-of 7675  df-om 7863  df-1st 7986  df-2nd 7987  df-supp 8157  df-frecs 8278  df-wrecs 8309  df-recs 8358  df-rdg 8397  df-1o 8453  df-2o 8454  df-er 8694  df-map 8826  df-ixp 8896  df-en 8944  df-dom 8945  df-sdom 8946  df-fin 8947  df-fsupp 9322  df-sup 9402  df-oi 9472  df-card 9925  df-pnf 11245  df-mnf 11246  df-xr 11247  df-ltxr 11248  df-le 11249  df-sub 11443  df-neg 11444  df-nn 12234  df-2 12303  df-3 12304  df-4 12305  df-5 12306  df-6 12307  df-7 12308  df-8 12309  df-9 12310  df-n0 12505  df-z 12592  df-dec 12712  df-uz 12863  df-fz 13536  df-fzo 13683  df-seq 14038  df-hash 14367  df-struct 17207  df-sets 17224  df-slot 17242  df-ndx 17254  df-base 17270  df-ress 17291  df-plusg 17323  df-mulr 17324  df-sca 17326  df-vsca 17327  df-ip 17328  df-tset 17329  df-ple 17330  df-ds 17332  df-hom 17334  df-cco 17335  df-0g 17494  df-gsum 17495  df-prds 17500  df-pws 17502  df-mre 17638  df-mrc 17639  df-acs 17641  df-mgm 18698  df-sgrp 18777  df-mnd 18793  df-mhm 18841  df-submnd 18842  df-grp 19003  df-minusg 19004  df-sbg 19005  df-mulg 19134  df-subg 19189  df-ghm 19284  df-cntz 19387  df-cmn 19852  df-abl 19853  df-mgp 20217  df-rng 20231  df-ur 20264  df-ring 20317  df-nzr 20596  df-subrg 20655  df-drng 20815  df-lmod 20961  df-lss 21031  df-lsp 21071  df-lmhm 21121  df-lbs 21174  df-lvec 21202  df-sra 21272  df-rgmod 21273  df-dsmm 21851  df-frlm 21866  df-uvc 21902  df-lindf 21925  df-linds 21926

This theorem is referenced by:  fedgmul  33966