Theorem extdgfialglem1 34317

Description: Lemma for extdgfialg 34319. (Contributed by Thierry Arnoux, 10-Jan-2026.)

Hypotheses

Ref	Expression
extdgfialg.b	⊢ 𝐵 = (Base‘𝐸)
extdgfialg.d	⊢ 𝐷 = (dim‘((subringAlg ‘𝐸)‘𝐹))
extdgfialg.e	⊢ (𝜑 → 𝐸 ∈ Field)
extdgfialg.f	⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐸))
extdgfialg.1	⊢ (𝜑 → 𝐷 ∈ ℕ0)
extdgfialglem1.2	⊢ 𝑍 = (0g‘𝐸)
extdgfialglem1.3	⊢ · = (.r‘𝐸)
extdgfialglem1.r	⊢ 𝐺 = (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
extdgfialglem1.4	⊢ (𝜑 → 𝑋 ∈ 𝐵)

Assertion

Ref	Expression
extdgfialglem1	⊢ (𝜑 → ∃𝑎 ∈ (𝐹 ↑m (0...𝐷))(𝑎 finSupp 𝑍 ∧ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍}))))

Distinct variable groups:   · ,𝑛   𝐵,𝑛   𝐷,𝑛   𝑛,𝐸   𝑛,𝐹   𝑛,𝐺   𝑛,𝑋   𝑛,𝑍   𝜑,𝑛   𝐵,𝑎,𝑛   𝐷,𝑎   𝐸,𝑎   𝐹,𝑎   𝜑,𝑎   𝐺,𝑎   𝑋,𝑎

Allowed substitution hints:   · (𝑎)   𝑍(𝑎)

Proof of Theorem extdgfialglem1

