MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  psdpw Structured version   Visualization version   GIF version

Theorem psdpw 22136
Description: Power rule for partial derivative of power series. (Contributed by SN, 25-Apr-2025.)
Hypotheses
Ref Expression
psdpw.s 𝑆 = (𝐼 mPwSer 𝑅)
psdpw.b 𝐵 = (Base‘𝑆)
psdpw.g · = (.g𝑆)
psdpw.t = (.r𝑆)
psdpw.m 𝑀 = (mulGrp‘𝑆)
psdpw.e = (.g𝑀)
psdpw.r (𝜑𝑅 ∈ CRing)
psdpw.x (𝜑𝑋𝐼)
psdpw.f (𝜑𝐹𝐵)
psdpw.n (𝜑𝑁 ∈ ℕ)
Assertion
Ref Expression
psdpw (𝜑 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑁 𝐹)) = ((𝑁 · ((𝑁 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))

Proof of Theorem psdpw
Dummy variables 𝑚 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 psdpw.n . 2 (𝜑𝑁 ∈ ℕ)
2 fvoveq1 7390 . . . 4 (𝑛 = 1 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘(1 𝐹)))
3 id 22 . . . . . 6 (𝑛 = 1 → 𝑛 = 1)
4 oveq1 7374 . . . . . . . 8 (𝑛 = 1 → (𝑛 − 1) = (1 − 1))
5 1m1e0 12253 . . . . . . . 8 (1 − 1) = 0
64, 5eqtrdi 2788 . . . . . . 7 (𝑛 = 1 → (𝑛 − 1) = 0)
76oveq1d 7382 . . . . . 6 (𝑛 = 1 → ((𝑛 − 1) 𝐹) = (0 𝐹))
83, 7oveq12d 7385 . . . . 5 (𝑛 = 1 → (𝑛 · ((𝑛 − 1) 𝐹)) = (1 · (0 𝐹)))
98oveq1d 7382 . . . 4 (𝑛 = 1 → ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = ((1 · (0 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
102, 9eqeq12d 2753 . . 3 (𝑛 = 1 → ((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) ↔ (((𝐼 mPSDer 𝑅)‘𝑋)‘(1 𝐹)) = ((1 · (0 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
11 fvoveq1 7390 . . . 4 (𝑛 = 𝑚 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)))
12 id 22 . . . . . 6 (𝑛 = 𝑚𝑛 = 𝑚)
13 oveq1 7374 . . . . . . 7 (𝑛 = 𝑚 → (𝑛 − 1) = (𝑚 − 1))
1413oveq1d 7382 . . . . . 6 (𝑛 = 𝑚 → ((𝑛 − 1) 𝐹) = ((𝑚 − 1) 𝐹))
1512, 14oveq12d 7385 . . . . 5 (𝑛 = 𝑚 → (𝑛 · ((𝑛 − 1) 𝐹)) = (𝑚 · ((𝑚 − 1) 𝐹)))
1615oveq1d 7382 . . . 4 (𝑛 = 𝑚 → ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
1711, 16eqeq12d 2753 . . 3 (𝑛 = 𝑚 → ((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) ↔ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
18 fvoveq1 7390 . . . 4 (𝑛 = (𝑚 + 1) → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 + 1) 𝐹)))
19 id 22 . . . . . 6 (𝑛 = (𝑚 + 1) → 𝑛 = (𝑚 + 1))
20 oveq1 7374 . . . . . . 7 (𝑛 = (𝑚 + 1) → (𝑛 − 1) = ((𝑚 + 1) − 1))
2120oveq1d 7382 . . . . . 6 (𝑛 = (𝑚 + 1) → ((𝑛 − 1) 𝐹) = (((𝑚 + 1) − 1) 𝐹))
2219, 21oveq12d 7385 . . . . 5 (𝑛 = (𝑚 + 1) → (𝑛 · ((𝑛 − 1) 𝐹)) = ((𝑚 + 1) · (((𝑚 + 1) − 1) 𝐹)))
2322oveq1d 7382 . . . 4 (𝑛 = (𝑚 + 1) → ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝑚 + 1) · (((𝑚 + 1) − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
2418, 23eqeq12d 2753 . . 3 (𝑛 = (𝑚 + 1) → ((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) ↔ (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 + 1) 𝐹)) = (((𝑚 + 1) · (((𝑚 + 1) − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
25 fvoveq1 7390 . . . 4 (𝑛 = 𝑁 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑁 𝐹)))
26 id 22 . . . . . 6 (𝑛 = 𝑁𝑛 = 𝑁)
27 oveq1 7374 . . . . . . 7 (𝑛 = 𝑁 → (𝑛 − 1) = (𝑁 − 1))
2827oveq1d 7382 . . . . . 6 (𝑛 = 𝑁 → ((𝑛 − 1) 𝐹) = ((𝑁 − 1) 𝐹))
2926, 28oveq12d 7385 . . . . 5 (𝑛 = 𝑁 → (𝑛 · ((𝑛 − 1) 𝐹)) = (𝑁 · ((𝑁 − 1) 𝐹)))
3029oveq1d 7382 . . . 4 (𝑛 = 𝑁 → ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = ((𝑁 · ((𝑁 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
3125, 30eqeq12d 2753 . . 3 (𝑛 = 𝑁 → ((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑛 𝐹)) = ((𝑛 · ((𝑛 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) ↔ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑁 𝐹)) = ((𝑁 · ((𝑁 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
32 psdpw.b . . . . 5 𝐵 = (Base‘𝑆)
33 psdpw.t . . . . 5 = (.r𝑆)
34 eqid 2737 . . . . 5 (1r𝑆) = (1r𝑆)
35 psdpw.s . . . . . . 7 𝑆 = (𝐼 mPwSer 𝑅)
36 psdpw.f . . . . . . . . 9 (𝜑𝐹𝐵)
37 reldmpsr 21894 . . . . . . . . . 10 Rel dom mPwSer
3837, 35, 32elbasov 17186 . . . . . . . . 9 (𝐹𝐵 → (𝐼 ∈ V ∧ 𝑅 ∈ V))
3936, 38syl 17 . . . . . . . 8 (𝜑 → (𝐼 ∈ V ∧ 𝑅 ∈ V))
4039simpld 494 . . . . . . 7 (𝜑𝐼 ∈ V)
41 psdpw.r . . . . . . 7 (𝜑𝑅 ∈ CRing)
4235, 40, 41psrcrng 21950 . . . . . 6 (𝜑𝑆 ∈ CRing)
4342crngringd 20227 . . . . 5 (𝜑𝑆 ∈ Ring)
4441crnggrpd 20228 . . . . . . 7 (𝜑𝑅 ∈ Grp)
4544grpmgmd 18937 . . . . . 6 (𝜑𝑅 ∈ Mgm)
46 psdpw.x . . . . . 6 (𝜑𝑋𝐼)
4735, 32, 45, 46, 36psdcl 22127 . . . . 5 (𝜑 → (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹) ∈ 𝐵)
4832, 33, 34, 43, 47ringlidmd 20253 . . . 4 (𝜑 → ((1r𝑆) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))
49 psdpw.m . . . . . . . . . 10 𝑀 = (mulGrp‘𝑆)
5049, 32mgpbas 20126 . . . . . . . . 9 𝐵 = (Base‘𝑀)
5149, 34ringidval 20164 . . . . . . . . 9 (1r𝑆) = (0g𝑀)
52 psdpw.e . . . . . . . . 9 = (.g𝑀)
5350, 51, 52mulg0 19050 . . . . . . . 8 (𝐹𝐵 → (0 𝐹) = (1r𝑆))
5436, 53syl 17 . . . . . . 7 (𝜑 → (0 𝐹) = (1r𝑆))
5554oveq2d 7383 . . . . . 6 (𝜑 → (1 · (0 𝐹)) = (1 · (1r𝑆)))
5632, 34, 43ringidcld 20247 . . . . . . 7 (𝜑 → (1r𝑆) ∈ 𝐵)
57 psdpw.g . . . . . . . 8 · = (.g𝑆)
5832, 57mulg1 19057 . . . . . . 7 ((1r𝑆) ∈ 𝐵 → (1 · (1r𝑆)) = (1r𝑆))
5956, 58syl 17 . . . . . 6 (𝜑 → (1 · (1r𝑆)) = (1r𝑆))
6055, 59eqtrd 2772 . . . . 5 (𝜑 → (1 · (0 𝐹)) = (1r𝑆))
6160oveq1d 7382 . . . 4 (𝜑 → ((1 · (0 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = ((1r𝑆) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
6250, 52mulg1 19057 . . . . . 6 (𝐹𝐵 → (1 𝐹) = 𝐹)
6336, 62syl 17 . . . . 5 (𝜑 → (1 𝐹) = 𝐹)
6463fveq2d 6845 . . . 4 (𝜑 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(1 𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))
6548, 61, 643eqtr4rd 2783 . . 3 (𝜑 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(1 𝐹)) = ((1 · (0 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
66 simpr 484 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
6766oveq1d 7382 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → ((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) 𝐹) = (((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) 𝐹))
6842adantr 480 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → 𝑆 ∈ CRing)
6942crnggrpd 20228 . . . . . . . . . . 11 (𝜑𝑆 ∈ Grp)
7069adantr 480 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → 𝑆 ∈ Grp)
71 simpr 484 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℕ)
7271nnzd 12550 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℤ)
7343adantr 480 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → 𝑆 ∈ Ring)
7449ringmgp 20220 . . . . . . . . . . . 12 (𝑆 ∈ Ring → 𝑀 ∈ Mnd)
7573, 74syl 17 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → 𝑀 ∈ Mnd)
76 nnm1nn0 12478 . . . . . . . . . . . 12 (𝑚 ∈ ℕ → (𝑚 − 1) ∈ ℕ0)
7776adantl 481 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (𝑚 − 1) ∈ ℕ0)
7836adantr 480 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → 𝐹𝐵)
7950, 52, 75, 77, 78mulgnn0cld 19071 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ((𝑚 − 1) 𝐹) ∈ 𝐵)
8032, 57, 70, 72, 79mulgcld 19072 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (𝑚 · ((𝑚 − 1) 𝐹)) ∈ 𝐵)
8147adantr 480 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹) ∈ 𝐵)
8232, 33, 68, 80, 81, 78crng32d 20240 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → (((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) 𝐹) = (((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
8382adantr 480 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) 𝐹) = (((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
8432, 57, 33mulgass2 20290 . . . . . . . . . . 11 ((𝑆 ∈ Ring ∧ (𝑚 ∈ ℤ ∧ ((𝑚 − 1) 𝐹) ∈ 𝐵𝐹𝐵)) → ((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) = (𝑚 · (((𝑚 − 1) 𝐹) 𝐹)))
8573, 72, 79, 78, 84syl13anc 1375 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → ((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) = (𝑚 · (((𝑚 − 1) 𝐹) 𝐹)))
8649, 33mgpplusg 20125 . . . . . . . . . . . . . 14 = (+g𝑀)
8750, 52, 86mulgnn0p1 19061 . . . . . . . . . . . . 13 ((𝑀 ∈ Mnd ∧ (𝑚 − 1) ∈ ℕ0𝐹𝐵) → (((𝑚 − 1) + 1) 𝐹) = (((𝑚 − 1) 𝐹) 𝐹))
8875, 77, 78, 87syl3anc 1374 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (((𝑚 − 1) + 1) 𝐹) = (((𝑚 − 1) 𝐹) 𝐹))
8971nncnd 12190 . . . . . . . . . . . . . 14 ((𝜑𝑚 ∈ ℕ) → 𝑚 ∈ ℂ)
90 npcan1 11575 . . . . . . . . . . . . . 14 (𝑚 ∈ ℂ → ((𝑚 − 1) + 1) = 𝑚)
9189, 90syl 17 . . . . . . . . . . . . 13 ((𝜑𝑚 ∈ ℕ) → ((𝑚 − 1) + 1) = 𝑚)
9291oveq1d 7382 . . . . . . . . . . . 12 ((𝜑𝑚 ∈ ℕ) → (((𝑚 − 1) + 1) 𝐹) = (𝑚 𝐹))
9388, 92eqtr3d 2774 . . . . . . . . . . 11 ((𝜑𝑚 ∈ ℕ) → (((𝑚 − 1) 𝐹) 𝐹) = (𝑚 𝐹))
9493oveq2d 7383 . . . . . . . . . 10 ((𝜑𝑚 ∈ ℕ) → (𝑚 · (((𝑚 − 1) 𝐹) 𝐹)) = (𝑚 · (𝑚 𝐹)))
9585, 94eqtrd 2772 . . . . . . . . 9 ((𝜑𝑚 ∈ ℕ) → ((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) = (𝑚 · (𝑚 𝐹)))
9695oveq1d 7382 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → (((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = ((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
9796adantr 480 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝑚 · ((𝑚 − 1) 𝐹)) 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = ((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
9867, 83, 973eqtrd 2776 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → ((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) 𝐹) = ((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
9998oveq1d 7382 . . . . 5 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) 𝐹)(+g𝑆)((𝑚 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) = (((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))(+g𝑆)((𝑚 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
100 eqid 2737 . . . . . 6 (+g𝑆) = (+g𝑆)
10141ad2antrr 727 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → 𝑅 ∈ CRing)
10246ad2antrr 727 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → 𝑋𝐼)
10343, 74syl 17 . . . . . . . . . 10 (𝜑𝑀 ∈ Mnd)
104 mndmgm 18709 . . . . . . . . . 10 (𝑀 ∈ Mnd → 𝑀 ∈ Mgm)
105103, 104syl 17 . . . . . . . . 9 (𝜑𝑀 ∈ Mgm)
106105adantr 480 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → 𝑀 ∈ Mgm)
10750, 52mulgnncl 19065 . . . . . . . 8 ((𝑀 ∈ Mgm ∧ 𝑚 ∈ ℕ ∧ 𝐹𝐵) → (𝑚 𝐹) ∈ 𝐵)
108106, 71, 78, 107syl3anc 1374 . . . . . . 7 ((𝜑𝑚 ∈ ℕ) → (𝑚 𝐹) ∈ 𝐵)
109108adantr 480 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (𝑚 𝐹) ∈ 𝐵)
11036ad2antrr 727 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → 𝐹𝐵)
11135, 32, 100, 33, 101, 102, 109, 110psdmul 22132 . . . . 5 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 𝐹) 𝐹)) = (((((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) 𝐹)(+g𝑆)((𝑚 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
11232, 57, 100mulgnnp1 19058 . . . . . . . . 9 ((𝑚 ∈ ℕ ∧ (𝑚 𝐹) ∈ 𝐵) → ((𝑚 + 1) · (𝑚 𝐹)) = ((𝑚 · (𝑚 𝐹))(+g𝑆)(𝑚 𝐹)))
11371, 108, 112syl2anc 585 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → ((𝑚 + 1) · (𝑚 𝐹)) = ((𝑚 · (𝑚 𝐹))(+g𝑆)(𝑚 𝐹)))
114113oveq1d 7382 . . . . . . 7 ((𝜑𝑚 ∈ ℕ) → (((𝑚 + 1) · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝑚 · (𝑚 𝐹))(+g𝑆)(𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
11532, 57, 70, 72, 108mulgcld 19072 . . . . . . . 8 ((𝜑𝑚 ∈ ℕ) → (𝑚 · (𝑚 𝐹)) ∈ 𝐵)
11632, 100, 33, 73, 115, 108, 81ringdird 20245 . . . . . . 7 ((𝜑𝑚 ∈ ℕ) → (((𝑚 · (𝑚 𝐹))(+g𝑆)(𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))(+g𝑆)((𝑚 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
117114, 116eqtrd 2772 . . . . . 6 ((𝜑𝑚 ∈ ℕ) → (((𝑚 + 1) · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))(+g𝑆)((𝑚 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
118117adantr 480 . . . . 5 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝑚 + 1) · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝑚 · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))(+g𝑆)((𝑚 𝐹) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))))
11999, 111, 1183eqtr4d 2782 . . . 4 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 𝐹) 𝐹)) = (((𝑚 + 1) · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
120 simplr 769 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → 𝑚 ∈ ℕ)
12150, 52, 86mulgnnp1 19058 . . . . . 6 ((𝑚 ∈ ℕ ∧ 𝐹𝐵) → ((𝑚 + 1) 𝐹) = ((𝑚 𝐹) 𝐹))
122120, 110, 121syl2anc 585 . . . . 5 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → ((𝑚 + 1) 𝐹) = ((𝑚 𝐹) 𝐹))
123122fveq2d 6845 . . . 4 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 + 1) 𝐹)) = (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 𝐹) 𝐹)))
124120nncnd 12190 . . . . . . . 8 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → 𝑚 ∈ ℂ)
125 pncan1 11574 . . . . . . . 8 (𝑚 ∈ ℂ → ((𝑚 + 1) − 1) = 𝑚)
126124, 125syl 17 . . . . . . 7 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → ((𝑚 + 1) − 1) = 𝑚)
127126oveq1d 7382 . . . . . 6 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝑚 + 1) − 1) 𝐹) = (𝑚 𝐹))
128127oveq2d 7383 . . . . 5 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → ((𝑚 + 1) · (((𝑚 + 1) − 1) 𝐹)) = ((𝑚 + 1) · (𝑚 𝐹)))
129128oveq1d 7382 . . . 4 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝑚 + 1) · (((𝑚 + 1) − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)) = (((𝑚 + 1) · (𝑚 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
130119, 123, 1293eqtr4d 2782 . . 3 (((𝜑𝑚 ∈ ℕ) ∧ (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑚 𝐹)) = ((𝑚 · ((𝑚 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹))) → (((𝐼 mPSDer 𝑅)‘𝑋)‘((𝑚 + 1) 𝐹)) = (((𝑚 + 1) · (((𝑚 + 1) − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
13110, 17, 24, 31, 65, 130nnindd 12194 . 2 ((𝜑𝑁 ∈ ℕ) → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑁 𝐹)) = ((𝑁 · ((𝑁 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
1321, 131mpdan 688 1 (𝜑 → (((𝐼 mPSDer 𝑅)‘𝑋)‘(𝑁 𝐹)) = ((𝑁 · ((𝑁 − 1) 𝐹)) (((𝐼 mPSDer 𝑅)‘𝑋)‘𝐹)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 395   = wceq 1542  wcel 2114  Vcvv 3430  cfv 6499  (class class class)co 7367  cc 11036  0cc0 11038  1c1 11039   + caddc 11041  cmin 11377  cn 12174  0cn0 12437  cz 12524  Basecbs 17179  +gcplusg 17220  .rcmulr 17221  Mgmcmgm 18606  Mndcmnd 18702  Grpcgrp 18909  .gcmg 19043  mulGrpcmgp 20121  1rcur 20162  Ringcrg 20214  CRingccrg 20215   mPwSer cmps 21884   mPSDer cpsd 22096
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5213  ax-sep 5232  ax-nul 5242  ax-pow 5308  ax-pr 5376  ax-un 7689  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-ifp 1064  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5526  df-eprel 5531  df-po 5539  df-so 5540  df-fr 5584  df-se 5585  df-we 5586  df-xp 5637  df-rel 5638  df-cnv 5639  df-co 5640  df-dm 5641  df-rn 5642  df-res 5643  df-ima 5644  df-pred 6266  df-ord 6327  df-on 6328  df-lim 6329  df-suc 6330  df-iota 6455  df-fun 6501  df-fn 6502  df-f 6503  df-f1 6504  df-fo 6505  df-f1o 6506  df-fv 6507  df-isom 6508  df-riota 7324  df-ov 7370  df-oprab 7371  df-mpo 7372  df-of 7631  df-ofr 7632  df-om 7818  df-1st 7942  df-2nd 7943  df-supp 8111  df-tpos 8176  df-frecs 8231  df-wrecs 8262  df-recs 8311  df-rdg 8349  df-1o 8405  df-2o 8406  df-er 8643  df-map 8775  df-pm 8776  df-ixp 8846  df-en 8894  df-dom 8895  df-sdom 8896  df-fin 8897  df-fsupp 9275  df-sup 9355  df-oi 9425  df-card 9863  df-pnf 11181  df-mnf 11182  df-xr 11183  df-ltxr 11184  df-le 11185  df-sub 11379  df-neg 11380  df-nn 12175  df-2 12244  df-3 12245  df-4 12246  df-5 12247  df-6 12248  df-7 12249  df-8 12250  df-9 12251  df-n0 12438  df-z 12525  df-dec 12645  df-uz 12789  df-fz 13462  df-fzo 13609  df-seq 13964  df-hash 14293  df-struct 17117  df-sets 17134  df-slot 17152  df-ndx 17164  df-base 17180  df-ress 17201  df-plusg 17233  df-mulr 17234  df-sca 17236  df-vsca 17237  df-ip 17238  df-tset 17239  df-ple 17240  df-ds 17242  df-hom 17244  df-cco 17245  df-0g 17404  df-gsum 17405  df-prds 17410  df-pws 17412  df-mre 17548  df-mrc 17549  df-acs 17551  df-mgm 18608  df-sgrp 18687  df-mnd 18703  df-mhm 18751  df-submnd 18752  df-grp 18912  df-minusg 18913  df-mulg 19044  df-ghm 19188  df-cntz 19292  df-cmn 19757  df-abl 19758  df-mgp 20122  df-rng 20134  df-ur 20163  df-ring 20216  df-cring 20217  df-oppr 20317  df-psr 21889  df-psd 22122
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator