Theorem fldextrspunlsp 33675

Description: Lemma for fldextrspunfld 33677. The subring generated by the union of two field extensions 𝐺 and 𝐻 is the vector sub- 𝐺 space generated by a basis 𝐵 of 𝐻. Part of the proof of Proposition 5, Chapter 5, of [BourbakiAlg2] p. 116. (Contributed by Thierry Arnoux, 13-Oct-2025.)

Hypotheses

Ref	Expression
fldextrspunfld.k	⊢ 𝐾 = (𝐿 ↾s 𝐹)
fldextrspunfld.i	⊢ 𝐼 = (𝐿 ↾s 𝐺)
fldextrspunfld.j	⊢ 𝐽 = (𝐿 ↾s 𝐻)
fldextrspunfld.2	⊢ (𝜑 → 𝐿 ∈ Field)
fldextrspunfld.3	⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐼))
fldextrspunfld.4	⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐽))
fldextrspunfld.5	⊢ (𝜑 → 𝐺 ∈ (SubDRing‘𝐿))
fldextrspunfld.6	⊢ (𝜑 → 𝐻 ∈ (SubDRing‘𝐿))
fldextrspunlsp.n	⊢ 𝑁 = (RingSpan‘𝐿)
fldextrspunlsp.c	⊢ 𝐶 = (𝑁‘(𝐺 ∪ 𝐻))
fldextrspunlsp.e	⊢ 𝐸 = (𝐿 ↾s 𝐶)
fldextrspunlsp.1	⊢ (𝜑 → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
fldextrspunlsp.2	⊢ (𝜑 → 𝐵 ∈ Fin)

Assertion

Ref	Expression
fldextrspunlsp	⊢ (𝜑 → 𝐶 = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝐵))

Proof of Theorem fldextrspunlsp

Dummy variables 𝑎 𝑓 𝑔 ℎ 𝑝 𝑣 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fldextrspunlsp.c	. . . . 5 ⊢ 𝐶 = (𝑁‘(𝐺 ∪ 𝐻))
2	1	a1i 11	. . . 4 ⊢ (𝜑 → 𝐶 = (𝑁‘(𝐺 ∪ 𝐻)))
3	2	eleq2d 2815	. . 3 ⊢ (𝜑 → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ (𝑁‘(𝐺 ∪ 𝐻))))
4		eqid 2730	. . . 4 ⊢ (Base‘𝐿) = (Base‘𝐿)
5		eqid 2730	. . . 4 ⊢ (.r‘𝐿) = (.r‘𝐿)
6		eqid 2730	. . . 4 ⊢ (0g‘𝐿) = (0g‘𝐿)
7		fldextrspunlsp.n	. . . 4 ⊢ 𝑁 = (RingSpan‘𝐿)
8		fldextrspunfld.2	. . . . 5 ⊢ (𝜑 → 𝐿 ∈ Field)
9	8	fldcrngd 20657	. . . 4 ⊢ (𝜑 → 𝐿 ∈ CRing)
10		fldextrspunfld.5	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ (SubDRing‘𝐿))
11		sdrgsubrg 20706	. . . . 5 ⊢ (𝐺 ∈ (SubDRing‘𝐿) → 𝐺 ∈ (SubRing‘𝐿))
12	10, 11	syl 17	. . . 4 ⊢ (𝜑 → 𝐺 ∈ (SubRing‘𝐿))
13		fldextrspunfld.6	. . . . 5 ⊢ (𝜑 → 𝐻 ∈ (SubDRing‘𝐿))
14		sdrgsubrg 20706	. . . . 5 ⊢ (𝐻 ∈ (SubDRing‘𝐿) → 𝐻 ∈ (SubRing‘𝐿))
15	13, 14	syl 17	. . . 4 ⊢ (𝜑 → 𝐻 ∈ (SubRing‘𝐿))
16	4, 5, 6, 7, 9, 12, 15	elrgspnsubrun 33206	. . 3 ⊢ (𝜑 → (𝑥 ∈ (𝑁‘(𝐺 ∪ 𝐻)) ↔ ∃𝑝 ∈ (𝐺 ↑m 𝐻)(𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))))
17	4	subrgss 20487	. . . . . . . . 9 ⊢ (𝐺 ∈ (SubRing‘𝐿) → 𝐺 ⊆ (Base‘𝐿))
18	12, 17	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐺 ⊆ (Base‘𝐿))
19		eqid 2730	. . . . . . . . 9 ⊢ (𝐿 ↾s 𝐺) = (𝐿 ↾s 𝐺)
20	19, 4	ressbas2 17214	. . . . . . . 8 ⊢ (𝐺 ⊆ (Base‘𝐿) → 𝐺 = (Base‘(𝐿 ↾s 𝐺)))
21	18, 20	syl 17	. . . . . . 7 ⊢ (𝜑 → 𝐺 = (Base‘(𝐿 ↾s 𝐺)))
22		eqidd 2731	. . . . . . . . 9 ⊢ (𝜑 → ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺))
23	22, 18	srasca 21093	. . . . . . . 8 ⊢ (𝜑 → (𝐿 ↾s 𝐺) = (Scalar‘((subringAlg ‘𝐿)‘𝐺)))
24	23	fveq2d 6864	. . . . . . 7 ⊢ (𝜑 → (Base‘(𝐿 ↾s 𝐺)) = (Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))))
25	21, 24	eqtr2d 2766	. . . . . 6 ⊢ (𝜑 → (Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) = 𝐺)
26	25	oveq1d 7404	. . . . 5 ⊢ (𝜑 → ((Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ↑m 𝐵) = (𝐺 ↑m 𝐵))
27	9	crngringd 20161	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐿 ∈ Ring)
28	27	ringcmnd 20199	. . . . . . . . . 10 ⊢ (𝜑 → 𝐿 ∈ CMnd)
29	28	cmnmndd 19740	. . . . . . . . 9 ⊢ (𝜑 → 𝐿 ∈ Mnd)
30		subrgsubg 20492	. . . . . . . . . . 11 ⊢ (𝐺 ∈ (SubRing‘𝐿) → 𝐺 ∈ (SubGrp‘𝐿))
31	12, 30	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐺 ∈ (SubGrp‘𝐿))
32	6	subg0cl 19072	. . . . . . . . . 10 ⊢ (𝐺 ∈ (SubGrp‘𝐿) → (0g‘𝐿) ∈ 𝐺)
33	31, 32	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (0g‘𝐿) ∈ 𝐺)
34	19, 4, 6	ress0g 18695	. . . . . . . . 9 ⊢ ((𝐿 ∈ Mnd ∧ (0g‘𝐿) ∈ 𝐺 ∧ 𝐺 ⊆ (Base‘𝐿)) → (0g‘𝐿) = (0g‘(𝐿 ↾s 𝐺)))
35	29, 33, 18, 34	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → (0g‘𝐿) = (0g‘(𝐿 ↾s 𝐺)))
36	23	fveq2d 6864	. . . . . . . 8 ⊢ (𝜑 → (0g‘(𝐿 ↾s 𝐺)) = (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))))
37	35, 36	eqtr2d 2766	. . . . . . 7 ⊢ (𝜑 → (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) = (0g‘𝐿))
38	37	breq2d 5121	. . . . . 6 ⊢ (𝜑 → (𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ↔ 𝑎 finSupp (0g‘𝐿)))
39		eqid 2730	. . . . . . . . 9 ⊢ ((subringAlg ‘𝐿)‘𝐺) = ((subringAlg ‘𝐿)‘𝐺)
40		fldextrspunlsp.1	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
41	40	mptexd 7200	. . . . . . . . 9 ⊢ (𝜑 → (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)) ∈ V)
42	39	sralmod 21100	. . . . . . . . . 10 ⊢ (𝐺 ∈ (SubRing‘𝐿) → ((subringAlg ‘𝐿)‘𝐺) ∈ LMod)
43	12, 42	syl 17	. . . . . . . . 9 ⊢ (𝜑 → ((subringAlg ‘𝐿)‘𝐺) ∈ LMod)
44	39, 41, 8, 43, 18	gsumsra 32993	. . . . . . . 8 ⊢ (𝜑 → (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))) = (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))
45	22, 18	sravsca 21094	. . . . . . . . . . 11 ⊢ (𝜑 → (.r‘𝐿) = ( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺)))
46	45	oveqd 7406	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑎‘𝑣)(.r‘𝐿)𝑣) = ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣))
47	46	mpteq2dv 5203	. . . . . . . . 9 ⊢ (𝜑 → (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)) = (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣)))
48	47	oveq2d 7405	. . . . . . . 8 ⊢ (𝜑 → (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))) = (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣))))
49	44, 48	eqtr2d 2766	. . . . . . 7 ⊢ (𝜑 → (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣))) = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))
50	49	eqeq2d 2741	. . . . . 6 ⊢ (𝜑 → (𝑥 = (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣))) ↔ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)))))
51	38, 50	anbi12d 632	. . . . 5 ⊢ (𝜑 → ((𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ∧ 𝑥 = (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣)))) ↔ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))))
52	26, 51	rexeqbidv 3322	. . . 4 ⊢ (𝜑 → (∃𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ↑m 𝐵)(𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ∧ 𝑥 = (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣)))) ↔ ∃𝑎 ∈ (𝐺 ↑m 𝐵)(𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))))
53		eqid 2730	. . . . 5 ⊢ (LSpan‘((subringAlg ‘𝐿)‘𝐺)) = (LSpan‘((subringAlg ‘𝐿)‘𝐺))
54		eqid 2730	. . . . 5 ⊢ (Base‘((subringAlg ‘𝐿)‘𝐺)) = (Base‘((subringAlg ‘𝐿)‘𝐺))
55		eqid 2730	. . . . 5 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) = (Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺)))
56		eqid 2730	. . . . 5 ⊢ (Scalar‘((subringAlg ‘𝐿)‘𝐺)) = (Scalar‘((subringAlg ‘𝐿)‘𝐺))
57		eqid 2730	. . . . 5 ⊢ (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) = (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺)))
58		eqid 2730	. . . . 5 ⊢ ( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺)) = ( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))
59		eqid 2730	. . . . . . . . . 10 ⊢ (Base‘((subringAlg ‘𝐽)‘𝐹)) = (Base‘((subringAlg ‘𝐽)‘𝐹))
60		eqid 2730	. . . . . . . . . 10 ⊢ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) = (LBasis‘((subringAlg ‘𝐽)‘𝐹))
61	59, 60	lbsss 20990	. . . . . . . . 9 ⊢ (𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)) → 𝐵 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
62	40, 61	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ⊆ (Base‘((subringAlg ‘𝐽)‘𝐹)))
63	4	subrgss 20487	. . . . . . . . . . 11 ⊢ (𝐻 ∈ (SubRing‘𝐿) → 𝐻 ⊆ (Base‘𝐿))
64	15, 63	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐻 ⊆ (Base‘𝐿))
65		fldextrspunfld.j	. . . . . . . . . . 11 ⊢ 𝐽 = (𝐿 ↾s 𝐻)
66	65, 4	ressbas2 17214	. . . . . . . . . 10 ⊢ (𝐻 ⊆ (Base‘𝐿) → 𝐻 = (Base‘𝐽))
67	64, 66	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐻 = (Base‘𝐽))
68		eqidd 2731	. . . . . . . . . 10 ⊢ (𝜑 → ((subringAlg ‘𝐽)‘𝐹) = ((subringAlg ‘𝐽)‘𝐹))
69		fldextrspunfld.4	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐽))
70		eqid 2730	. . . . . . . . . . . 12 ⊢ (Base‘𝐽) = (Base‘𝐽)
71	70	sdrgss 20708	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐽) → 𝐹 ⊆ (Base‘𝐽))
72	69, 71	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐽))
73	68, 72	srabase 21090	. . . . . . . . 9 ⊢ (𝜑 → (Base‘𝐽) = (Base‘((subringAlg ‘𝐽)‘𝐹)))
74	67, 73	eqtrd 2765	. . . . . . . 8 ⊢ (𝜑 → 𝐻 = (Base‘((subringAlg ‘𝐽)‘𝐹)))
75	62, 74	sseqtrrd 3986	. . . . . . 7 ⊢ (𝜑 → 𝐵 ⊆ 𝐻)
76	75, 64	sstrd 3959	. . . . . 6 ⊢ (𝜑 → 𝐵 ⊆ (Base‘𝐿))
77	22, 18	srabase 21090	. . . . . 6 ⊢ (𝜑 → (Base‘𝐿) = (Base‘((subringAlg ‘𝐿)‘𝐺)))
78	76, 77	sseqtrd 3985	. . . . 5 ⊢ (𝜑 → 𝐵 ⊆ (Base‘((subringAlg ‘𝐿)‘𝐺)))
79	53, 54, 55, 56, 57, 58, 43, 78	ellspds 33345	. . . 4 ⊢ (𝜑 → (𝑥 ∈ ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝐵) ↔ ∃𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ↑m 𝐵)(𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐿)‘𝐺))) ∧ 𝑥 = (((subringAlg ‘𝐿)‘𝐺) Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)( ·𝑠 ‘((subringAlg ‘𝐿)‘𝐺))𝑣))))))
80		fldextrspunfld.k	. . . . . . 7 ⊢ 𝐾 = (𝐿 ↾s 𝐹)
81		fldextrspunfld.i	. . . . . . 7 ⊢ 𝐼 = (𝐿 ↾s 𝐺)
82	8	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐿 ∈ Field)
83		fldextrspunfld.3	. . . . . . . 8 ⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐼))
84	83	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐹 ∈ (SubDRing‘𝐼))
85	69	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐹 ∈ (SubDRing‘𝐽))
86	10	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐺 ∈ (SubDRing‘𝐿))
87	13	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐻 ∈ (SubDRing‘𝐿))
88		fldextrspunlsp.e	. . . . . . 7 ⊢ 𝐸 = (𝐿 ↾s 𝐶)
89	40	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
90		fldextrspunlsp.2	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Fin)
91	90	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝐵 ∈ Fin)
92		simplr 768	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝑝 ∈ (𝐺 ↑m 𝐻))
93	87, 86, 92	elmaprd 32609	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝑝:𝐻⟶𝐺)
94		simprl 770	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝑝 finSupp (0g‘𝐿))
95		simprr 772	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))
96		fveq2 6860	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → (𝑝‘𝑓) = (𝑝‘ℎ))
97		id 22	. . . . . . . . . . 11 ⊢ (𝑓 = ℎ → 𝑓 = ℎ)
98	96, 97	oveq12d 7407	. . . . . . . . . 10 ⊢ (𝑓 = ℎ → ((𝑝‘𝑓)(.r‘𝐿)𝑓) = ((𝑝‘ℎ)(.r‘𝐿)ℎ))
99	98	cbvmptv 5213	. . . . . . . . 9 ⊢ (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)) = (ℎ ∈ 𝐻 ↦ ((𝑝‘ℎ)(.r‘𝐿)ℎ))
100	99	oveq2i 7400	. . . . . . . 8 ⊢ (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))) = (𝐿 Σg (ℎ ∈ 𝐻 ↦ ((𝑝‘ℎ)(.r‘𝐿)ℎ)))
101	95, 100	eqtrdi 2781	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → 𝑥 = (𝐿 Σg (ℎ ∈ 𝐻 ↦ ((𝑝‘ℎ)(.r‘𝐿)ℎ))))
102	80, 81, 65, 82, 84, 85, 86, 87, 7, 1, 88, 89, 91, 93, 94, 101	fldextrspunlsplem 33674	. . . . . 6 ⊢ (((𝜑 ∧ 𝑝 ∈ (𝐺 ↑m 𝐻)) ∧ (𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → ∃𝑎 ∈ (𝐺 ↑m 𝐵)(𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)))))
103	102	r19.29an 3138	. . . . 5 ⊢ ((𝜑 ∧ ∃𝑝 ∈ (𝐺 ↑m 𝐻)(𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))))) → ∃𝑎 ∈ (𝐺 ↑m 𝐵)(𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)))))
104		breq1 5112	. . . . . . . 8 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → (𝑝 finSupp (0g‘𝐿) ↔ (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) finSupp (0g‘𝐿)))
105		fveq1 6859	. . . . . . . . . . . 12 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → (𝑝‘𝑓) = ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓))
106	105	oveq1d 7404	. . . . . . . . . . 11 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → ((𝑝‘𝑓)(.r‘𝐿)𝑓) = (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))
107	106	mpteq2dv 5203	. . . . . . . . . 10 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)) = (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓)))
108	107	oveq2d 7405	. . . . . . . . 9 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))) = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))))
109	108	eqeq2d 2741	. . . . . . . 8 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → (𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓))) ↔ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓)))))
110	104, 109	anbi12d 632	. . . . . . 7 ⊢ (𝑝 = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) → ((𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)))) ↔ ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))))))
111	10	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → 𝐺 ∈ (SubDRing‘𝐿))
112	13	ad2antrr 726	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → 𝐻 ∈ (SubDRing‘𝐿))
113	40	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
114	10	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) → 𝐺 ∈ (SubDRing‘𝐿))
115		simpr 484	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) → 𝑎 ∈ (𝐺 ↑m 𝐵))
116	113, 114, 115	elmaprd 32609	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) → 𝑎:𝐵⟶𝐺)
117	116	ad2antrr 726	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ 𝐻) → 𝑎:𝐵⟶𝐺)
118	117	ffvelcdmda 7058	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ 𝐻) ∧ 𝑔 ∈ 𝐵) → (𝑎‘𝑔) ∈ 𝐺)
119	33	ad4antr 732	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ 𝐻) ∧ ¬ 𝑔 ∈ 𝐵) → (0g‘𝐿) ∈ 𝐺)
120	118, 119	ifclda 4526	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ 𝐻) → if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)) ∈ 𝐺)
121	120	fmpttd 7089	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))):𝐻⟶𝐺)
122	111, 112, 121	elmapdd 8816	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) ∈ (𝐺 ↑m 𝐻))
123		fvexd 6875	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → (0g‘𝐿) ∈ V)
124	121	ffund 6694	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → Fun (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))))
125		simprl 770	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → 𝑎 finSupp (0g‘𝐿))
126	116	ffnd 6691	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) → 𝑎 Fn 𝐵)
127	126	ad3antrrr 730	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → 𝑎 Fn 𝐵)
128	40	ad4antr 732	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
129		fvexd 6875	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → (0g‘𝐿) ∈ V)
130		simpr 484	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → 𝑔 ∈ 𝐵)
131		simplr 768	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿))))
132	131	eldifbd 3929	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → ¬ 𝑔 ∈ (𝑎 supp (0g‘𝐿)))
133	130, 132	eldifd 3927	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → 𝑔 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿))))
134	127, 128, 129, 133	fvdifsupp 8152	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑔 ∈ 𝐵) → (𝑎‘𝑔) = (0g‘𝐿))
135		eqidd 2731	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ ¬ 𝑔 ∈ 𝐵) → (0g‘𝐿) = (0g‘𝐿))
136	134, 135	ifeqda 4527	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) ∧ 𝑔 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)) = (0g‘𝐿))
137	136, 112	suppss2 8181	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) supp (0g‘𝐿)) ⊆ (𝑎 supp (0g‘𝐿)))
138	122, 123, 124, 125, 137	fsuppsssuppgd 9339	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) finSupp (0g‘𝐿))
139		eqid 2730	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) = (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))
140		simpr 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) ∧ 𝑔 = 𝑓) → 𝑔 = 𝑓)
141		suppssdm 8158	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑎 supp (0g‘𝐿)) ⊆ dom 𝑎
142	116	fdmd 6700	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) → dom 𝑎 = 𝐵)
143	142	adantr 480	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → dom 𝑎 = 𝐵)
144	141, 143	sseqtrid 3991	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑎 supp (0g‘𝐿)) ⊆ 𝐵)
145	144	sselda 3948	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) → 𝑓 ∈ 𝐵)
146	145	adantr 480	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) ∧ 𝑔 = 𝑓) → 𝑓 ∈ 𝐵)
147	140, 146	eqeltrd 2829	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) ∧ 𝑔 = 𝑓) → 𝑔 ∈ 𝐵)
148	147	iftrued 4498	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) ∧ 𝑔 = 𝑓) → if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)) = (𝑎‘𝑔))
149		fveq2 6860	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑔 = 𝑓 → (𝑎‘𝑔) = (𝑎‘𝑓))
150	149	adantl 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) ∧ 𝑔 = 𝑓) → (𝑎‘𝑔) = (𝑎‘𝑓))
151	148, 150	eqtrd 2765	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) ∧ 𝑔 = 𝑓) → if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)) = (𝑎‘𝑓))
152	75	ad2antrr 726	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝐵 ⊆ 𝐻)
153	144, 152	sstrd 3959	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑎 supp (0g‘𝐿)) ⊆ 𝐻)
154	153	sselda 3948	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) → 𝑓 ∈ 𝐻)
155		fvexd 6875	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) → (𝑎‘𝑓) ∈ V)
156	139, 151, 154, 155	fvmptd2 6978	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) → ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓) = (𝑎‘𝑓))
157	156	oveq1d 7404	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝑎 supp (0g‘𝐿))) → (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓) = ((𝑎‘𝑓)(.r‘𝐿)𝑓))
158	157	mpteq2dva 5202	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑓 ∈ (𝑎 supp (0g‘𝐿)) ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓)) = (𝑓 ∈ (𝑎 supp (0g‘𝐿)) ↦ ((𝑎‘𝑓)(.r‘𝐿)𝑓)))
159		fveq2 6860	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑣 → (𝑎‘𝑓) = (𝑎‘𝑣))
160		id 22	. . . . . . . . . . . . . . . 16 ⊢ (𝑓 = 𝑣 → 𝑓 = 𝑣)
161	159, 160	oveq12d 7407	. . . . . . . . . . . . . . 15 ⊢ (𝑓 = 𝑣 → ((𝑎‘𝑓)(.r‘𝐿)𝑓) = ((𝑎‘𝑣)(.r‘𝐿)𝑣))
162	161	cbvmptv 5213	. . . . . . . . . . . . . 14 ⊢ (𝑓 ∈ (𝑎 supp (0g‘𝐿)) ↦ ((𝑎‘𝑓)(.r‘𝐿)𝑓)) = (𝑣 ∈ (𝑎 supp (0g‘𝐿)) ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))
163	158, 162	eqtrdi 2781	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑓 ∈ (𝑎 supp (0g‘𝐿)) ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓)) = (𝑣 ∈ (𝑎 supp (0g‘𝐿)) ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)))
164	163	oveq2d 7405	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝐿 Σg (𝑓 ∈ (𝑎 supp (0g‘𝐿)) ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))) = (𝐿 Σg (𝑣 ∈ (𝑎 supp (0g‘𝐿)) ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))
165	28	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝐿 ∈ CMnd)
166	13	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝐻 ∈ (SubDRing‘𝐿))
167		eleq1w 2812	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 = 𝑓 → (𝑔 ∈ 𝐵 ↔ 𝑓 ∈ 𝐵))
168	167, 149	ifbieq1d 4515	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = 𝑓 → if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)) = if(𝑓 ∈ 𝐵, (𝑎‘𝑓), (0g‘𝐿)))
169		simpr 484	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿))))
170	169	eldifad 3928	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → 𝑓 ∈ 𝐻)
171		fvexd 6875	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → (𝑎‘𝑓) ∈ V)
172		fvexd 6875	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → (0g‘𝐿) ∈ V)
173	171, 172	ifcld 4537	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → if(𝑓 ∈ 𝐵, (𝑎‘𝑓), (0g‘𝐿)) ∈ V)
174	139, 168, 170, 173	fvmptd3 6993	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓) = if(𝑓 ∈ 𝐵, (𝑎‘𝑓), (0g‘𝐿)))
175	174	oveq1d 7404	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓) = (if(𝑓 ∈ 𝐵, (𝑎‘𝑓), (0g‘𝐿))(.r‘𝐿)𝑓))
176	126	ad3antrrr 730	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → 𝑎 Fn 𝐵)
177	40	ad4antr 732	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
178		fvexd 6875	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → (0g‘𝐿) ∈ V)
179		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → 𝑓 ∈ 𝐵)
180		simplr 768	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿))))
181	180	eldifbd 3929	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → ¬ 𝑓 ∈ (𝑎 supp (0g‘𝐿)))
182	179, 181	eldifd 3927	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → 𝑓 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿))))
183	176, 177, 178, 182	fvdifsupp 8152	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ 𝑓 ∈ 𝐵) → (𝑎‘𝑓) = (0g‘𝐿))
184		eqidd 2731	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) ∧ ¬ 𝑓 ∈ 𝐵) → (0g‘𝐿) = (0g‘𝐿))
185	183, 184	ifeqda 4527	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → if(𝑓 ∈ 𝐵, (𝑎‘𝑓), (0g‘𝐿)) = (0g‘𝐿))
186	185	oveq1d 7404	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → (if(𝑓 ∈ 𝐵, (𝑎‘𝑓), (0g‘𝐿))(.r‘𝐿)𝑓) = ((0g‘𝐿)(.r‘𝐿)𝑓))
187	27	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → 𝐿 ∈ Ring)
188	166, 14, 63	3syl 18	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝐻 ⊆ (Base‘𝐿))
189	188	ssdifssd 4112	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝐻 ∖ (𝑎 supp (0g‘𝐿))) ⊆ (Base‘𝐿))
190	189	sselda 3948	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → 𝑓 ∈ (Base‘𝐿))
191	4, 5, 6, 187, 190	ringlzd 20210	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → ((0g‘𝐿)(.r‘𝐿)𝑓) = (0g‘𝐿))
192	175, 186, 191	3eqtrd 2769	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ (𝐻 ∖ (𝑎 supp (0g‘𝐿)))) → (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓) = (0g‘𝐿))
193		simpr 484	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝑎 finSupp (0g‘𝐿))
194	193	fsuppimpd 9326	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑎 supp (0g‘𝐿)) ∈ Fin)
195	27	ad3antrrr 730	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ 𝐻) → 𝐿 ∈ Ring)
196	18	ad4antr 732	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑔 ∈ 𝐻) ∧ 𝑔 ∈ 𝐵) → 𝐺 ⊆ (Base‘𝐿))
197	116	ad2antrr 726	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑔 ∈ 𝐻) → 𝑎:𝐵⟶𝐺)
198	197	ffvelcdmda 7058	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑔 ∈ 𝐻) ∧ 𝑔 ∈ 𝐵) → (𝑎‘𝑔) ∈ 𝐺)
199	196, 198	sseldd 3949	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑔 ∈ 𝐻) ∧ 𝑔 ∈ 𝐵) → (𝑎‘𝑔) ∈ (Base‘𝐿))
200	18, 33	sseldd 3949	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (0g‘𝐿) ∈ (Base‘𝐿))
201	200	ad4antr 732	. . . . . . . . . . . . . . . . 17 ⊢ (((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑔 ∈ 𝐻) ∧ ¬ 𝑔 ∈ 𝐵) → (0g‘𝐿) ∈ (Base‘𝐿))
202	199, 201	ifclda 4526	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑔 ∈ 𝐻) → if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)) ∈ (Base‘𝐿))
203	202	fmpttd 7089	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))):𝐻⟶(Base‘𝐿))
204	203	ffvelcdmda 7058	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ 𝐻) → ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓) ∈ (Base‘𝐿))
205	188	sselda 3948	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ 𝐻) → 𝑓 ∈ (Base‘𝐿))
206	4, 5, 195, 204, 205	ringcld 20175	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑓 ∈ 𝐻) → (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓) ∈ (Base‘𝐿))
207	4, 6, 165, 166, 192, 194, 206, 153	gsummptres2 32999	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))) = (𝐿 Σg (𝑓 ∈ (𝑎 supp (0g‘𝐿)) ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))))
208	113	adantr 480	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
209	126	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → 𝑎 Fn 𝐵)
210	208	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → 𝐵 ∈ (LBasis‘((subringAlg ‘𝐽)‘𝐹)))
211		fvexd 6875	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → (0g‘𝐿) ∈ V)
212		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿))))
213	209, 210, 211, 212	fvdifsupp 8152	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → (𝑎‘𝑣) = (0g‘𝐿))
214	213	oveq1d 7404	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → ((𝑎‘𝑣)(.r‘𝐿)𝑣) = ((0g‘𝐿)(.r‘𝐿)𝑣))
215	27	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → 𝐿 ∈ Ring)
216	76	ad2antrr 726	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝐵 ⊆ (Base‘𝐿))
217	216	ssdifssd 4112	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝐵 ∖ (𝑎 supp (0g‘𝐿))) ⊆ (Base‘𝐿))
218	217	sselda 3948	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → 𝑣 ∈ (Base‘𝐿))
219	4, 5, 6, 215, 218	ringlzd 20210	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → ((0g‘𝐿)(.r‘𝐿)𝑣) = (0g‘𝐿))
220	214, 219	eqtrd 2765	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ (𝐵 ∖ (𝑎 supp (0g‘𝐿)))) → ((𝑎‘𝑣)(.r‘𝐿)𝑣) = (0g‘𝐿))
221	27	ad3antrrr 730	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ 𝐵) → 𝐿 ∈ Ring)
222	18	ad3antrrr 730	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ 𝐵) → 𝐺 ⊆ (Base‘𝐿))
223	116	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → 𝑎:𝐵⟶𝐺)
224	223	ffvelcdmda 7058	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ 𝐵) → (𝑎‘𝑣) ∈ 𝐺)
225	222, 224	sseldd 3949	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ 𝐵) → (𝑎‘𝑣) ∈ (Base‘𝐿))
226	216	sselda 3948	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ 𝐵) → 𝑣 ∈ (Base‘𝐿))
227	4, 5, 221, 225, 226	ringcld 20175	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑣 ∈ 𝐵) → ((𝑎‘𝑣)(.r‘𝐿)𝑣) ∈ (Base‘𝐿))
228	4, 6, 165, 208, 220, 194, 227, 144	gsummptres2 32999	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))) = (𝐿 Σg (𝑣 ∈ (𝑎 supp (0g‘𝐿)) ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))
229	164, 207, 228	3eqtr4d 2775	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))) = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))
230	229	eqeq2d 2741	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) → (𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))) ↔ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)))))
231	230	biimpar 477	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ 𝑎 finSupp (0g‘𝐿)) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣)))) → 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))))
232	231	anasss 466	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓))))
233	138, 232	jca 511	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → ((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿))) finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ (((𝑔 ∈ 𝐻 ↦ if(𝑔 ∈ 𝐵, (𝑎‘𝑔), (0g‘𝐿)))‘𝑓)(.r‘𝐿)𝑓)))))
234	110, 122, 233	rspcedvdw 3594	. . . . . 6 ⊢ (((𝜑 ∧ 𝑎 ∈ (𝐺 ↑m 𝐵)) ∧ (𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → ∃𝑝 ∈ (𝐺 ↑m 𝐻)(𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)))))
235	234	r19.29an 3138	. . . . 5 ⊢ ((𝜑 ∧ ∃𝑎 ∈ (𝐺 ↑m 𝐵)(𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))) → ∃𝑝 ∈ (𝐺 ↑m 𝐻)(𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)))))
236	103, 235	impbida 800	. . . 4 ⊢ (𝜑 → (∃𝑝 ∈ (𝐺 ↑m 𝐻)(𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)))) ↔ ∃𝑎 ∈ (𝐺 ↑m 𝐵)(𝑎 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑣 ∈ 𝐵 ↦ ((𝑎‘𝑣)(.r‘𝐿)𝑣))))))
237	52, 79, 236	3bitr4rd 312	. . 3 ⊢ (𝜑 → (∃𝑝 ∈ (𝐺 ↑m 𝐻)(𝑝 finSupp (0g‘𝐿) ∧ 𝑥 = (𝐿 Σg (𝑓 ∈ 𝐻 ↦ ((𝑝‘𝑓)(.r‘𝐿)𝑓)))) ↔ 𝑥 ∈ ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝐵)))
238	3, 16, 237	3bitrd 305	. 2 ⊢ (𝜑 → (𝑥 ∈ 𝐶 ↔ 𝑥 ∈ ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝐵)))
239	238	eqrdv 2728	1 ⊢ (𝜑 → 𝐶 = ((LSpan‘((subringAlg ‘𝐿)‘𝐺))‘𝐵))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2109  ∃wrex 3054  Vcvv 3450   ∖ cdif 3913   ∪ cun 3914   ⊆ wss 3916  ifcif 4490   class class class wbr 5109   ↦ cmpt 5190  dom cdm 5640   Fn wfn 6508  ⟶wf 6509  ‘cfv 6513  (class class class)co 7389   supp csupp 8141   ↑_m cmap 8801  Fincfn 8920   finSupp cfsupp 9318  Basecbs 17185   ↾_s cress 17206  ._rcmulr 17227  Scalarcsca 17229   ·_𝑠 cvsca 17230  0_gc0g 17408   Σ_g cgsu 17409  Mndcmnd 18667  SubGrpcsubg 19058  CMndccmn 19716  Ringcrg 20148  SubRingcsubrg 20484  RingSpancrgspn 20525  Fieldcfield 20645  SubDRingcsdrg 20701  LModclmod 20772  LSpanclspn 20883  LBasisclbs 20987  subringAlg csra 21084

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-rep 5236  ax-sep 5253  ax-nul 5263  ax-pow 5322  ax-pr 5389  ax-un 7713  ax-reg 9551  ax-inf2 9600  ax-ac2 10422  ax-cnex 11130  ax-resscn 11131  ax-1cn 11132  ax-icn 11133  ax-addcl 11134  ax-addrcl 11135  ax-mulcl 11136  ax-mulrcl 11137  ax-mulcom 11138  ax-addass 11139  ax-mulass 11140  ax-distr 11141  ax-i2m1 11142  ax-1ne0 11143  ax-1rid 11144  ax-rnegex 11145  ax-rrecex 11146  ax-cnre 11147  ax-pre-lttri 11148  ax-pre-lttrn 11149  ax-pre-ltadd 11150  ax-pre-mulgt0 11151  ax-pre-sup 11152  ax-addf 11153

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-nel 3031  df-ral 3046  df-rex 3055  df-rmo 3356  df-reu 3357  df-rab 3409  df-v 3452  df-sbc 3756  df-csb 3865  df-dif 3919  df-un 3921  df-in 3923  df-ss 3933  df-pss 3936  df-nul 4299  df-if 4491  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4874  df-int 4913  df-iun 4959  df-iin 4960  df-br 5110  df-opab 5172  df-mpt 5191  df-tr 5217  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-se 5594  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6276  df-ord 6337  df-on 6338  df-lim 6339  df-suc 6340  df-iota 6466  df-fun 6515  df-fn 6516  df-f 6517  df-f1 6518  df-fo 6519  df-f1o 6520  df-fv 6521  df-isom 6522  df-riota 7346  df-ov 7392  df-oprab 7393  df-mpo 7394  df-of 7655  df-om 7845  df-1st 7970  df-2nd 7971  df-supp 8142  df-tpos 8207  df-frecs 8262  df-wrecs 8293  df-recs 8342  df-rdg 8380  df-1o 8436  df-2o 8437  df-er 8673  df-map 8803  df-ixp 8873  df-en 8921  df-dom 8922  df-sdom 8923  df-fin 8924  df-fsupp 9319  df-sup 9399  df-oi 9469  df-r1 9723  df-rank 9724  df-card 9898  df-ac 10075  df-pnf 11216  df-mnf 11217  df-xr 11218  df-ltxr 11219  df-le 11220  df-sub 11413  df-neg 11414  df-div 11842  df-nn 12188  df-2 12250  df-3 12251  df-4 12252  df-5 12253  df-6 12254  df-7 12255  df-8 12256  df-9 12257  df-n0 12449  df-xnn0 12522  df-z 12536  df-dec 12656  df-uz 12800  df-rp 12958  df-fz 13475  df-fzo 13622  df-seq 13973  df-exp 14033  df-hash 14302  df-word 14485  df-lsw 14534  df-concat 14542  df-s1 14567  df-substr 14612  df-pfx 14642  df-s2 14820  df-cj 15071  df-re 15072  df-im 15073  df-sqrt 15207  df-abs 15208  df-clim 15460  df-sum 15659  df-struct 17123  df-sets 17140  df-slot 17158  df-ndx 17170  df-base 17186  df-ress 17207  df-plusg 17239  df-mulr 17240  df-starv 17241  df-sca 17242  df-vsca 17243  df-ip 17244  df-tset 17245  df-ple 17246  df-ds 17248  df-unif 17249  df-hom 17250  df-cco 17251  df-0g 17410  df-gsum 17411  df-prds 17416  df-pws 17418  df-mre 17553  df-mrc 17554  df-acs 17556  df-mgm 18573  df-sgrp 18652  df-mnd 18668  df-mhm 18716  df-submnd 18717  df-grp 18874  df-minusg 18875  df-sbg 18876  df-mulg 19006  df-subg 19061  df-ghm 19151  df-cntz 19255  df-cmn 19718  df-abl 19719  df-mgp 20056  df-rng 20068  df-ur 20097  df-ring 20150  df-cring 20151  df-oppr 20252  df-nzr 20428  df-subrng 20461  df-subrg 20485  df-rgspn 20526  df-drng 20646  df-field 20647  df-sdrg 20702  df-lmod 20774  df-lss 20844  df-lsp 20884  df-lmhm 20935  df-lbs 20988  df-sra 21086  df-rgmod 21087  df-cnfld 21271  df-zring 21363  df-dsmm 21647  df-frlm 21662  df-uvc 21698  df-ind 32780

This theorem is referenced by:  fldextrspunlem1  33676