Theorem gsummoncoe1 20474

Description: A coefficient of the polynomial represented as a sum of scaled monomials is the coefficient of the corresponding scaled monomial. (Contributed by AV, 13-Oct-2019.)

Hypotheses

Ref	Expression
gsummonply1.p	⊢ 𝑃 = (Poly1‘𝑅)
gsummonply1.b	⊢ 𝐵 = (Base‘𝑃)
gsummonply1.x	⊢ 𝑋 = (var1‘𝑅)
gsummonply1.e	⊢ ↑ = (.g‘(mulGrp‘𝑃))
gsummonply1.r	⊢ (𝜑 → 𝑅 ∈ Ring)
gsummonply1.k	⊢ 𝐾 = (Base‘𝑅)
gsummonply1.m	⊢ ∗ = ( ·𝑠 ‘𝑃)
gsummonply1.0	⊢ 0 = (0g‘𝑅)
gsummonply1.a	⊢ (𝜑 → ∀𝑘 ∈ ℕ0 𝐴 ∈ 𝐾)
gsummonply1.f	⊢ (𝜑 → (𝑘 ∈ ℕ0 ↦ 𝐴) finSupp 0 )
gsummonply1.l	⊢ (𝜑 → 𝐿 ∈ ℕ0)

Assertion

Ref	Expression
gsummoncoe1	⊢ (𝜑 → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ⦋𝐿 / 𝑘⦌𝐴)

Distinct variable groups:   𝐵,𝑘   𝑘,𝐾   𝜑,𝑘   ∗ ,𝑘   𝑘,𝐿   𝑃,𝑘   𝑅,𝑘   0 ,𝑘   ↑ ,𝑘

Allowed substitution hints:   𝐴(𝑘)   𝑋(𝑘)

Proof of Theorem gsummoncoe1

