Theorem extdgfialglem1 34023

Description: Lemma for extdgfialg 34025. (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 780	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹)))
2		extdgfialg.e	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐸 ∈ Field)
3	2	flddrngd 20821	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐸 ∈ DivRing)
4		extdgfialg.f	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝐹 ∈ (SubDRing‘𝐸))
5		eqid 2769	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝐸 ↾s 𝐹) = (𝐸 ↾s 𝐹)
6	5	sdrgdrng 20867	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → (𝐸 ↾s 𝐹) ∈ DivRing)
7	4, 6	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ DivRing)
8		sdrgsubrg 20868	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ∈ (SubRing‘𝐸))
9	4, 8	syl 18	. . . . . . . . . . . . . . . . . 18 ⊢ (𝜑 → 𝐹 ∈ (SubRing‘𝐸))
10		eqid 2769	. . . . . . . . . . . . . . . . . . 19 ⊢ ((subringAlg ‘𝐸)‘𝐹) = ((subringAlg ‘𝐸)‘𝐹)
11	10, 5	sralvec 33916	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐸 ∈ DivRing ∧ (𝐸 ↾s 𝐹) ∈ DivRing ∧ 𝐹 ∈ (SubRing‘𝐸)) → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
12	3, 7, 9, 11	syl3anc 1396	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
13	12	ad2antrr 738	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
14	13	ad2antrr 738	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → ((subringAlg ‘𝐸)‘𝐹) ∈ LVec)
15		extdgfialg.d	. . . . . . . . . . . . . . . 16 ⊢ 𝐷 = (dim‘((subringAlg ‘𝐸)‘𝐹))
16		eqid 2769	. . . . . . . . . . . . . . . . 17 ⊢ (LBasis‘((subringAlg ‘𝐸)‘𝐹)) = (LBasis‘((subringAlg ‘𝐸)‘𝐹))
17	16	dimval 33932	. . . . . . . . . . . . . . . 16 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) → (dim‘((subringAlg ‘𝐸)‘𝐹)) = (♯‘𝑏))
18	15, 17	eqtrid 2816	. . . . . . . . . . . . . . 15 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LVec ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 = (♯‘𝑏))
19	14, 1, 18	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝐷 = (♯‘𝑏))
20		extdgfialg.1	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐷 ∈ ℕ0)
21	20	ad4antr 744	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝐷 ∈ ℕ0)
22	19, 21	eqeltrrd 2870	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘𝑏) ∈ ℕ0)
23		hashclb 14390	. . . . . . . . . . . . . 14 ⊢ (𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹)) → (𝑏 ∈ Fin ↔ (♯‘𝑏) ∈ ℕ0))
24	23	biimpar 482	. . . . . . . . . . . . 13 ⊢ ((𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹)) ∧ (♯‘𝑏) ∈ ℕ0) → 𝑏 ∈ Fin)
25	1, 22, 24	syl2anc 595	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → 𝑏 ∈ Fin)
26		hashss 14441	. . . . . . . . . . . 12 ⊢ ((𝑏 ∈ Fin ∧ ran 𝐺 ⊆ 𝑏) → (♯‘ran 𝐺) ≤ (♯‘𝑏))
27	25, 26	sylancom 599	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘ran 𝐺) ≤ (♯‘𝑏))
28		extdgfialglem1.r	. . . . . . . . . . . . . . 15 ⊢ 𝐺 = (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
29	28	dmeqi 5892	. . . . . . . . . . . . . 14 ⊢ dom 𝐺 = dom (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
30		eqid 2769	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) = (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋))
31		ovexd 7443	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ 𝑛 ∈ (0...𝐷)) → (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋) ∈ V)
32	30, 31	dmmptd 6678	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) = (0...𝐷))
33		ovexd 7443	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (0...𝐷) ∈ V)
34	32, 33	eqeltrd 2869	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) ∈ V)
35	29, 34	eqeltrid 2873	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom 𝐺 ∈ V)
36		hashf1rn 14384	. . . . . . . . . . . . 13 ⊢ ((dom 𝐺 ∈ V ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (♯‘ran 𝐺))
37	35, 36	sylancom 599	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (♯‘ran 𝐺))
38	37	ad3antrrr 742	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘𝐺) = (♯‘ran 𝐺))
39	27, 38, 19	3brtr4d 5144	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) ∧ 𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))) ∧ ran 𝐺 ⊆ 𝑏) → (♯‘𝐺) ≤ 𝐷)
40	16	islinds4 21950	. . . . . . . . . . . 12 ⊢ (((subringAlg ‘𝐸)‘𝐹) ∈ LVec → (ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)) ↔ ∃𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))ran 𝐺 ⊆ 𝑏))
41	40	biimpa 481	. . . . . . . . . . 11 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LVec ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ∃𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))ran 𝐺 ⊆ 𝑏)
42	13, 41	sylancom 599	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → ∃𝑏 ∈ (LBasis‘((subringAlg ‘𝐸)‘𝐹))ran 𝐺 ⊆ 𝑏)
43	39, 42	r19.29a 3179	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (♯‘𝐺) ≤ 𝐷)
44	20	nn0red 12562	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐷 ∈ ℝ)
45	44	ad2antrr 738	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 ∈ ℝ)
46	45	ltp1d 12141	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 < (𝐷 + 1))
47		fzfid 14005	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (0...𝐷) ∈ Fin)
48	47	mptexd 7220	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑛 ∈ (0...𝐷) ↦ (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋)) ∈ V)
49	28, 48	eqeltrid 2873	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → 𝐺 ∈ V)
50	49	adantr 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → 𝐺 ∈ V)
51		f1f 6772	. . . . . . . . . . . . . . . 16 ⊢ (𝐺:dom 𝐺–1-1→V → 𝐺:dom 𝐺⟶V)
52	51	adantl 486	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → 𝐺:dom 𝐺⟶V)
53	52	ffund 6708	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → Fun 𝐺)
54		hashfundm 14475	. . . . . . . . . . . . . 14 ⊢ ((𝐺 ∈ V ∧ Fun 𝐺) → (♯‘𝐺) = (♯‘dom 𝐺))
55	50, 53, 54	syl2anc 595	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (♯‘dom 𝐺))
56	28, 31	dmmptd 6678	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → dom 𝐺 = (0...𝐷))
57	56	fveq2d 6883	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘dom 𝐺) = (♯‘(0...𝐷)))
58		hashfz0 14465	. . . . . . . . . . . . . . 15 ⊢ (𝐷 ∈ ℕ0 → (♯‘(0...𝐷)) = (𝐷 + 1))
59	20, 58	syl 18	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (♯‘(0...𝐷)) = (𝐷 + 1))
60	59	adantr 485	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘(0...𝐷)) = (𝐷 + 1))
61	55, 57, 60	3eqtrd 2808	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → (♯‘𝐺) = (𝐷 + 1))
62	61	adantr 485	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (♯‘𝐺) = (𝐷 + 1))
63	46, 62	breqtrrd 5140	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 < (♯‘𝐺))
64	45	rexrd 11255	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐷 ∈ ℝ*)
65	50	adantr 485	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → 𝐺 ∈ V)
66		hashxrcl 14389	. . . . . . . . . . . 12 ⊢ (𝐺 ∈ V → (♯‘𝐺) ∈ ℝ*)
67	65, 66	syl 18	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))) → (♯‘𝐺) ∈ ℝ*)
68	64, 67	xrltnled 11273	. . . . . . . . . 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 828	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐺:dom 𝐺–1-1→V) → ¬ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)))
71	70	ex 417	. . . . . . 7 ⊢ (𝜑 → (𝐺:dom 𝐺–1-1→V → ¬ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹))))
72		imnan 404	. . . . . . 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 21202	. . . . . . 7 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) ∈ LMod)
75		eqidd 2770	. . . . . . . . 9 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) = ((subringAlg ‘𝐸)‘𝐹))
76		extdgfialg.b	. . . . . . . . . . . 12 ⊢ 𝐵 = (Base‘𝐸)
77	76	sdrgss 20870	. . . . . . . . . . 11 ⊢ (𝐹 ∈ (SubDRing‘𝐸) → 𝐹 ⊆ 𝐵)
78	4, 77	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ⊆ 𝐵)
79	78, 76	sseqtrdi 3985	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ⊆ (Base‘𝐸))
80	75, 79	srasca 21275	. . . . . . . 8 ⊢ (𝜑 → (𝐸 ↾s 𝐹) = (Scalar‘((subringAlg ‘𝐸)‘𝐹)))
81		drngnzr 20828	. . . . . . . . 9 ⊢ ((𝐸 ↾s 𝐹) ∈ DivRing → (𝐸 ↾s 𝐹) ∈ NzRing)
82	7, 81	syl 18	. . . . . . . 8 ⊢ (𝜑 → (𝐸 ↾s 𝐹) ∈ NzRing)
83	80, 82	eqeltrrd 2870	. . . . . . 7 ⊢ (𝜑 → (Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ NzRing)
84		eqid 2769	. . . . . . . 8 ⊢ (Scalar‘((subringAlg ‘𝐸)‘𝐹)) = (Scalar‘((subringAlg ‘𝐸)‘𝐹))
85	84	islindf3 21941	. . . . . . 7 ⊢ ((((subringAlg ‘𝐸)‘𝐹) ∈ LMod ∧ (Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ NzRing) → (𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹) ↔ (𝐺:dom 𝐺–1-1→V ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)))))
86	74, 83, 85	syl2anc 595	. . . . . 6 ⊢ (𝜑 → (𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹) ↔ (𝐺:dom 𝐺–1-1→V ∧ ran 𝐺 ∈ (LIndS‘((subringAlg ‘𝐸)‘𝐹)))))
87	73, 86	mtbird 328	. . . . 5 ⊢ (𝜑 → ¬ 𝐺 LIndF ((subringAlg ‘𝐸)‘𝐹))
88		ovexd 7443	. . . . . 6 ⊢ (𝜑 → (0...𝐷) ∈ V)
89		eqid 2769	. . . . . . . . 9 ⊢ (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) = (mulGrp‘((subringAlg ‘𝐸)‘𝐹))
90		eqid 2769	. . . . . . . . 9 ⊢ (Base‘((subringAlg ‘𝐸)‘𝐹)) = (Base‘((subringAlg ‘𝐸)‘𝐹))
91	89, 90	mgpbas 20217	. . . . . . . 8 ⊢ (Base‘((subringAlg ‘𝐸)‘𝐹)) = (Base‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))
92		eqid 2769	. . . . . . . 8 ⊢ (.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹))) = (.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))
93	2	fldcrngd 20822	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐸 ∈ CRing)
94	93	crngringd 20324	. . . . . . . . . . 11 ⊢ (𝜑 → 𝐸 ∈ Ring)
95	10, 76	sraring 21281	. . . . . . . . . . 11 ⊢ ((𝐸 ∈ Ring ∧ 𝐹 ⊆ 𝐵) → ((subringAlg ‘𝐸)‘𝐹) ∈ Ring)
96	94, 78, 95	syl2anc 595	. . . . . . . . . 10 ⊢ (𝜑 → ((subringAlg ‘𝐸)‘𝐹) ∈ Ring)
97	89	ringmgp 20317	. . . . . . . . . 10 ⊢ (((subringAlg ‘𝐸)‘𝐹) ∈ Ring → (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) ∈ Mnd)
98	96, 97	syl 18	. . . . . . . . 9 ⊢ (𝜑 → (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) ∈ Mnd)
99	98	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → (mulGrp‘((subringAlg ‘𝐸)‘𝐹)) ∈ Mnd)
100		fz0ssnn0 13646	. . . . . . . . . 10 ⊢ (0...𝐷) ⊆ ℕ0
101	100	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → (0...𝐷) ⊆ ℕ0)
102	101	sselda 3945	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → 𝑛 ∈ ℕ0)
103		extdgfialglem1.4	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ 𝐵)
104	75, 79	srabase 21272	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐸) = (Base‘((subringAlg ‘𝐸)‘𝐹)))
105	76, 104	eqtr2id 2817	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘((subringAlg ‘𝐸)‘𝐹)) = 𝐵)
106	103, 105	eleqtrrd 2872	. . . . . . . . 9 ⊢ (𝜑 → 𝑋 ∈ (Base‘((subringAlg ‘𝐸)‘𝐹)))
107	106	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → 𝑋 ∈ (Base‘((subringAlg ‘𝐸)‘𝐹)))
108	91, 92, 99, 102, 107	mulgnn0cld 19157	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (0...𝐷)) → (𝑛(.g‘(mulGrp‘((subringAlg ‘𝐸)‘𝐹)))𝑋) ∈ (Base‘((subringAlg ‘𝐸)‘𝐹)))
109	108, 28	fmptd 7107	. . . . . 6 ⊢ (𝜑 → 𝐺:(0...𝐷)⟶(Base‘((subringAlg ‘𝐸)‘𝐹)))
110		eqid 2769	. . . . . . 7 ⊢ ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)) = ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))
111		eqid 2769	. . . . . . 7 ⊢ (0g‘((subringAlg ‘𝐸)‘𝐹)) = (0g‘((subringAlg ‘𝐸)‘𝐹))
112		eqid 2769	. . . . . . 7 ⊢ (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))
113		eqid 2769	. . . . . . 7 ⊢ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) = (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)))
114	90, 84, 110, 111, 112, 113	islindf4 21953	. . . . . 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 1396	. . . . 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 3125	. . . 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 6892	. . . . . . 7 ⊢ (Scalar‘((subringAlg ‘𝐸)‘𝐹)) ∈ V
120		ovex 7441	. . . . . . 7 ⊢ (0...𝐷) ∈ V
121		eqid 2769	. . . . . . . 8 ⊢ ((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷)) = ((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))
122		eqid 2769	. . . . . . . 8 ⊢ (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))
123	121, 122, 112, 113	frlmelbas 21871	. . . . . . 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 704	. . . . . 6 ⊢ (𝑎 ∈ (Base‘((Scalar‘((subringAlg ‘𝐸)‘𝐹)) freeLMod (0...𝐷))) ↔ (𝑎 ∈ ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) ∧ 𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))))
125	124	anbi1i 635	. . . . 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 2965	. . . . . . 7 ⊢ (𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}) ↔ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))
127	126	anbi2i 634	. . . . . 6 ⊢ (((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})) ↔ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ ¬ 𝑎 = ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})))
128	127	anbi2i 634	. . . . 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 473	. . . . 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 3114	. . 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 17294	. . . . . 6 ⊢ (𝐹 ⊆ 𝐵 → 𝐹 = (Base‘(𝐸 ↾s 𝐹)))
134	78, 133	syl 18	. . . . 5 ⊢ (𝜑 → 𝐹 = (Base‘(𝐸 ↾s 𝐹)))
135	80	fveq2d 6883	. . . . 5 ⊢ (𝜑 → (Base‘(𝐸 ↾s 𝐹)) = (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))))
136	134, 135	eqtr2d 2805	. . . 4 ⊢ (𝜑 → (Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = 𝐹)
137	136	oveq1d 7423	. . 3 ⊢ (𝜑 → ((Base‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↑m (0...𝐷)) = (𝐹 ↑m (0...𝐷)))
138	93	crnggrpd 20325	. . . . . . . . 9 ⊢ (𝜑 → 𝐸 ∈ Grp)
139	138	grpmndd 19009	. . . . . . . 8 ⊢ (𝜑 → 𝐸 ∈ Mnd)
140		subrgsubg 20658	. . . . . . . . . 10 ⊢ (𝐹 ∈ (SubRing‘𝐸) → 𝐹 ∈ (SubGrp‘𝐸))
141	9, 140	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (SubGrp‘𝐸))
142		eqid 2769	. . . . . . . . . 10 ⊢ (0g‘𝐸) = (0g‘𝐸)
143	142	subg0cl 19196	. . . . . . . . 9 ⊢ (𝐹 ∈ (SubGrp‘𝐸) → (0g‘𝐸) ∈ 𝐹)
144	141, 143	syl 18	. . . . . . . 8 ⊢ (𝜑 → (0g‘𝐸) ∈ 𝐹)
145	5, 76, 142	ress0g 18816	. . . . . . . 8 ⊢ ((𝐸 ∈ Mnd ∧ (0g‘𝐸) ∈ 𝐹 ∧ 𝐹 ⊆ 𝐵) → (0g‘𝐸) = (0g‘(𝐸 ↾s 𝐹)))
146	139, 144, 78, 145	syl3anc 1396	. . . . . . 7 ⊢ (𝜑 → (0g‘𝐸) = (0g‘(𝐸 ↾s 𝐹)))
147	80	fveq2d 6883	. . . . . . 7 ⊢ (𝜑 → (0g‘(𝐸 ↾s 𝐹)) = (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))))
148	146, 147	eqtr2d 2805	. . . . . 6 ⊢ (𝜑 → (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = (0g‘𝐸))
149		extdgfialglem1.2	. . . . . 6 ⊢ 𝑍 = (0g‘𝐸)
150	148, 149	eqtr4di 2822	. . . . 5 ⊢ (𝜑 → (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) = 𝑍)
151	150	breq2d 5122	. . . 4 ⊢ (𝜑 → (𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ↔ 𝑎 finSupp 𝑍))
152		extdgfialglem1.3	. . . . . . . . . . 11 ⊢ · = (.r‘𝐸)
153	75, 79	sravsca 21276	. . . . . . . . . . 11 ⊢ (𝜑 → (.r‘𝐸) = ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)))
154	152, 153	eqtr2id 2817	. . . . . . . . . 10 ⊢ (𝜑 → ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)) = · )
155	154	ofeqd 7674	. . . . . . . . 9 ⊢ (𝜑 → ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹)) = ∘f · )
156	155	oveqd 7425	. . . . . . . 8 ⊢ (𝜑 → (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺) = (𝑎 ∘f · 𝐺))
157	156	oveq2d 7424	. . . . . . 7 ⊢ (𝜑 → (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f · 𝐺)))
158		ovexd 7443	. . . . . . . 8 ⊢ (𝜑 → (𝑎 ∘f · 𝐺) ∈ V)
159	10, 158, 2, 12, 79	gsumsra 33304	. . . . . . 7 ⊢ (𝜑 → (𝐸 Σg (𝑎 ∘f · 𝐺)) = (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f · 𝐺)))
160	157, 159	eqtr4d 2807	. . . . . 6 ⊢ (𝜑 → (((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (𝐸 Σg (𝑎 ∘f · 𝐺)))
161	149	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 𝑍 = (0g‘𝐸))
162	75, 161, 79	sralmod0 21283	. . . . . . 7 ⊢ (𝜑 → 𝑍 = (0g‘((subringAlg ‘𝐸)‘𝐹)))
163	162	eqcomd 2775	. . . . . 6 ⊢ (𝜑 → (0g‘((subringAlg ‘𝐸)‘𝐹)) = 𝑍)
164	160, 163	eqeq12d 2785	. . . . 5 ⊢ (𝜑 → ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ↔ (𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍))
165	150	sneqd 4603	. . . . . . 7 ⊢ (𝜑 → {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))} = {𝑍})
166	165	xpeq2d 5689	. . . . . 6 ⊢ (𝜑 → ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}) = ((0...𝐷) × {𝑍}))
167	166	neeq2d 3024	. . . . 5 ⊢ (𝜑 → (𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}) ↔ 𝑎 ≠ ((0...𝐷) × {𝑍})))
168	164, 167	anbi12d 643	. . . 4 ⊢ (𝜑 → (((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))})) ↔ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍}))))
169	151, 168	anbi12d 643	. . 3 ⊢ (𝜑 → ((𝑎 finSupp (0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹))) ∧ ((((subringAlg ‘𝐸)‘𝐹) Σg (𝑎 ∘f ( ·𝑠 ‘((subringAlg ‘𝐸)‘𝐹))𝐺)) = (0g‘((subringAlg ‘𝐸)‘𝐹)) ∧ 𝑎 ≠ ((0...𝐷) × {(0g‘(Scalar‘((subringAlg ‘𝐸)‘𝐹)))}))) ↔ (𝑎 finSupp 𝑍 ∧ ((𝐸 Σg (𝑎 ∘f · 𝐺)) = 𝑍 ∧ 𝑎 ≠ ((0...𝐷) × {𝑍})))))
170	137, 169	rexeqbidv 3346	. 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...𝐷) × {𝑍}))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1567   ∈ wcel 2149   ≠ wne 2964  ∀wral 3085  ∃wrex 3095  Vcvv 3463   ⊆ wss 3913  {csn 4591   class class class wbr 5110   ↦ cmpt 5193   × cxp 5657  dom cdm 5659  ran crn 5660  Fun wfun 6527  ⟶wf 6529  –1-1→wf1 6530  ‘cfv 6533  (class class class)co 7408   ∘_f cof 7670   ↑_m cmap 8820  Fincfn 8939   finSupp cfsupp 9317  ℝcr 11095  0cc0 11096  1c1 11097   + caddc 11099  ℝ^*cxr 11238   < clt 11239   ≤ cle 11240  ℕ₀cn0 12500  ...cfz 13531  ♯chash 14362  Basecbs 17265   ↾_s cress 17286  ._rcmulr 17307  Scalarcsca 17309   ·_𝑠 cvsca 17310  0_gc0g 17488   Σ_g cgsu 17489  Mndcmnd 18788  ._gcmg 19129  SubGrpcsubg 19182  mulGrpcmgp 20212  Ringcrg 20311  NzRingcnzr 20591  SubRingcsubrg 20650  DivRingcdr 20809  Fieldcfield 20810  SubDRingcsdrg 20863  LModclmod 20955  LBasisclbs 21169  LVecclvec 21197  subringAlg csra 21266   freeLMod cfrlm 21861   LIndF clindf 21919  LIndSclinds 21920  dimcldim 33930

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 5239  ax-sep 5258  ax-nul 5268  ax-pow 5334  ax-pr 5402  ax-un 7730  ax-reg 9550  ax-inf2 9606  ax-ac2 10443  ax-cnex 11152  ax-resscn 11153  ax-1cn 11154  ax-icn 11155  ax-addcl 11156  ax-addrcl 11157  ax-mulcl 11158  ax-mulrcl 11159  ax-mulcom 11160  ax-addass 11161  ax-mulass 11162  ax-distr 11163  ax-i2m1 11164  ax-1ne0 11165  ax-1rid 11166  ax-rnegex 11167  ax-rrecex 11168  ax-cnre 11169  ax-pre-lttri 11170  ax-pre-lttrn 11171  ax-pre-ltadd 11172  ax-pre-mulgt0 11173

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 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4874  df-int 4914  df-iun 4959  df-iin 4960  df-br 5111  df-opab 5175  df-mpt 5194  df-tr 5220  df-id 5554  df-eprel 5559  df-po 5567  df-so 5568  df-fr 5612  df-se 5613  df-we 5614  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-rn 5670  df-res 5671  df-ima 5672  df-pred 6299  df-ord 6360  df-on 6361  df-lim 6362  df-suc 6363  df-iota 6489  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7672  df-rpss 7718  df-om 7859  df-1st 7982  df-2nd 7983  df-supp 8153  df-tpos 8218  df-frecs 8274  df-wrecs 8305  df-recs 8354  df-rdg 8393  df-1o 8449  df-2o 8450  df-oadd 8453  df-er 8690  df-map 8822  df-ixp 8892  df-en 8940  df-dom 8941  df-sdom 8942  df-fin 8943  df-fsupp 9318  df-sup 9398  df-oi 9468  df-r1 9732  df-rank 9733  df-dju 9883  df-card 9921  df-acn 9924  df-ac 10096  df-pnf 11241  df-mnf 11242  df-xr 11243  df-ltxr 11244  df-le 11245  df-sub 11439  df-neg 11440  df-nn 12230  df-2 12299  df-3 12300  df-4 12301  df-5 12302  df-6 12303  df-7 12304  df-8 12305  df-9 12306  df-n0 12501  df-xnn0 12574  df-z 12588  df-dec 12708  df-uz 12859  df-fz 13532  df-fzo 13679  df-seq 14034  df-hash 14363  df-struct 17203  df-sets 17220  df-slot 17238  df-ndx 17250  df-base 17266  df-ress 17287  df-plusg 17319  df-mulr 17320  df-sca 17322  df-vsca 17323  df-ip 17324  df-tset 17325  df-ple 17326  df-ocomp 17327  df-ds 17328  df-hom 17330  df-cco 17331  df-0g 17490  df-gsum 17491  df-prds 17496  df-pws 17498  df-mre 17634  df-mrc 17635  df-mri 17636  df-acs 17637  df-proset 18346  df-drs 18347  df-poset 18365  df-ipo 18580  df-mgm 18694  df-sgrp 18773  df-mnd 18789  df-mhm 18837  df-submnd 18838  df-grp 18999  df-minusg 19000  df-sbg 19001  df-mulg 19130  df-subg 19185  df-ghm 19280  df-cntz 19383  df-cmn 19848  df-abl 19849  df-mgp 20213  df-rng 20227  df-ur 20260  df-ring 20313  df-cring 20314  df-oppr 20415  df-dvdsr 20435  df-unit 20436  df-invr 20466  df-nzr 20592  df-subrg 20651  df-drng 20811  df-field 20812  df-sdrg 20864  df-lmod 20957  df-lss 21027  df-lsp 21067  df-lmhm 21117  df-lbs 21170  df-lvec 21198  df-sra 21268  df-rgmod 21269  df-dsmm 21847  df-frlm 21862  df-uvc 21898  df-lindf 21921  df-linds 21922  df-dim 33931

This theorem is referenced by:  extdgfialg  34025