Dummy variable 𝑏 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simplr 781	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹)))
2		extdgfialg.e	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐸 ∈ Field)
3	2	flddrngd 20987	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ DivRing)
4		extdgfialg.f	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐸))
5		eqid 2761	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸 ↾s 𝐹) = (𝐸 ↾s 𝐹)
6	5	sdrgdrng 21040	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → (𝐸 ↾s 𝐹) ∈ DivRing)
7	4, 6	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ DivRing)
8		sdrgsubrg 21041	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
9	4, 8	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
10		eqid 2761	. . . . . . . . . . . . . . . . . . 19 ⊢ ((subringAlg ‘𝐸)‘𝐹) = ((subringAlg ‘𝐸)‘𝐹)
11	10, 5	sralvec 34210	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐸 ∈ DivRing ∧ (𝐸 ↾s 𝐹) ∈ DivRing ∧ 𝐹 ∈ (SubRing‘𝐸)) → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
12	3, 7, 9, 11	syl3anc 1398	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
13	12	ad2antrr 739	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
14	13	ad2antrr 739	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
15		extdgfialg.d	. . . . . . . . . . . . . . . 16 ⊢ 𝐷 = (dim‘((subringAlg ‘𝐸)‘𝐹))
16		eqid 2761	. . . . . . . . . . . . . . . . 17 ⊢ (LBasis‘((subringAlg ‘𝐸)‘𝐹)) = (LBasis‘((subringAlg ‘𝐸)‘𝐹))
17	16	dimval 34226	. . . . . . . . . . . . . . . 16 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) → (dim‘((subringAlg ‘𝐸)‘𝐹)) = (♯‘𝑏))
18	15, 17	eqtrid 2808	. . . . . . . . . . . . . . 15 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 = (♯‘𝑏))
19	14, 1, 18	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝐷 = (♯‘𝑏))
20		extdgfialg.1	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐷 ∈ ℕ0)
21	20	ad4antr 745	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝐷 ∈ ℕ0)
22	19, 21	eqeltrrd 2862	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘𝑏) ∈ ℕ0)
23		hashclb 14495	. . . . . . . . . . . . . 14 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹)) → (𝑏 ∈ Fin ↔ (♯‘𝑏) ∈ ℕ0))
24	23	biimpar 483	. . . . . . . . . . . . 13 ⊢ ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹)) ∧ (♯‘𝑏) ∈ ℕ0) → 𝑏 ∈ Fin)
25	1, 22, 24	syl2anc 596	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝑏 ∈ Fin)
26		hashss 14546	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ Fin ∧ ran 𝐺 ⊆ 𝑏) → (♯‘ran 𝐺) ≤ (♯‘𝑏))
27	25, 26	sylancom 600	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘ran 𝐺) ≤ (♯‘𝑏))
28		extdgfialglem1.r	. . . . . . . . . . . . . . 15 ⊢ 𝐺 = (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
29	28	dmeqi 5886	. . . . . . . . . . . . . 14 ⊢ dom 𝐺 = dom (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
30		eqid 2761	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) = (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
31		ovexd 7453	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ 𝑛 ∈ (0...𝐷)) → (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋) ∈ V)
32	30, 31	dmmptd 6682	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) = (0...𝐷))
33		ovexd 7453	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (0...𝐷) ∈ V)
34	32, 33	eqeltrd 2861	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) ∈ V)
35	29, 34	eqeltrid 2865	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom 𝐺 ∈ V)
36		hashf1rn 14489	. . . . . . . . . . . . 13 ⊢ ((dom 𝐺 ∈ V ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (♯‘ran 𝐺))
37	35, 36	sylancom 600	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (♯‘ran 𝐺))
38	37	ad3antrrr 743	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘𝐺) = (♯‘ran 𝐺))
39	27, 38, 19	3brtr4d 5137	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘𝐺) ≤ 𝐷)
40	16	islinds4 22134	. . . . . . . . . . . 12 ⊢ (((subringAlg ‘𝐸)‘𝐹) ∈ LVec → (ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)) ↔ ∃𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))ran 𝐺 ⊆ 𝑏))
41	40	biimpa 482	. . . . . . . . . . 11 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LVec ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ∃𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))ran 𝐺 ⊆ 𝑏)
42	13, 41	sylancom 600	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ∃𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))ran 𝐺 ⊆ 𝑏)
43	39, 42	r19.29a 3171	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (♯‘𝐺) ≤ 𝐷)
44	20	nn0red 12661	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ℝ)
45	44	ad2antrr 739	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 ∈ ℝ)
46	45	ltp1d 12240	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 < (𝐷 + 1))
47		fzfid 14109	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (0...𝐷) ∈ Fin)
48	47	mptexd 7228	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) ∈ V)
49	28, 48	eqeltrid 2865	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺 ∈ V)
50	49	adantr 486	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → 𝐺 ∈ V)
51		f1f 6776	. . . . . . . . . . . . . . . 16 ⊢ (𝐺:dom 𝐺–1-1→V → 𝐺:dom 𝐺⟶V)
52	51	adantl 487	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → 𝐺:dom 𝐺⟶V)
53	52	ffund 6712	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → Fun 𝐺)
54		hashfundm 14580	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ V ∧ Fun 𝐺) → (♯‘𝐺) = (♯‘dom 𝐺))
55	50, 53, 54	syl2anc 596	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (♯‘dom 𝐺))
56	28, 31	dmmptd 6682	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom 𝐺 = (0...𝐷))
57	56	fveq2d 6887	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘dom 𝐺) = (♯‘(0...𝐷)))
58		hashfz0 14570	. . . . . . . . . . . . . . 15 ⊢ (𝐷 ∈ ℕ0 → (♯‘(0...𝐷)) = (𝐷 + 1))
59	20, 58	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘(0...𝐷)) = (𝐷 + 1))
60	59	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘(0...𝐷)) = (𝐷 + 1))
61	55, 57, 60	3eqtrd 2800	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (𝐷 + 1))
62	61	adantr 486	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (♯‘𝐺) = (𝐷 + 1))
63	46, 62	breqtrrd 5133	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 < (♯‘𝐺))
64	45	rexrd 11352	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 ∈ ℝ*)
65	50	adantr 486	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐺 ∈ V)
66		hashxrcl 14494	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ V → (♯‘𝐺) ∈ ℝ*)
67	65, 66	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (♯‘𝐺) ∈ ℝ*)
68	64, 67	xrltnled 11370	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (𝐷 < (♯‘𝐺) ↔ ¬ (♯‘𝐺) ≤ 𝐷))
69	63, 68	mpbid 235	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ¬ (♯‘𝐺) ≤ 𝐷)
70	43, 69	pm2.65da 829	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → ¬ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)))
71	70	ex 418	. . . . . . 7 ⊢ (𝜑 → (𝐺:dom 𝐺–1-1→V → ¬ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))))
72		imnan 405	. . . . . . 7 ⊢ ((𝐺:dom 𝐺–1-1→V → ¬ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ↔ ¬ (𝐺:dom 𝐺–1-1→V ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))))
73	71, 72	sylib 221	. . . . . 6 ⊢ (𝜑 → ¬ (𝐺:dom 𝐺–1-1→V ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))))
74	12	lveclmodd 21375	. . . . . . 7 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) ∈ LMod)
75		eqidd 2762	. . . . . . . . 9 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) = ((subringAlg ‘𝐸)‘𝐹))
76		extdgfialg.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝐸)
77	76	sdrgss 21043	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ⊆ 𝐵)
78	4, 77	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ⊆ 𝐵)
79	78, 76	sseqtrdi 3971	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐸))
80	75, 79	srasca 21448	. . . . . . . 8 ⊢ (𝜑 → (𝐸 ↾s 𝐹) = (Scalar‘((subringAlg ‘𝐸)‘𝐹)))
81		drngnzr 20995	. . . . . . . . 9 ⊢ ((𝐸 ↾s 𝐹) ∈ DivRing → (𝐸 ↾s 𝐹) ∈ NzRing)
82	7, 81	syl 18	. . . . . . . 8 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ NzRing)
83	80, 82	eqeltrrd 2862	. . . . . . 7 ⊢ (𝜑 → (Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ NzRing)
84		eqid 2761	. . . . . . . 8 ⊢ (Scalar‘((subringAlg ‘𝐸)‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘𝐹))
85	84	islindf3 22125	. . . . . . 7 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LMod ∧ (Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ NzRing) → (𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹) ↔ (𝐺:dom 𝐺–1-1→V ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)))))
86	74, 83, 85	syl2anc 596	. . . . . 6 ⊢ (𝜑 → (𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹) ↔ (𝐺:dom 𝐺–1-1→V ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)))))
87	73, 86	mtbird 328	. . . . 5 ⊢ (𝜑 → ¬ 𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹))
88		ovexd 7453	. . . . . 6 ⊢ (𝜑 → (0...𝐷) ∈ V)
89		eqid 2761	. . . . . . . . 9 ⊢ (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) = (mulGrp‘((subringAlg ‘𝐸)‘𝐹))
90		eqid 2761	. . . . . . . . 9 ⊢ (Base‘((subringAlg ‘𝐸)‘𝐹)) = (Base‘((subringAlg ‘𝐸)‘𝐹))
91	89, 90	mgpbas 20358	. . . . . . . 8 ⊢ (Base‘((subringAlg ‘𝐸)‘𝐹)) = (Base‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))
92		eqid 2761	. . . . . . . 8 ⊢ (.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹))) = (.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))
93	2	fldcrngd 20988	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐸 ∈ CRing)
94	93	crngringd 20466	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ Ring)
95	10, 76	sraring 21454	. . . . . . . . . . 11 ⊢ ((𝐸 ∈ Ring ∧ 𝐹 ⊆ 𝐵) → ((subringAlg ‘𝐸)‘𝐹) ∈ Ring)
96	94, 78, 95	syl2anc 596	. . . . . . . . . 10 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) ∈ Ring)
97	89	ringmgp 20458	. . . . . . . . . 10 ⊢ (((subringAlg ‘𝐸)‘𝐹) ∈ Ring → (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) ∈ Mnd)
98	96, 97	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) ∈ Mnd)
99	98	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) ∈ Mnd)
100		fz0ssnn0 13749	. . . . . . . . . 10 ⊢ (0...𝐷) ⊆ ℕ0
101	100	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (0...𝐷) ⊆ ℕ0)
102	101	sselda 3931	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → 𝑛 ∈ ℕ0)
103		extdgfialglem1.4	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
104	75, 79	srabase 21445	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘𝐹)))
105	76, 104	eqtr2id 2809	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘((subringAlg ‘𝐸)‘𝐹)) = 𝐵)
106	103, 105	eleqtrrd 2864	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ (Base‘((subringAlg ‘𝐸)‘𝐹)))
107	106	adantr 486	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → 𝑋 ∈ (Base‘((subringAlg ‘𝐸)‘𝐹)))
108	91, 92, 99, 102, 107	mulgnn0cld 19298	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋) ∈ (Base‘((subringAlg ‘𝐸)‘𝐹)))
109	108, 28	fmptd 7112	. . . . . 6 ⊢ (𝜑 → 𝐺:(0...𝐷)⟶(Base‘((subringAlg ‘𝐸)‘𝐹)))
110		eqid 2761	. . . . . . 7 ⊢ ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)) = ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))
111		eqid 2761	. . . . . . 7 ⊢ (0g‘((subringAlg ‘𝐸)‘𝐹)) = (0g‘((subringAlg ‘𝐸)‘𝐹))
112		eqid 2761	. . . . . . 7 ⊢ (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))
113		eqid 2761	. . . . . . 7 ⊢ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) = (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))
114	90, 84, 110, 111, 112, 113	islindf4 22137	. . . . . 6 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LMod ∧ (0...𝐷) ∈ V ∧ 𝐺:(0...𝐷)⟶(Base‘((subringAlg ‘𝐸)‘𝐹))) → (𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹) ↔ ∀𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) → 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))))
115	74, 88, 109, 114	syl3anc 1398	. . . . 5 ⊢ (𝜑 → (𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹) ↔ ∀𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) → 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))))
116	87, 115	mtbid 327	. . . 4 ⊢ (𝜑 → ¬ ∀𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) → 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))
117		rexanali 3117	. . . 4 ⊢ (∃𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})) ↔ ¬ ∀𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) → 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))
118	116, 117	sylibr 237	. . 3 ⊢ (𝜑 → ∃𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))
119		fvex 6896	. . . . . . 7 ⊢ (Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ V
120		ovex 7451	. . . . . . 7 ⊢ (0...𝐷) ∈ V
121		eqid 2761	. . . . . . . 8 ⊢ ((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)) = ((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))
122		eqid 2761	. . . . . . . 8 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))
123	121, 122, 112, 113	frlmelbas 22055	. . . . . . 7 ⊢ (((Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ V ∧ (0...𝐷) ∈ V) → (𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ↔ (𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ 𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))))))
124	119, 120, 123	mp2an 705	. . . . . 6 ⊢ (𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ↔ (𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ 𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))))
125	124	anbi1i 636	. . . . 5 ⊢ ((𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ ((𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ 𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))))
126		df-ne 2957	. . . . . . 7 ⊢ (𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}) ↔ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))
127	126	anbi2i 635	. . . . . 6 ⊢ (((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})) ↔ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))
128	127	anbi2i 635	. . . . 5 ⊢ ((𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ (𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))))
129		anass 474	. . . . 5 ⊢ (((𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ 𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ (𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ (𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))))
130	125, 128, 129	3bitr3i 304	. . . 4 ⊢ ((𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ (𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ (𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))))
131	130	rexbii2 3106	. . 3 ⊢ (∃𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})) ↔ ∃𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷))(𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))))
132	118, 131	sylib 221	. 2 ⊢ (𝜑 → ∃𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷))(𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))))
133	5, 76	ressbas2 17409	. . . . . 6 ⊢ (𝐹 ⊆ 𝐵 → 𝐹 = (Base‘(𝐸 ↾s 𝐹)))
134	78, 133	syl 18	. . . . 5 ⊢ (𝜑 → 𝐹 = (Base‘(𝐸 ↾s 𝐹)))
135	80	fveq2d 6887	. . . . 5 ⊢ (𝜑 → (Base‘(𝐸 ↾s 𝐹)) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))))
136	134, 135	eqtr2d 2797	. . . 4 ⊢ (𝜑 → (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = 𝐹)
137	136	oveq1d 7433	. . 3 ⊢ (𝜑 → ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) = (𝐹 ↑m (0...𝐷)))
138	93	crnggrpd 20467	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ Grp)
139	138	grpmndd 19150	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ Mnd)
140		subrgsubg 20822	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubRing‘𝐸) → 𝐹 ∈ (SubGrp‘𝐸))
141	9, 140	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (SubGrp‘𝐸))
142		eqid 2761	. . . . . . . . . 10 ⊢ (0g‘𝐸) = (0g‘𝐸)
143	142	subg0cl 19337	. . . . . . . . 9 ⊢ (𝐹 ∈ (SubGrp‘𝐸) → (0g‘𝐸) ∈ 𝐹)
144	141, 143	syl 18	. . . . . . . 8 ⊢ (𝜑 → (0g‘𝐸) ∈ 𝐹)
145	5, 76, 142	ress0g 18947	. . . . . . . 8 ⊢ ((𝐸 ∈ Mnd ∧ (0g‘𝐸) ∈ 𝐹 ∧ 𝐹 ⊆ 𝐵) → (0g‘𝐸) = (0g‘(𝐸 ↾s 𝐹)))
146	139, 144, 78, 145	syl3anc 1398	. . . . . . 7 ⊢ (𝜑 → (0g‘𝐸) = (0g‘(𝐸 ↾s 𝐹)))
147	80	fveq2d 6887	. . . . . . 7 ⊢ (𝜑 → (0g‘(𝐸 ↾s 𝐹)) = (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))))
148	146, 147	eqtr2d 2797	. . . . . 6 ⊢ (𝜑 → (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = (0g‘𝐸))
149		extdgfialglem1.2	. . . . . 6 ⊢ 𝑍 = (0g‘𝐸)
150	148, 149	eqtr4di 2814	. . . . 5 ⊢ (𝜑 → (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = 𝑍)
151	150	breq2d 5115	. . . 4 ⊢ (𝜑 → (𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↔ 𝑎 finSupp 𝑍))
152		extdgfialglem1.3	. . . . . . . . . . 11 ⊢ · = (.r‘𝐸)
153	75, 79	sravsca 21449	. . . . . . . . . . 11 ⊢ (𝜑 → (.r‘𝐸) = ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)))
154	152, 153	eqtr2id 2809	. . . . . . . . . 10 ⊢ (𝜑 → ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)) = · )
155	154	ofeqd 7693	. . . . . . . . 9 ⊢ (𝜑 → ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)) = ∘f · )
156	155	oveqd 7435	. . . . . . . 8 ⊢ (𝜑 → (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺) = (𝑎 ∘f · 𝐺))
157	156	oveq2d 7434	. . . . . . 7 ⊢ (𝜑 → (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f · 𝐺)))
158		ovexd 7453	. . . . . . . 8 ⊢ (𝜑 → (𝑎 ∘f · 𝐺) ∈ V)
159	10, 158, 2, 12, 79	gsumsra 33601	. . . . . . 7 ⊢ (𝜑 → (𝐸 Σg (𝑎 ∘f · 𝐺)) = (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f · 𝐺)))
160	157, 159	eqtr4d 2799	. . . . . 6 ⊢ (𝜑 → (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (𝐸 Σg (𝑎 ∘f · 𝐺)))
161	149	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑍 = (0g‘𝐸))
162	75, 161, 79	sralmod0 21456	. . . . . . 7 ⊢ (𝜑 → 𝑍 = (0g‘((subringAlg ‘𝐸)‘𝐹)))
163	162	eqcomd 2767	. . . . . 6 ⊢ (𝜑 → (0g‘((subringAlg ‘𝐸)‘𝐹)) = 𝑍)
164	160, 163	eqeq12d 2777	. . . . 5 ⊢ (𝜑 → ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ↔ (𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍))
165	150	sneqd 4596	. . . . . . 7 ⊢ (𝜑 → {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))} = {𝑍})
166	165	xpeq2d 5681	. . . . . 6 ⊢ (𝜑 → ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}) = ((0...𝐷) × {𝑍}))
167	166	neeq2d 3016	. . . . 5 ⊢ (𝜑 → (𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}) ↔ 𝑎 ≠ ((0...𝐷) × {𝑍})))
168	164, 167	anbi12d 644	. . . 4 ⊢ (𝜑 → (((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})) ↔ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍}))))
169	151, 168	anbi12d 644	. . 3 ⊢ (𝜑 → ((𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ (𝑎 finSupp 𝑍 ∧ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍})))))
170	137, 169	rexeqbidv 3336	. 2 ⊢ (𝜑 → (∃𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷))(𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ ∃𝑎 ∈ (𝐹 ↑m (0...𝐷))(𝑎 finSupp 𝑍 ∧ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍})))))
171	132, 170	mpbid 235	1 ⊢ (𝜑 → ∃𝑎 ∈ (𝐹 ↑m (0...𝐷))(𝑎 finSupp 𝑍 ∧ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍}))))

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2145   ≠ wne 2956  ∀wral 3077  ∃wrex 3087  Vcvv 3451   ⊆ wss 3899  {csn 4584   class class class wbr 5103   ↦ cmpt 5186   × cxp 5649  dom cdm 5651  ran crn 5652  Fun wfun 6531  ⟶wf 6533  –1-1→wf1 6534  ‘cfv 6537  (class class class)co 7418   ∘_f cof 7689   ↑_m cmap 8840  Fincfn 8966   finSupp cfsupp 9346  ℝcr 11192  0cc0 11193  1c1 11194   + caddc 11196  ℝ^*cxr 11335   < clt 11336   ≤ cle 11337  ℕ₀cn0 12599  ...cfz 13632  ♯chash 14467  Basecbs 17380   ↾_s cress 17401  ._rcmulr 17422  Scalarcsca 17424   ·_𝑠 cvsca 17425  0_gc0g 17603   Σ_g cgsu 17604  Mndcmnd 18916  ._gcmg 19270  SubGrpcsubg 19323  mulGrpcmgp 20353  Ringcrg 20452  NzRingcnzr 20755  SubRingcsubrg 20814  DivRingcdr 20973  Fieldcfield 20974  SubDRingcsdrg 21036  LModclmod 21128  LBasisclbs 21342  LVecclvec 21370  subringAlg csra 21439   freeLMod cfrlm 22045   LIndF clindf 22103  LIndSclinds 22104  dimcldim 34224

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-rep 5232  ax-sep 5249  ax-nul 5260  ax-pow 5327  ax-pr 5391  ax-un 7749  ax-reg 9579  ax-inf2 9635  ax-ac2 10534  ax-cnex 11249  ax-resscn 11250  ax-1cn 11251  ax-icn 11252  ax-addcl 11253  ax-addrcl 11254  ax-mulcl 11255  ax-mulrcl 11256  ax-mulcom 11257  ax-addass 11258  ax-mulass 11259  ax-distr 11260  ax-i2m1 11261  ax-1ne0 11262  ax-1rid 11263  ax-rnegex 11264  ax-rrecex 11265  ax-cnre 11266  ax-pre-lttri 11267  ax-pre-lttrn 11268  ax-pre-ltadd 11269  ax-pre-mulgt0 11270

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-int 4908  df-iun 4953  df-iin 4954  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-se 5605  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 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 7375  df-ov 7421  df-oprab 7422  df-mpo 7423  df-of 7691  df-rpss 7737  df-om 7876  df-1st 7999  df-2nd 8000  df-supp 8171  df-tpos 8236  df-frecs 8292  df-wrecs 8323  df-recs 8372  df-rdg 8411  df-1o 8469  df-2o 8470  df-oadd 8473  df-er 8710  df-map 8842  df-ixp 8919  df-en 8967  df-dom 8968  df-sdom 8969  df-fin 8970  df-fsupp 9347  df-sup 9427  df-oi 9497  df-r1 9761  df-rank 9762  df-scott 9922  df-dju 9975  df-card 10013  df-acn 10016  df-ac 10188  df-pnf 11338  df-mnf 11339  df-xr 11340  df-ltxr 11341  df-le 11342  df-sub 11536  df-neg 11537  df-nn 12329  df-2 12398  df-3 12399  df-4 12400  df-5 12401  df-6 12402  df-7 12403  df-8 12404  df-9 12405  df-n0 12600  df-xnn0 12673  df-z 12687  df-dec 12808  df-uz 12959  df-fz 13633  df-fzo 13782  df-seq 14138  df-hash 14468  df-struct 17318  df-sets 17335  df-slot 17353  df-ndx 17365  df-base 17381  df-ress 17402  df-plusg 17434  df-mulr 17435  df-sca 17437  df-vsca 17438  df-ip 17439  df-tset 17440  df-ple 17441  df-ocomp 17442  df-ds 17443  df-hom 17445  df-cco 17446  df-0g 17605  df-gsum 17606  df-prds 17611  df-pws 17613  df-mre 17749  df-mrc 17750  df-mri 17751  df-acs 17752  df-proset 18461  df-drs 18462  df-poset 18480  df-ipo 18695  df-mgm 18809  df-sgrp 18901  df-mnd 18917  df-mhm 18971  df-submnd 18972  df-grp 19140  df-minusg 19141  df-sbg 19142  df-mulg 19271  df-subg 19326  df-ghm 19421  df-cntz 19524  df-cmn 19989  df-abl 19990  df-mgp 20354  df-rng 20368  df-ur 20401  df-ring 20454  df-cring 20455  df-oppr 20560  df-dvdsr 20580  df-unit 20581  df-invr 20611  df-nzr 20756  df-subrg 20815  df-drng 20975  df-field 20976  df-sdrg 21037  df-lmod 21130  df-lss 21200  df-lsp 21240  df-lmhm 21290  df-lbs 21343  df-lvec 21371  df-sra 21441  df-rgmod 21442  df-dsmm 22031  df-frlm 22046  df-uvc 22082  df-lindf 22105  df-linds 22106  df-dim 34225

This theorem is used by:  extdgfialg  34319