Dummy variables 𝑛 𝑠 𝑥 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		gsummonply1.f	. . 3 ⊢ (𝜑 → (𝑘 ∈ ℕ0 ↦ 𝐴) finSupp 0 )
2		gsummonply1.a	. . . . . . 7 ⊢ (𝜑 → ∀𝑘 ∈ ℕ0 𝐴 ∈ 𝐾)
3	2	r19.21bi 3210	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝐴 ∈ 𝐾)
4	3	fmpttd 6881	. . . . 5 ⊢ (𝜑 → (𝑘 ∈ ℕ0 ↦ 𝐴):ℕ0⟶𝐾)
5		gsummonply1.k	. . . . . . . 8 ⊢ 𝐾 = (Base‘𝑅)
6	5	fvexi 6686	. . . . . . 7 ⊢ 𝐾 ∈ V
7	6	a1i 11	. . . . . 6 ⊢ (𝜑 → 𝐾 ∈ V)
8		nn0ex 11906	. . . . . 6 ⊢ ℕ0 ∈ V
9		elmapg 8421	. . . . . 6 ⊢ ((𝐾 ∈ V ∧ ℕ0 ∈ V) → ((𝑘 ∈ ℕ0 ↦ 𝐴) ∈ (𝐾 ↑m ℕ0) ↔ (𝑘 ∈ ℕ0 ↦ 𝐴):ℕ0⟶𝐾))
10	7, 8, 9	sylancl 588	. . . . 5 ⊢ (𝜑 → ((𝑘 ∈ ℕ0 ↦ 𝐴) ∈ (𝐾 ↑m ℕ0) ↔ (𝑘 ∈ ℕ0 ↦ 𝐴):ℕ0⟶𝐾))
11	4, 10	mpbird 259	. . . 4 ⊢ (𝜑 → (𝑘 ∈ ℕ0 ↦ 𝐴) ∈ (𝐾 ↑m ℕ0))
12		gsummonply1.0	. . . . 5 ⊢ 0 = (0g‘𝑅)
13	12	fvexi 6686	. . . 4 ⊢ 0 ∈ V
14		fsuppmapnn0ub 13366	. . . 4 ⊢ (((𝑘 ∈ ℕ0 ↦ 𝐴) ∈ (𝐾 ↑m ℕ0) ∧ 0 ∈ V) → ((𝑘 ∈ ℕ0 ↦ 𝐴) finSupp 0 → ∃𝑠 ∈ ℕ0 ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 )))
15	11, 13, 14	sylancl 588	. . 3 ⊢ (𝜑 → ((𝑘 ∈ ℕ0 ↦ 𝐴) finSupp 0 → ∃𝑠 ∈ ℕ0 ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 )))
16	1, 15	mpd 15	. 2 ⊢ (𝜑 → ∃𝑠 ∈ ℕ0 ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ))
17		simpr 487	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → 𝑥 ∈ ℕ0)
18	2	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → ∀𝑘 ∈ ℕ0 𝐴 ∈ 𝐾)
19		rspcsbela 4389	. . . . . . . . . 10 ⊢ ((𝑥 ∈ ℕ0 ∧ ∀𝑘 ∈ ℕ0 𝐴 ∈ 𝐾) → ⦋𝑥 / 𝑘⦌𝐴 ∈ 𝐾)
20	17, 18, 19	syl2anc 586	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → ⦋𝑥 / 𝑘⦌𝐴 ∈ 𝐾)
21		eqid 2823	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ0 ↦ 𝐴) = (𝑘 ∈ ℕ0 ↦ 𝐴)
22	21	fvmpts 6773	. . . . . . . . 9 ⊢ ((𝑥 ∈ ℕ0 ∧ ⦋𝑥 / 𝑘⦌𝐴 ∈ 𝐾) → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = ⦋𝑥 / 𝑘⦌𝐴)
23	17, 20, 22	syl2anc 586	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = ⦋𝑥 / 𝑘⦌𝐴)
24	23	eqeq1d 2825	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → (((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ↔ ⦋𝑥 / 𝑘⦌𝐴 = 0 ))
25	24	imbi2d 343	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → ((𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ) ↔ (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )))
26	25	biimpd 231	. . . . 5 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑥 ∈ ℕ0) → ((𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ) → (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )))
27	26	ralimdva 3179	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ) → ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )))
28		gsummonply1.b	. . . . . . . . 9 ⊢ 𝐵 = (Base‘𝑃)
29		eqid 2823	. . . . . . . . 9 ⊢ (0g‘𝑃) = (0g‘𝑃)
30		gsummonply1.r	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ Ring)
31		gsummonply1.p	. . . . . . . . . . . 12 ⊢ 𝑃 = (Poly1‘𝑅)
32	31	ply1ring 20418	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ Ring)
33		ringcmn 19333	. . . . . . . . . . 11 ⊢ (𝑃 ∈ Ring → 𝑃 ∈ CMnd)
34	30, 32, 33	3syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝑃 ∈ CMnd)
35	34	ad2antrr 724	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → 𝑃 ∈ CMnd)
36	30	3ad2ant1 1129	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0 ∧ 𝐴 ∈ 𝐾) → 𝑅 ∈ Ring)
37		simp3 1134	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0 ∧ 𝐴 ∈ 𝐾) → 𝐴 ∈ 𝐾)
38		simp2 1133	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0 ∧ 𝐴 ∈ 𝐾) → 𝑘 ∈ ℕ0)
39		gsummonply1.x	. . . . . . . . . . . . . . 15 ⊢ 𝑋 = (var1‘𝑅)
40		gsummonply1.m	. . . . . . . . . . . . . . 15 ⊢ ∗ = ( ·𝑠 ‘𝑃)
41		eqid 2823	. . . . . . . . . . . . . . 15 ⊢ (mulGrp‘𝑃) = (mulGrp‘𝑃)
42		gsummonply1.e	. . . . . . . . . . . . . . 15 ⊢ ↑ = (.g‘(mulGrp‘𝑃))
43	5, 31, 39, 40, 41, 42, 28	ply1tmcl 20442	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ 𝐾 ∧ 𝑘 ∈ ℕ0) → (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
44	36, 37, 38, 43	syl3anc 1367	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0 ∧ 𝐴 ∈ 𝐾) → (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
45	44	3expia 1117	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → (𝐴 ∈ 𝐾 → (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵))
46	45	ralimdva 3179	. . . . . . . . . . 11 ⊢ (𝜑 → (∀𝑘 ∈ ℕ0 𝐴 ∈ 𝐾 → ∀𝑘 ∈ ℕ0 (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵))
47	2, 46	mpd 15	. . . . . . . . . 10 ⊢ (𝜑 → ∀𝑘 ∈ ℕ0 (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
48	47	ad2antrr 724	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → ∀𝑘 ∈ ℕ0 (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
49		simplr 767	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → 𝑠 ∈ ℕ0)
50		nfv 1915	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘 𝑠 < 𝑥
51		nfcsb1v 3909	. . . . . . . . . . . . . 14 ⊢ Ⅎ𝑘⦋𝑥 / 𝑘⦌𝐴
52	51	nfeq1 2995	. . . . . . . . . . . . 13 ⊢ Ⅎ𝑘⦋𝑥 / 𝑘⦌𝐴 = 0
53	50, 52	nfim 1897	. . . . . . . . . . . 12 ⊢ Ⅎ𝑘(𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )
54		nfv 1915	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥(𝑠 < 𝑘 → ⦋𝑘 / 𝑘⦌𝐴 = 0 )
55		breq2 5072	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑘 → (𝑠 < 𝑥 ↔ 𝑠 < 𝑘))
56		csbeq1 3888	. . . . . . . . . . . . . 14 ⊢ (𝑥 = 𝑘 → ⦋𝑥 / 𝑘⦌𝐴 = ⦋𝑘 / 𝑘⦌𝐴)
57	56	eqeq1d 2825	. . . . . . . . . . . . 13 ⊢ (𝑥 = 𝑘 → (⦋𝑥 / 𝑘⦌𝐴 = 0 ↔ ⦋𝑘 / 𝑘⦌𝐴 = 0 ))
58	55, 57	imbi12d 347	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑘 → ((𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) ↔ (𝑠 < 𝑘 → ⦋𝑘 / 𝑘⦌𝐴 = 0 )))
59	53, 54, 58	cbvralw 3443	. . . . . . . . . . 11 ⊢ (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) ↔ ∀𝑘 ∈ ℕ0 (𝑠 < 𝑘 → ⦋𝑘 / 𝑘⦌𝐴 = 0 ))
60		csbid 3898	. . . . . . . . . . . . . . 15 ⊢ ⦋𝑘 / 𝑘⦌𝐴 = 𝐴
61	60	eqeq1i 2828	. . . . . . . . . . . . . 14 ⊢ (⦋𝑘 / 𝑘⦌𝐴 = 0 ↔ 𝐴 = 0 )
62		oveq1 7165	. . . . . . . . . . . . . . . 16 ⊢ (𝐴 = 0 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = ( 0 ∗ (𝑘 ↑ 𝑋)))
63	31	ply1sca 20423	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑅 ∈ Ring → 𝑅 = (Scalar‘𝑃))
64	30, 63	syl 17	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝜑 → 𝑅 = (Scalar‘𝑃))
65	64	fveq2d 6676	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (0g‘𝑅) = (0g‘(Scalar‘𝑃)))
66	12, 65	syl5eq 2870	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 0 = (0g‘(Scalar‘𝑃)))
67	66	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → 0 = (0g‘(Scalar‘𝑃)))
68	67	oveq1d 7173	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → ( 0 ∗ (𝑘 ↑ 𝑋)) = ((0g‘(Scalar‘𝑃)) ∗ (𝑘 ↑ 𝑋)))
69	31	ply1lmod 20422	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑅 ∈ Ring → 𝑃 ∈ LMod)
70	30, 69	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝜑 → 𝑃 ∈ LMod)
71	70	ad2antrr 724	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → 𝑃 ∈ LMod)
72	41	ringmgp 19305	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑃 ∈ Ring → (mulGrp‘𝑃) ∈ Mnd)
73	30, 32, 72	3syl 18	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → (mulGrp‘𝑃) ∈ Mnd)
74	73	ad2antrr 724	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (mulGrp‘𝑃) ∈ Mnd)
75		simpr 487	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → 𝑘 ∈ ℕ0)
76		eqid 2823	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (Base‘𝑃) = (Base‘𝑃)
77	39, 31, 76	vr1cl 20387	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑅 ∈ Ring → 𝑋 ∈ (Base‘𝑃))
78	30, 77	syl 17	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝑋 ∈ (Base‘𝑃))
79	78	ad2antrr 724	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → 𝑋 ∈ (Base‘𝑃))
80	41, 76	mgpbas 19247	. . . . . . . . . . . . . . . . . . . 20 ⊢ (Base‘𝑃) = (Base‘(mulGrp‘𝑃))
81	80, 42	mulgnn0cl 18246	. . . . . . . . . . . . . . . . . . 19 ⊢ (((mulGrp‘𝑃) ∈ Mnd ∧ 𝑘 ∈ ℕ0 ∧ 𝑋 ∈ (Base‘𝑃)) → (𝑘 ↑ 𝑋) ∈ (Base‘𝑃))
82	74, 75, 79, 81	syl3anc 1367	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (𝑘 ↑ 𝑋) ∈ (Base‘𝑃))
83		eqid 2823	. . . . . . . . . . . . . . . . . . 19 ⊢ (Scalar‘𝑃) = (Scalar‘𝑃)
84		eqid 2823	. . . . . . . . . . . . . . . . . . 19 ⊢ (0g‘(Scalar‘𝑃)) = (0g‘(Scalar‘𝑃))
85	76, 83, 40, 84, 29	lmod0vs 19669	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑃 ∈ LMod ∧ (𝑘 ↑ 𝑋) ∈ (Base‘𝑃)) → ((0g‘(Scalar‘𝑃)) ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))
86	71, 82, 85	syl2anc 586	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → ((0g‘(Scalar‘𝑃)) ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))
87	68, 86	eqtrd 2858	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → ( 0 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))
88	62, 87	sylan9eqr 2880	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) ∧ 𝐴 = 0 ) → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))
89	88	ex 415	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (𝐴 = 0 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃)))
90	61, 89	syl5bi 244	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (⦋𝑘 / 𝑘⦌𝐴 = 0 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃)))
91	90	imim2d 57	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → ((𝑠 < 𝑘 → ⦋𝑘 / 𝑘⦌𝐴 = 0 ) → (𝑠 < 𝑘 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))))
92	91	ralimdva 3179	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (∀𝑘 ∈ ℕ0 (𝑠 < 𝑘 → ⦋𝑘 / 𝑘⦌𝐴 = 0 ) → ∀𝑘 ∈ ℕ0 (𝑠 < 𝑘 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))))
93	59, 92	syl5bi 244	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) → ∀𝑘 ∈ ℕ0 (𝑠 < 𝑘 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃))))
94	93	imp 409	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → ∀𝑘 ∈ ℕ0 (𝑠 < 𝑘 → (𝐴 ∗ (𝑘 ↑ 𝑋)) = (0g‘𝑃)))
95	28, 29, 35, 48, 49, 94	gsummptnn0fz 19108	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))) = (𝑃 Σg (𝑘 ∈ (0...𝑠) ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))
96	95	fveq2d 6676	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋))))) = (coe1‘(𝑃 Σg (𝑘 ∈ (0...𝑠) ↦ (𝐴 ∗ (𝑘 ↑ 𝑋))))))
97	96	fveq1d 6674	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ((coe1‘(𝑃 Σg (𝑘 ∈ (0...𝑠) ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿))
98	30	ad2antrr 724	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → 𝑅 ∈ Ring)
99		gsummonply1.l	. . . . . . . 8 ⊢ (𝜑 → 𝐿 ∈ ℕ0)
100	99	ad2antrr 724	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → 𝐿 ∈ ℕ0)
101		elfznn0 13003	. . . . . . . . . . 11 ⊢ (𝑘 ∈ (0...𝑠) → 𝑘 ∈ ℕ0)
102		simpll 765	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → 𝜑)
103	3	adantlr 713	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → 𝐴 ∈ 𝐾)
104	102, 75, 103	3jca 1124	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ ℕ0) → (𝜑 ∧ 𝑘 ∈ ℕ0 ∧ 𝐴 ∈ 𝐾))
105	101, 104	sylan2 594	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ (0...𝑠)) → (𝜑 ∧ 𝑘 ∈ ℕ0 ∧ 𝐴 ∈ 𝐾))
106	105, 44	syl 17	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ (0...𝑠)) → (𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
107	106	ralrimiva 3184	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → ∀𝑘 ∈ (0...𝑠)(𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
108	107	adantr 483	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → ∀𝑘 ∈ (0...𝑠)(𝐴 ∗ (𝑘 ↑ 𝑋)) ∈ 𝐵)
109		fzfid 13344	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (0...𝑠) ∈ Fin)
110	31, 28, 98, 100, 108, 109	coe1fzgsumd 20472	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → ((coe1‘(𝑃 Σg (𝑘 ∈ (0...𝑠) ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ ((coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋)))‘𝐿))))
111		nfv 1915	. . . . . . . . . 10 ⊢ Ⅎ𝑘(𝜑 ∧ 𝑠 ∈ ℕ0)
112		nfcv 2979	. . . . . . . . . . 11 ⊢ Ⅎ𝑘ℕ0
113	112, 53	nfralw 3227	. . . . . . . . . 10 ⊢ Ⅎ𝑘∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )
114	111, 113	nfan 1900	. . . . . . . . 9 ⊢ Ⅎ𝑘((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ))
115	30	ad3antrrr 728	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → 𝑅 ∈ Ring)
116	3	expcom 416	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ0 → (𝜑 → 𝐴 ∈ 𝐾))
117	116, 101	syl11 33	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑘 ∈ (0...𝑠) → 𝐴 ∈ 𝐾))
118	117	ad2antrr 724	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑘 ∈ (0...𝑠) → 𝐴 ∈ 𝐾))
119	118	imp 409	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → 𝐴 ∈ 𝐾)
120	101	adantl 484	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → 𝑘 ∈ ℕ0)
121	12, 5, 31, 39, 40, 41, 42	coe1tm 20443	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Ring ∧ 𝐴 ∈ 𝐾 ∧ 𝑘 ∈ ℕ0) → (coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋))) = (𝑛 ∈ ℕ0 ↦ if(𝑛 = 𝑘, 𝐴, 0 )))
122	115, 119, 120, 121	syl3anc 1367	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → (coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋))) = (𝑛 ∈ ℕ0 ↦ if(𝑛 = 𝑘, 𝐴, 0 )))
123		eqeq1 2827	. . . . . . . . . . . 12 ⊢ (𝑛 = 𝐿 → (𝑛 = 𝑘 ↔ 𝐿 = 𝑘))
124	123	ifbid 4491	. . . . . . . . . . 11 ⊢ (𝑛 = 𝐿 → if(𝑛 = 𝑘, 𝐴, 0 ) = if(𝐿 = 𝑘, 𝐴, 0 ))
125	124	adantl 484	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) ∧ 𝑛 = 𝐿) → if(𝑛 = 𝑘, 𝐴, 0 ) = if(𝐿 = 𝑘, 𝐴, 0 ))
126	99	ad3antrrr 728	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → 𝐿 ∈ ℕ0)
127	5, 12	ring0cl 19321	. . . . . . . . . . . . 13 ⊢ (𝑅 ∈ Ring → 0 ∈ 𝐾)
128	30, 127	syl 17	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 ∈ 𝐾)
129	128	ad3antrrr 728	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → 0 ∈ 𝐾)
130	119, 129	ifcld 4514	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → if(𝐿 = 𝑘, 𝐴, 0 ) ∈ 𝐾)
131	122, 125, 126, 130	fvmptd 6777	. . . . . . . . 9 ⊢ ((((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) ∧ 𝑘 ∈ (0...𝑠)) → ((coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋)))‘𝐿) = if(𝐿 = 𝑘, 𝐴, 0 ))
132	114, 131	mpteq2da 5162	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑘 ∈ (0...𝑠) ↦ ((coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋)))‘𝐿)) = (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 )))
133	132	oveq2d 7174	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ ((coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋)))‘𝐿))) = (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))))
134		breq2 5072	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐿 → (𝑠 < 𝑥 ↔ 𝑠 < 𝐿))
135		csbeq1 3888	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 = 𝐿 → ⦋𝑥 / 𝑘⦌𝐴 = ⦋𝐿 / 𝑘⦌𝐴)
136	135	eqeq1d 2825	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 = 𝐿 → (⦋𝑥 / 𝑘⦌𝐴 = 0 ↔ ⦋𝐿 / 𝑘⦌𝐴 = 0 ))
137	134, 136	imbi12d 347	. . . . . . . . . . . . . . 15 ⊢ (𝑥 = 𝐿 → ((𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) ↔ (𝑠 < 𝐿 → ⦋𝐿 / 𝑘⦌𝐴 = 0 )))
138	137	rspcva 3623	. . . . . . . . . . . . . 14 ⊢ ((𝐿 ∈ ℕ0 ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑠 < 𝐿 → ⦋𝐿 / 𝑘⦌𝐴 = 0 ))
139		nfv 1915	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ Ⅎ𝑘(𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿))
140		nfcsb1v 3909	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ Ⅎ𝑘⦋𝐿 / 𝑘⦌𝐴
141	140	nfeq1 2995	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ Ⅎ𝑘⦋𝐿 / 𝑘⦌𝐴 = 0
142	139, 141	nfan 1900	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ Ⅎ𝑘((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 )
143		elfz2nn0 13001	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ (𝑘 ∈ (0...𝑠) ↔ (𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0 ∧ 𝑘 ≤ 𝑠))
144		nn0re 11909	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝑘 ∈ ℕ0 → 𝑘 ∈ ℝ)
145	144	ad2antrr 724	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → 𝑘 ∈ ℝ)
146		nn0re 11909	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (𝑠 ∈ ℕ0 → 𝑠 ∈ ℝ)
147	146	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) → 𝑠 ∈ ℝ)
148	147	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → 𝑠 ∈ ℝ)
149		nn0re 11909	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ (𝐿 ∈ ℕ0 → 𝐿 ∈ ℝ)
150	149	adantl 484	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → 𝐿 ∈ ℝ)
151		lelttr 10733	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((𝑘 ∈ ℝ ∧ 𝑠 ∈ ℝ ∧ 𝐿 ∈ ℝ) → ((𝑘 ≤ 𝑠 ∧ 𝑠 < 𝐿) → 𝑘 < 𝐿))
152	145, 148, 150, 151	syl3anc 1367	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → ((𝑘 ≤ 𝑠 ∧ 𝑠 < 𝐿) → 𝑘 < 𝐿))
153		animorr 975	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) ∧ 𝑘 < 𝐿) → (𝐿 < 𝑘 ∨ 𝑘 < 𝐿))
154		df-ne 3019	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ (𝐿 ≠ 𝑘 ↔ ¬ 𝐿 = 𝑘)
155	144	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ ((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) → 𝑘 ∈ ℝ)
156		lttri2 10725	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 43 ⊢ ((𝐿 ∈ ℝ ∧ 𝑘 ∈ ℝ) → (𝐿 ≠ 𝑘 ↔ (𝐿 < 𝑘 ∨ 𝑘 < 𝐿)))
157	149, 155, 156	syl2anr 598	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 42 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → (𝐿 ≠ 𝑘 ↔ (𝐿 < 𝑘 ∨ 𝑘 < 𝐿)))
158	157	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 41 ⊢ ((((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) ∧ 𝑘 < 𝐿) → (𝐿 ≠ 𝑘 ↔ (𝐿 < 𝑘 ∨ 𝑘 < 𝐿)))
159	154, 158	syl5bbr 287	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 40 ⊢ ((((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) ∧ 𝑘 < 𝐿) → (¬ 𝐿 = 𝑘 ↔ (𝐿 < 𝑘 ∨ 𝑘 < 𝐿)))
160	153, 159	mpbird 259	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39 ⊢ ((((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) ∧ 𝑘 < 𝐿) → ¬ 𝐿 = 𝑘)
161	160	ex 415	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → (𝑘 < 𝐿 → ¬ 𝐿 = 𝑘))
162	152, 161	syld 47	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37 ⊢ (((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ∈ ℕ0) → ((𝑘 ≤ 𝑠 ∧ 𝑠 < 𝐿) → ¬ 𝐿 = 𝑘))
163	162	exp4b 433	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36 ⊢ ((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0) → (𝐿 ∈ ℕ0 → (𝑘 ≤ 𝑠 → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘))))
164	163	expimpd 456	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35 ⊢ (𝑘 ∈ ℕ0 → ((𝑠 ∈ ℕ0 ∧ 𝐿 ∈ ℕ0) → (𝑘 ≤ 𝑠 → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘))))
165	164	com23 86	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ⊢ (𝑘 ∈ ℕ0 → (𝑘 ≤ 𝑠 → ((𝑠 ∈ ℕ0 ∧ 𝐿 ∈ ℕ0) → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘))))
166	165	imp 409	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 ⊢ ((𝑘 ∈ ℕ0 ∧ 𝑘 ≤ 𝑠) → ((𝑠 ∈ ℕ0 ∧ 𝐿 ∈ ℕ0) → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘)))
167	166	3adant2 1127	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ⊢ ((𝑘 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0 ∧ 𝑘 ≤ 𝑠) → ((𝑠 ∈ ℕ0 ∧ 𝐿 ∈ ℕ0) → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘)))
168	143, 167	sylbi 219	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ⊢ (𝑘 ∈ (0...𝑠) → ((𝑠 ∈ ℕ0 ∧ 𝐿 ∈ ℕ0) → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘)))
169	168	expd 418	. . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ⊢ (𝑘 ∈ (0...𝑠) → (𝑠 ∈ ℕ0 → (𝐿 ∈ ℕ0 → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘))))
170	99, 169	syl7 74	. . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ⊢ (𝑘 ∈ (0...𝑠) → (𝑠 ∈ ℕ0 → (𝜑 → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘))))
171	170	com12 32	. . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ⊢ (𝑠 ∈ ℕ0 → (𝑘 ∈ (0...𝑠) → (𝜑 → (𝑠 < 𝐿 → ¬ 𝐿 = 𝑘))))
172	171	com24 95	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ (𝑠 ∈ ℕ0 → (𝑠 < 𝐿 → (𝜑 → (𝑘 ∈ (0...𝑠) → ¬ 𝐿 = 𝑘))))
173	172	imp 409	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ ((𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿) → (𝜑 → (𝑘 ∈ (0...𝑠) → ¬ 𝐿 = 𝑘)))
174	173	impcom 410	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ ((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) → (𝑘 ∈ (0...𝑠) → ¬ 𝐿 = 𝑘))
175	174	adantr 483	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑘 ∈ (0...𝑠) → ¬ 𝐿 = 𝑘))
176	175	imp 409	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) ∧ 𝑘 ∈ (0...𝑠)) → ¬ 𝐿 = 𝑘)
177	176	iffalsed 4480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) ∧ 𝑘 ∈ (0...𝑠)) → if(𝐿 = 𝑘, 𝐴, 0 ) = 0 )
178	142, 177	mpteq2da 5162	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 )) = (𝑘 ∈ (0...𝑠) ↦ 0 ))
179	178	oveq2d 7174	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ 0 )))
180		ringmnd 19308	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑅 ∈ Ring → 𝑅 ∈ Mnd)
181	30, 180	syl 17	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝜑 → 𝑅 ∈ Mnd)
182	181	adantr 483	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) → 𝑅 ∈ Mnd)
183		ovex 7191	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0...𝑠) ∈ V
184	12	gsumz 18002	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑅 ∈ Mnd ∧ (0...𝑠) ∈ V) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ 0 )) = 0 )
185	182, 183, 184	sylancl 588	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ 0 )) = 0 )
186	185	adantr 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ 0 )) = 0 )
187		id 22	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (⦋𝐿 / 𝑘⦌𝐴 = 0 → ⦋𝐿 / 𝑘⦌𝐴 = 0 )
188	187	eqcomd 2829	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (⦋𝐿 / 𝑘⦌𝐴 = 0 → 0 = ⦋𝐿 / 𝑘⦌𝐴)
189	188	adantl 484	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → 0 = ⦋𝐿 / 𝑘⦌𝐴)
190	179, 186, 189	3eqtrd 2862	. . . . . . . . . . . . . . . . . . 19 ⊢ (((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) ∧ ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)
191	190	ex 415	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ (𝑠 ∈ ℕ0 ∧ 𝑠 < 𝐿)) → (⦋𝐿 / 𝑘⦌𝐴 = 0 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))
192	191	expr 459	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (𝑠 < 𝐿 → (⦋𝐿 / 𝑘⦌𝐴 = 0 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)))
193	192	a2d 29	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → ((𝑠 < 𝐿 → ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)))
194	193	ex 415	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑠 ∈ ℕ0 → ((𝑠 < 𝐿 → ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))))
195	194	com13 88	. . . . . . . . . . . . . 14 ⊢ ((𝑠 < 𝐿 → ⦋𝐿 / 𝑘⦌𝐴 = 0 ) → (𝑠 ∈ ℕ0 → (𝜑 → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))))
196	138, 195	syl 17	. . . . . . . . . . . . 13 ⊢ ((𝐿 ∈ ℕ0 ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑠 ∈ ℕ0 → (𝜑 → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))))
197	196	ex 415	. . . . . . . . . . . 12 ⊢ (𝐿 ∈ ℕ0 → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) → (𝑠 ∈ ℕ0 → (𝜑 → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)))))
198	197	com24 95	. . . . . . . . . . 11 ⊢ (𝐿 ∈ ℕ0 → (𝜑 → (𝑠 ∈ ℕ0 → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)))))
199	99, 198	mpcom 38	. . . . . . . . . 10 ⊢ (𝜑 → (𝑠 ∈ ℕ0 → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))))
200	199	imp31 420	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑠 < 𝐿 → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))
201	200	com12 32	. . . . . . . 8 ⊢ (𝑠 < 𝐿 → (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))
202		pm3.2 472	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (¬ 𝑠 < 𝐿 → ((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿)))
203	202	adantr 483	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (¬ 𝑠 < 𝐿 → ((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿)))
204	181	ad2antrr 724	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿) → 𝑅 ∈ Mnd)
205	183	a1i 11	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿) → (0...𝑠) ∈ V)
206	99	nn0red 11959	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐿 ∈ ℝ)
207		lenlt 10721	. . . . . . . . . . . . 13 ⊢ ((𝐿 ∈ ℝ ∧ 𝑠 ∈ ℝ) → (𝐿 ≤ 𝑠 ↔ ¬ 𝑠 < 𝐿))
208	206, 146, 207	syl2an 597	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (𝐿 ≤ 𝑠 ↔ ¬ 𝑠 < 𝐿))
209	99	ad2antrr 724	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ≤ 𝑠) → 𝐿 ∈ ℕ0)
210		simplr 767	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ≤ 𝑠) → 𝑠 ∈ ℕ0)
211		simpr 487	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ≤ 𝑠) → 𝐿 ≤ 𝑠)
212		elfz2nn0 13001	. . . . . . . . . . . . . 14 ⊢ (𝐿 ∈ (0...𝑠) ↔ (𝐿 ∈ ℕ0 ∧ 𝑠 ∈ ℕ0 ∧ 𝐿 ≤ 𝑠))
213	209, 210, 211, 212	syl3anbrc 1339	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝐿 ≤ 𝑠) → 𝐿 ∈ (0...𝑠))
214	213	ex 415	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (𝐿 ≤ 𝑠 → 𝐿 ∈ (0...𝑠)))
215	208, 214	sylbird 262	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (¬ 𝑠 < 𝐿 → 𝐿 ∈ (0...𝑠)))
216	215	imp 409	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿) → 𝐿 ∈ (0...𝑠))
217		eqcom 2830	. . . . . . . . . . . 12 ⊢ (𝐿 = 𝑘 ↔ 𝑘 = 𝐿)
218		ifbi 4490	. . . . . . . . . . . 12 ⊢ ((𝐿 = 𝑘 ↔ 𝑘 = 𝐿) → if(𝐿 = 𝑘, 𝐴, 0 ) = if(𝑘 = 𝐿, 𝐴, 0 ))
219	217, 218	ax-mp 5	. . . . . . . . . . 11 ⊢ if(𝐿 = 𝑘, 𝐴, 0 ) = if(𝑘 = 𝐿, 𝐴, 0 )
220	219	mpteq2i 5160	. . . . . . . . . 10 ⊢ (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 )) = (𝑘 ∈ (0...𝑠) ↦ if(𝑘 = 𝐿, 𝐴, 0 ))
221	3, 5	eleqtrdi 2925	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ0) → 𝐴 ∈ (Base‘𝑅))
222	221	ex 415	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑘 ∈ ℕ0 → 𝐴 ∈ (Base‘𝑅)))
223	222	adantr 483	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (𝑘 ∈ ℕ0 → 𝐴 ∈ (Base‘𝑅)))
224	223, 101	impel 508	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ 𝑘 ∈ (0...𝑠)) → 𝐴 ∈ (Base‘𝑅))
225	224	ralrimiva 3184	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → ∀𝑘 ∈ (0...𝑠)𝐴 ∈ (Base‘𝑅))
226	225	adantr 483	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿) → ∀𝑘 ∈ (0...𝑠)𝐴 ∈ (Base‘𝑅))
227	12, 204, 205, 216, 220, 226	gsummpt1n0 19087	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ¬ 𝑠 < 𝐿) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)
228	203, 227	syl6com 37	. . . . . . . 8 ⊢ (¬ 𝑠 < 𝐿 → (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴))
229	201, 228	pm2.61i 184	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ if(𝐿 = 𝑘, 𝐴, 0 ))) = ⦋𝐿 / 𝑘⦌𝐴)
230	133, 229	eqtrd 2858	. . . . . 6 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → (𝑅 Σg (𝑘 ∈ (0...𝑠) ↦ ((coe1‘(𝐴 ∗ (𝑘 ↑ 𝑋)))‘𝐿))) = ⦋𝐿 / 𝑘⦌𝐴)
231	97, 110, 230	3eqtrd 2862	. . . . 5 ⊢ (((𝜑 ∧ 𝑠 ∈ ℕ0) ∧ ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 )) → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ⦋𝐿 / 𝑘⦌𝐴)
232	231	ex 415	. . . 4 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ⦋𝑥 / 𝑘⦌𝐴 = 0 ) → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ⦋𝐿 / 𝑘⦌𝐴))
233	27, 232	syld 47	. . 3 ⊢ ((𝜑 ∧ 𝑠 ∈ ℕ0) → (∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ) → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ⦋𝐿 / 𝑘⦌𝐴))
234	233	rexlimdva 3286	. 2 ⊢ (𝜑 → (∃𝑠 ∈ ℕ0 ∀𝑥 ∈ ℕ0 (𝑠 < 𝑥 → ((𝑘 ∈ ℕ0 ↦ 𝐴)‘𝑥) = 0 ) → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ⦋𝐿 / 𝑘⦌𝐴))
235	16, 234	mpd 15	1 ⊢ (𝜑 → ((coe1‘(𝑃 Σg (𝑘 ∈ ℕ0 ↦ (𝐴 ∗ (𝑘 ↑ 𝑋)))))‘𝐿) = ⦋𝐿 / 𝑘⦌𝐴)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∨ wo 843   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114   ≠ wne 3018  ∀wral 3140  ∃wrex 3141  Vcvv 3496  ⦋csb 3885  ifcif 4469   class class class wbr 5068   ↦ cmpt 5148  ⟶wf 6353  ‘cfv 6357  (class class class)co 7158   ↑_m cmap 8408   finSupp cfsupp 8835  ℝcr 10538  0cc0 10539   < clt 10677   ≤ cle 10678  ℕ₀cn0 11900  ...cfz 12895  Basecbs 16485  Scalarcsca 16570   ·_𝑠 cvsca 16571  0_gc0g 16715   Σ_g cgsu 16716  Mndcmnd 17913  ._gcmg 18226  CMndccmn 18908  mulGrpcmgp 19241  Ringcrg 19299  LModclmod 19636  var₁cv1 20346  Poly₁cpl1 20347  coe₁cco1 20348

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-iin 4924  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-se 5517  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-isom 6366  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-of 7411  df-ofr 7412  df-om 7583  df-1st 7691  df-2nd 7692  df-supp 7833  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-2o 8105  df-oadd 8108  df-er 8291  df-map 8410  df-pm 8411  df-ixp 8464  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-fsupp 8836  df-oi 8976  df-card 9370  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-7 11708  df-8 11709  df-9 11710  df-n0 11901  df-z 11985  df-dec 12102  df-uz 12247  df-fz 12896  df-fzo 13037  df-seq 13373  df-hash 13694  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-ress 16493  df-plusg 16580  df-mulr 16581  df-sca 16583  df-vsca 16584  df-tset 16586  df-ple 16587  df-0g 16717  df-gsum 16718  df-mre 16859  df-mrc 16860  df-acs 16862  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-mhm 17958  df-submnd 17959  df-grp 18108  df-minusg 18109  df-sbg 18110  df-mulg 18227  df-subg 18278  df-ghm 18358  df-cntz 18449  df-cmn 18910  df-abl 18911  df-mgp 19242  df-ur 19254  df-ring 19301  df-subrg 19535  df-lmod 19638  df-lss 19706  df-psr 20138  df-mvr 20139  df-mpl 20140  df-opsr 20142  df-psr1 20350  df-vr1 20351  df-ply1 20352  df-coe1 20353

This theorem is referenced by:  gsumply1eq  20475  pm2mpf1lem  21404  pm2mpcoe1  21410  pm2mpmhmlem2  21429  cayleyhamilton1  21502  ply1mulgsum  44451