Metamath Proof Explorer


Theorem taylthlem1

Description: Lemma for taylth . This is the main part of Taylor's theorem, except for the induction step, which is supposed to be proven using L'HΓ΄pital's rule. However, since our proof of L'HΓ΄pital assumes that S = RR , we can only do this part generically, and for taylth itself we must restrict to RR . (Contributed by Mario Carneiro, 1-Jan-2017)

Ref Expression
Hypotheses taylthlem1.s ⊒ ( πœ‘ β†’ 𝑆 ∈ { ℝ , β„‚ } )
taylthlem1.f ⊒ ( πœ‘ β†’ 𝐹 : 𝐴 ⟢ β„‚ )
taylthlem1.a ⊒ ( πœ‘ β†’ 𝐴 βŠ† 𝑆 )
taylthlem1.d ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) = 𝐴 )
taylthlem1.n ⊒ ( πœ‘ β†’ 𝑁 ∈ β„• )
taylthlem1.b ⊒ ( πœ‘ β†’ 𝐡 ∈ 𝐴 )
taylthlem1.t ⊒ 𝑇 = ( 𝑁 ( 𝑆 Tayl 𝐹 ) 𝐡 )
taylthlem1.r ⊒ 𝑅 = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( 𝐹 β€˜ π‘₯ ) βˆ’ ( 𝑇 β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) )
taylthlem1.i ⊒ ( ( πœ‘ ∧ ( 𝑛 ∈ ( 1 ..^ 𝑁 ) ∧ 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) ) ) β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) )
Assertion taylthlem1 ( πœ‘ β†’ 0 ∈ ( 𝑅 limβ„‚ 𝐡 ) )

Proof

Step Hyp Ref Expression
1 taylthlem1.s ⊒ ( πœ‘ β†’ 𝑆 ∈ { ℝ , β„‚ } )
2 taylthlem1.f ⊒ ( πœ‘ β†’ 𝐹 : 𝐴 ⟢ β„‚ )
3 taylthlem1.a ⊒ ( πœ‘ β†’ 𝐴 βŠ† 𝑆 )
4 taylthlem1.d ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) = 𝐴 )
5 taylthlem1.n ⊒ ( πœ‘ β†’ 𝑁 ∈ β„• )
6 taylthlem1.b ⊒ ( πœ‘ β†’ 𝐡 ∈ 𝐴 )
7 taylthlem1.t ⊒ 𝑇 = ( 𝑁 ( 𝑆 Tayl 𝐹 ) 𝐡 )
8 taylthlem1.r ⊒ 𝑅 = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( 𝐹 β€˜ π‘₯ ) βˆ’ ( 𝑇 β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) )
9 taylthlem1.i ⊒ ( ( πœ‘ ∧ ( 𝑛 ∈ ( 1 ..^ 𝑁 ) ∧ 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) ) ) β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) )
10 elfz1end ⊒ ( 𝑁 ∈ β„• ↔ 𝑁 ∈ ( 1 ... 𝑁 ) )
11 5 10 sylib ⊒ ( πœ‘ β†’ 𝑁 ∈ ( 1 ... 𝑁 ) )
12 oveq2 ⊒ ( π‘š = 1 β†’ ( 𝑁 βˆ’ π‘š ) = ( 𝑁 βˆ’ 1 ) )
13 12 fveq2d ⊒ ( π‘š = 1 β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) )
14 13 fveq1d ⊒ ( π‘š = 1 β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) )
15 12 fveq2d ⊒ ( π‘š = 1 β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) )
16 15 fveq1d ⊒ ( π‘š = 1 β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) )
17 14 16 oveq12d ⊒ ( π‘š = 1 β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) )
18 oveq2 ⊒ ( π‘š = 1 β†’ ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) = ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) )
19 17 18 oveq12d ⊒ ( π‘š = 1 β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) = ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) )
20 19 mpteq2dv ⊒ ( π‘š = 1 β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) )
21 20 oveq1d ⊒ ( π‘š = 1 β†’ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) = ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) limβ„‚ 𝐡 ) )
22 21 eleq2d ⊒ ( π‘š = 1 β†’ ( 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ↔ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) limβ„‚ 𝐡 ) ) )
23 22 imbi2d ⊒ ( π‘š = 1 β†’ ( ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ) ↔ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) limβ„‚ 𝐡 ) ) ) )
24 oveq2 ⊒ ( π‘š = 𝑛 β†’ ( 𝑁 βˆ’ π‘š ) = ( 𝑁 βˆ’ 𝑛 ) )
25 24 fveq2d ⊒ ( π‘š = 𝑛 β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) )
26 25 fveq1d ⊒ ( π‘š = 𝑛 β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) )
27 24 fveq2d ⊒ ( π‘š = 𝑛 β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) )
28 27 fveq1d ⊒ ( π‘š = 𝑛 β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) )
29 26 28 oveq12d ⊒ ( π‘š = 𝑛 β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) ) )
30 oveq2 ⊒ ( π‘š = 𝑛 β†’ ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) = ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑛 ) )
31 29 30 oveq12d ⊒ ( π‘š = 𝑛 β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) = ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑛 ) ) )
32 31 mpteq2dv ⊒ ( π‘š = 𝑛 β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) )
33 fveq2 ⊒ ( π‘₯ = 𝑦 β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) )
34 fveq2 ⊒ ( π‘₯ = 𝑦 β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) )
35 33 34 oveq12d ⊒ ( π‘₯ = 𝑦 β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) )
36 oveq1 ⊒ ( π‘₯ = 𝑦 β†’ ( π‘₯ βˆ’ 𝐡 ) = ( 𝑦 βˆ’ 𝐡 ) )
37 36 oveq1d ⊒ ( π‘₯ = 𝑦 β†’ ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑛 ) = ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) )
38 35 37 oveq12d ⊒ ( π‘₯ = 𝑦 β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑛 ) ) = ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) )
39 38 cbvmptv ⊒ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) = ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) )
40 32 39 eqtrdi ⊒ ( π‘š = 𝑛 β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) = ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) )
41 40 oveq1d ⊒ ( π‘š = 𝑛 β†’ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) = ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) )
42 41 eleq2d ⊒ ( π‘š = 𝑛 β†’ ( 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ↔ 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) ) )
43 42 imbi2d ⊒ ( π‘š = 𝑛 β†’ ( ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ) ↔ ( πœ‘ β†’ 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) ) ) )
44 oveq2 ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( 𝑁 βˆ’ π‘š ) = ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) )
45 44 fveq2d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) )
46 45 fveq1d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) )
47 44 fveq2d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) )
48 47 fveq1d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) )
49 46 48 oveq12d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) )
50 oveq2 ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) = ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) )
51 49 50 oveq12d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) = ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) )
52 51 mpteq2dv ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) )
53 52 oveq1d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) = ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) )
54 53 eleq2d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ↔ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) ) )
55 54 imbi2d ⊒ ( π‘š = ( 𝑛 + 1 ) β†’ ( ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ) ↔ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) ) ) )
56 oveq2 ⊒ ( π‘š = 𝑁 β†’ ( 𝑁 βˆ’ π‘š ) = ( 𝑁 βˆ’ 𝑁 ) )
57 56 fveq2d ⊒ ( π‘š = 𝑁 β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) )
58 57 fveq1d ⊒ ( π‘š = 𝑁 β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) )
59 56 fveq2d ⊒ ( π‘š = 𝑁 β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) )
60 59 fveq1d ⊒ ( π‘š = 𝑁 β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) )
61 58 60 oveq12d ⊒ ( π‘š = 𝑁 β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) )
62 oveq2 ⊒ ( π‘š = 𝑁 β†’ ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) = ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) )
63 61 62 oveq12d ⊒ ( π‘š = 𝑁 β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) = ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) )
64 63 mpteq2dv ⊒ ( π‘š = 𝑁 β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) )
65 64 oveq1d ⊒ ( π‘š = 𝑁 β†’ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) = ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) limβ„‚ 𝐡 ) )
66 65 eleq2d ⊒ ( π‘š = 𝑁 β†’ ( 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ↔ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) limβ„‚ 𝐡 ) ) )
67 66 imbi2d ⊒ ( π‘š = 𝑁 β†’ ( ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ π‘š ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ π‘š ) ) ) limβ„‚ 𝐡 ) ) ↔ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) limβ„‚ 𝐡 ) ) ) )
68 fveq2 ⊒ ( 𝑦 = 𝐡 β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) )
69 fveq2 ⊒ ( 𝑦 = 𝐡 β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) )
70 68 69 oveq12d ⊒ ( 𝑦 = 𝐡 β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) )
71 eqid ⊒ ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
72 ovex ⊒ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) ∈ V
73 70 71 72 fvmpt ⊒ ( 𝐡 ∈ 𝐴 β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) )
74 6 73 syl ⊒ ( πœ‘ β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) )
75 5 nnnn0d ⊒ ( πœ‘ β†’ 𝑁 ∈ β„•0 )
76 nn0uz ⊒ β„•0 = ( β„€β‰₯ β€˜ 0 )
77 75 76 eleqtrdi ⊒ ( πœ‘ β†’ 𝑁 ∈ ( β„€β‰₯ β€˜ 0 ) )
78 eluzfz2b ⊒ ( 𝑁 ∈ ( β„€β‰₯ β€˜ 0 ) ↔ 𝑁 ∈ ( 0 ... 𝑁 ) )
79 77 78 sylib ⊒ ( πœ‘ β†’ 𝑁 ∈ ( 0 ... 𝑁 ) )
80 6 4 eleqtrrd ⊒ ( πœ‘ β†’ 𝐡 ∈ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
81 1 2 3 79 80 7 dvntaylp0 ⊒ ( πœ‘ β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) )
82 81 oveq2d ⊒ ( πœ‘ β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) )
83 cnex ⊒ β„‚ ∈ V
84 83 a1i ⊒ ( πœ‘ β†’ β„‚ ∈ V )
85 elpm2r ⊒ ( ( ( β„‚ ∈ V ∧ 𝑆 ∈ { ℝ , β„‚ } ) ∧ ( 𝐹 : 𝐴 ⟢ β„‚ ∧ 𝐴 βŠ† 𝑆 ) ) β†’ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) )
86 84 1 2 3 85 syl22anc ⊒ ( πœ‘ β†’ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) )
87 dvnf ⊒ ( ( 𝑆 ∈ { ℝ , β„‚ } ∧ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) ∧ 𝑁 ∈ β„•0 ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) : dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ⟢ β„‚ )
88 1 86 75 87 syl3anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) : dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ⟢ β„‚ )
89 88 80 ffvelcdmd ⊒ ( πœ‘ β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ∈ β„‚ )
90 89 subidd ⊒ ( πœ‘ β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) βˆ’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝐡 ) ) = 0 )
91 74 82 90 3eqtrd ⊒ ( πœ‘ β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = 0 )
92 funmpt ⊒ Fun ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
93 ovex ⊒ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ∈ V
94 93 71 dmmpti ⊒ dom ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) = 𝐴
95 6 94 eleqtrrdi ⊒ ( πœ‘ β†’ 𝐡 ∈ dom ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) )
96 funbrfvb ⊒ ( ( Fun ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) ∧ 𝐡 ∈ dom ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) ) β†’ ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = 0 ↔ 𝐡 ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) 0 ) )
97 92 95 96 sylancr ⊒ ( πœ‘ β†’ ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = 0 ↔ 𝐡 ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) 0 ) )
98 91 97 mpbid ⊒ ( πœ‘ β†’ 𝐡 ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) 0 )
99 nnm1nn0 ⊒ ( 𝑁 ∈ β„• β†’ ( 𝑁 βˆ’ 1 ) ∈ β„•0 )
100 5 99 syl ⊒ ( πœ‘ β†’ ( 𝑁 βˆ’ 1 ) ∈ β„•0 )
101 dvnf ⊒ ( ( 𝑆 ∈ { ℝ , β„‚ } ∧ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) ∧ ( 𝑁 βˆ’ 1 ) ∈ β„•0 ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ⟢ β„‚ )
102 1 86 100 101 syl3anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ⟢ β„‚ )
103 dvnbss ⊒ ( ( 𝑆 ∈ { ℝ , β„‚ } ∧ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) ∧ ( 𝑁 βˆ’ 1 ) ∈ β„•0 ) β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) βŠ† dom 𝐹 )
104 1 86 100 103 syl3anc ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) βŠ† dom 𝐹 )
105 2 104 fssdmd ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) βŠ† 𝐴 )
106 fzo0end ⊒ ( 𝑁 ∈ β„• β†’ ( 𝑁 βˆ’ 1 ) ∈ ( 0 ..^ 𝑁 ) )
107 elfzofz ⊒ ( ( 𝑁 βˆ’ 1 ) ∈ ( 0 ..^ 𝑁 ) β†’ ( 𝑁 βˆ’ 1 ) ∈ ( 0 ... 𝑁 ) )
108 5 106 107 3syl ⊒ ( πœ‘ β†’ ( 𝑁 βˆ’ 1 ) ∈ ( 0 ... 𝑁 ) )
109 dvn2bss ⊒ ( ( 𝑆 ∈ { ℝ , β„‚ } ∧ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) ∧ ( 𝑁 βˆ’ 1 ) ∈ ( 0 ... 𝑁 ) ) β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) βŠ† dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) )
110 1 86 108 109 syl3anc ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) βŠ† dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) )
111 4 110 eqsstrrd ⊒ ( πœ‘ β†’ 𝐴 βŠ† dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) )
112 105 111 eqssd ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) = 𝐴 )
113 112 feq2d ⊒ ( πœ‘ β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ⟢ β„‚ ↔ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : 𝐴 ⟢ β„‚ ) )
114 102 113 mpbid ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : 𝐴 ⟢ β„‚ )
115 114 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝐴 ) β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ∈ β„‚ )
116 4 feq2d ⊒ ( πœ‘ β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) : dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ⟢ β„‚ ↔ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) : 𝐴 ⟢ β„‚ ) )
117 88 116 mpbid ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) : 𝐴 ⟢ β„‚ )
118 117 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝐴 ) β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ∈ β„‚ )
119 5 nncnd ⊒ ( πœ‘ β†’ 𝑁 ∈ β„‚ )
120 1cnd ⊒ ( πœ‘ β†’ 1 ∈ β„‚ )
121 119 120 npcand ⊒ ( πœ‘ β†’ ( ( 𝑁 βˆ’ 1 ) + 1 ) = 𝑁 )
122 121 fveq2d ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( ( 𝑁 βˆ’ 1 ) + 1 ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
123 recnprss ⊒ ( 𝑆 ∈ { ℝ , β„‚ } β†’ 𝑆 βŠ† β„‚ )
124 1 123 syl ⊒ ( πœ‘ β†’ 𝑆 βŠ† β„‚ )
125 dvnp1 ⊒ ( ( 𝑆 βŠ† β„‚ ∧ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) ∧ ( 𝑁 βˆ’ 1 ) ∈ β„•0 ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( ( 𝑁 βˆ’ 1 ) + 1 ) ) = ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
126 124 86 100 125 syl3anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( ( 𝑁 βˆ’ 1 ) + 1 ) ) = ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
127 122 126 eqtr3d ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) = ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
128 117 feqmptd ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
129 114 feqmptd ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) )
130 129 oveq2d ⊒ ( πœ‘ β†’ ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) = ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) )
131 127 128 130 3eqtr3rd ⊒ ( πœ‘ β†’ ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
132 3 124 sstrd ⊒ ( πœ‘ β†’ 𝐴 βŠ† β„‚ )
133 132 sselda ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝐴 ) β†’ 𝑦 ∈ β„‚ )
134 1nn0 ⊒ 1 ∈ β„•0
135 134 a1i ⊒ ( πœ‘ β†’ 1 ∈ β„•0 )
136 elpm2r ⊒ ( ( ( β„‚ ∈ V ∧ 𝑆 ∈ { ℝ , β„‚ } ) ∧ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : 𝐴 ⟢ β„‚ ∧ 𝐴 βŠ† 𝑆 ) ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ∈ ( β„‚ ↑pm 𝑆 ) )
137 84 1 114 3 136 syl22anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ∈ ( β„‚ ↑pm 𝑆 ) )
138 dvn1 ⊒ ( ( 𝑆 βŠ† β„‚ ∧ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ∈ ( β„‚ ↑pm 𝑆 ) ) β†’ ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) β€˜ 1 ) = ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
139 124 137 138 syl2anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) β€˜ 1 ) = ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
140 126 122 eqtr3d ⊒ ( πœ‘ β†’ ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
141 139 140 eqtrd ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) β€˜ 1 ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
142 141 dmeqd ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) β€˜ 1 ) = dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
143 80 142 eleqtrrd ⊒ ( πœ‘ β†’ 𝐡 ∈ dom ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) β€˜ 1 ) )
144 eqid ⊒ ( 1 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) 𝐡 ) = ( 1 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) 𝐡 )
145 1 114 3 135 143 144 taylpf ⊒ ( πœ‘ β†’ ( 1 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) 𝐡 ) : β„‚ ⟢ β„‚ )
146 120 119 pncan3d ⊒ ( πœ‘ β†’ ( 1 + ( 𝑁 βˆ’ 1 ) ) = 𝑁 )
147 146 oveq1d ⊒ ( πœ‘ β†’ ( ( 1 + ( 𝑁 βˆ’ 1 ) ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) = ( 𝑁 ( 𝑆 Tayl 𝐹 ) 𝐡 ) )
148 7 147 eqtr4id ⊒ ( πœ‘ β†’ 𝑇 = ( ( 1 + ( 𝑁 βˆ’ 1 ) ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) )
149 148 oveq2d ⊒ ( πœ‘ β†’ ( β„‚ D𝑛 𝑇 ) = ( β„‚ D𝑛 ( ( 1 + ( 𝑁 βˆ’ 1 ) ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) ) )
150 149 fveq1d ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) = ( ( β„‚ D𝑛 ( ( 1 + ( 𝑁 βˆ’ 1 ) ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) ) β€˜ ( 𝑁 βˆ’ 1 ) ) )
151 146 fveq2d ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 1 + ( 𝑁 βˆ’ 1 ) ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
152 151 dmeqd ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 1 + ( 𝑁 βˆ’ 1 ) ) ) = dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
153 80 152 eleqtrrd ⊒ ( πœ‘ β†’ 𝐡 ∈ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 1 + ( 𝑁 βˆ’ 1 ) ) ) )
154 1 2 3 100 135 153 dvntaylp ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 ( ( 1 + ( 𝑁 βˆ’ 1 ) ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) ) β€˜ ( 𝑁 βˆ’ 1 ) ) = ( 1 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) 𝐡 ) )
155 150 154 eqtrd ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) = ( 1 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) 𝐡 ) )
156 155 feq1d ⊒ ( πœ‘ β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : β„‚ ⟢ β„‚ ↔ ( 1 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) 𝐡 ) : β„‚ ⟢ β„‚ ) )
157 145 156 mpbird ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) : β„‚ ⟢ β„‚ )
158 157 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑦 ∈ β„‚ ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ∈ β„‚ )
159 133 158 syldan ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝐴 ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ∈ β„‚ )
160 0nn0 ⊒ 0 ∈ β„•0
161 160 a1i ⊒ ( πœ‘ β†’ 0 ∈ β„•0 )
162 elpm2r ⊒ ( ( ( β„‚ ∈ V ∧ 𝑆 ∈ { ℝ , β„‚ } ) ∧ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) : 𝐴 ⟢ β„‚ ∧ 𝐴 βŠ† 𝑆 ) ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ∈ ( β„‚ ↑pm 𝑆 ) )
163 84 1 117 3 162 syl22anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ∈ ( β„‚ ↑pm 𝑆 ) )
164 dvn0 ⊒ ( ( 𝑆 βŠ† β„‚ ∧ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ∈ ( β„‚ ↑pm 𝑆 ) ) β†’ ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) β€˜ 0 ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
165 124 163 164 syl2anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) β€˜ 0 ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
166 165 dmeqd ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) β€˜ 0 ) = dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
167 80 166 eleqtrrd ⊒ ( πœ‘ β†’ 𝐡 ∈ dom ( ( 𝑆 D𝑛 ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) β€˜ 0 ) )
168 eqid ⊒ ( 0 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) 𝐡 ) = ( 0 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) 𝐡 )
169 1 117 3 161 167 168 taylpf ⊒ ( πœ‘ β†’ ( 0 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) 𝐡 ) : β„‚ ⟢ β„‚ )
170 119 addlidd ⊒ ( πœ‘ β†’ ( 0 + 𝑁 ) = 𝑁 )
171 170 oveq1d ⊒ ( πœ‘ β†’ ( ( 0 + 𝑁 ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) = ( 𝑁 ( 𝑆 Tayl 𝐹 ) 𝐡 ) )
172 171 7 eqtr4di ⊒ ( πœ‘ β†’ ( ( 0 + 𝑁 ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) = 𝑇 )
173 172 oveq2d ⊒ ( πœ‘ β†’ ( β„‚ D𝑛 ( ( 0 + 𝑁 ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) ) = ( β„‚ D𝑛 𝑇 ) )
174 173 fveq1d ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 ( ( 0 + 𝑁 ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) ) β€˜ 𝑁 ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) )
175 170 fveq2d ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 0 + 𝑁 ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
176 175 dmeqd ⊒ ( πœ‘ β†’ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 0 + 𝑁 ) ) = dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
177 80 176 eleqtrrd ⊒ ( πœ‘ β†’ 𝐡 ∈ dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 0 + 𝑁 ) ) )
178 1 2 3 75 161 177 dvntaylp ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 ( ( 0 + 𝑁 ) ( 𝑆 Tayl 𝐹 ) 𝐡 ) ) β€˜ 𝑁 ) = ( 0 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) 𝐡 ) )
179 174 178 eqtr3d ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) = ( 0 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) 𝐡 ) )
180 179 feq1d ⊒ ( πœ‘ β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) : β„‚ ⟢ β„‚ ↔ ( 0 ( 𝑆 Tayl ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) ) 𝐡 ) : β„‚ ⟢ β„‚ ) )
181 169 180 mpbird ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) : β„‚ ⟢ β„‚ )
182 181 ffvelcdmda ⊒ ( ( πœ‘ ∧ 𝑦 ∈ β„‚ ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ∈ β„‚ )
183 133 182 syldan ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝐴 ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ∈ β„‚ )
184 124 sselda ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝑆 ) β†’ 𝑦 ∈ β„‚ )
185 184 158 syldan ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝑆 ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ∈ β„‚ )
186 184 182 syldan ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝑆 ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ∈ β„‚ )
187 eqid ⊒ ( TopOpen β€˜ β„‚fld ) = ( TopOpen β€˜ β„‚fld )
188 187 cnfldtopon ⊒ ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ )
189 toponmax ⊒ ( ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ ) β†’ β„‚ ∈ ( TopOpen β€˜ β„‚fld ) )
190 188 189 mp1i ⊒ ( πœ‘ β†’ β„‚ ∈ ( TopOpen β€˜ β„‚fld ) )
191 df-ss ⊒ ( 𝑆 βŠ† β„‚ ↔ ( 𝑆 ∩ β„‚ ) = 𝑆 )
192 124 191 sylib ⊒ ( πœ‘ β†’ ( 𝑆 ∩ β„‚ ) = 𝑆 )
193 ssid ⊒ β„‚ βŠ† β„‚
194 193 a1i ⊒ ( πœ‘ β†’ β„‚ βŠ† β„‚ )
195 mapsspm ⊒ ( β„‚ ↑m β„‚ ) βŠ† ( β„‚ ↑pm β„‚ )
196 1 2 3 75 80 7 taylpf ⊒ ( πœ‘ β†’ 𝑇 : β„‚ ⟢ β„‚ )
197 83 83 elmap ⊒ ( 𝑇 ∈ ( β„‚ ↑m β„‚ ) ↔ 𝑇 : β„‚ ⟢ β„‚ )
198 196 197 sylibr ⊒ ( πœ‘ β†’ 𝑇 ∈ ( β„‚ ↑m β„‚ ) )
199 195 198 sselid ⊒ ( πœ‘ β†’ 𝑇 ∈ ( β„‚ ↑pm β„‚ ) )
200 dvnp1 ⊒ ( ( β„‚ βŠ† β„‚ ∧ 𝑇 ∈ ( β„‚ ↑pm β„‚ ) ∧ ( 𝑁 βˆ’ 1 ) ∈ β„•0 ) β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( ( 𝑁 βˆ’ 1 ) + 1 ) ) = ( β„‚ D ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
201 194 199 100 200 syl3anc ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( ( 𝑁 βˆ’ 1 ) + 1 ) ) = ( β„‚ D ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) )
202 121 fveq2d ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( ( 𝑁 βˆ’ 1 ) + 1 ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) )
203 201 202 eqtr3d ⊒ ( πœ‘ β†’ ( β„‚ D ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) )
204 157 feqmptd ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) = ( 𝑦 ∈ β„‚ ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) )
205 204 oveq2d ⊒ ( πœ‘ β†’ ( β„‚ D ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) = ( β„‚ D ( 𝑦 ∈ β„‚ ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) )
206 181 feqmptd ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) = ( 𝑦 ∈ β„‚ ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
207 203 205 206 3eqtr3d ⊒ ( πœ‘ β†’ ( β„‚ D ( 𝑦 ∈ β„‚ ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) = ( 𝑦 ∈ β„‚ ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
208 187 1 190 192 158 182 207 dvmptres3 ⊒ ( πœ‘ β†’ ( 𝑆 D ( 𝑦 ∈ 𝑆 ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) = ( 𝑦 ∈ 𝑆 ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
209 eqid ⊒ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) = ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 )
210 resttopon ⊒ ( ( ( TopOpen β€˜ β„‚fld ) ∈ ( TopOn β€˜ β„‚ ) ∧ 𝑆 βŠ† β„‚ ) β†’ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) )
211 188 124 210 sylancr ⊒ ( πœ‘ β†’ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) )
212 topontop ⊒ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) β†’ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ Top )
213 211 212 syl ⊒ ( πœ‘ β†’ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ Top )
214 toponuni ⊒ ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ ( TopOn β€˜ 𝑆 ) β†’ 𝑆 = βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) )
215 211 214 syl ⊒ ( πœ‘ β†’ 𝑆 = βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) )
216 3 215 sseqtrd ⊒ ( πœ‘ β†’ 𝐴 βŠ† βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) )
217 eqid ⊒ βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) = βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 )
218 217 ntrss2 ⊒ ( ( ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ∈ Top ∧ 𝐴 βŠ† βˆͺ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β†’ ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) βŠ† 𝐴 )
219 213 216 218 syl2anc ⊒ ( πœ‘ β†’ ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) βŠ† 𝐴 )
220 140 dmeqd ⊒ ( πœ‘ β†’ dom ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) = dom ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) )
221 220 4 eqtrd ⊒ ( πœ‘ β†’ dom ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) = 𝐴 )
222 124 114 3 209 187 dvbssntr ⊒ ( πœ‘ β†’ dom ( 𝑆 D ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) ) βŠ† ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) )
223 221 222 eqsstrrd ⊒ ( πœ‘ β†’ 𝐴 βŠ† ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) )
224 219 223 eqssd ⊒ ( πœ‘ β†’ ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) = 𝐴 )
225 1 185 186 208 3 209 187 224 dvmptres2 ⊒ ( πœ‘ β†’ ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) )
226 1 115 118 131 159 183 225 dvmptsub ⊒ ( πœ‘ β†’ ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) )
227 226 breqd ⊒ ( πœ‘ β†’ ( 𝐡 ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) ) 0 ↔ 𝐡 ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ 𝑁 ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ 𝑁 ) β€˜ 𝑦 ) ) ) 0 ) )
228 98 227 mpbird ⊒ ( πœ‘ β†’ 𝐡 ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) ) 0 )
229 eqid ⊒ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) )
230 115 159 subcld ⊒ ( ( πœ‘ ∧ 𝑦 ∈ 𝐴 ) β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ∈ β„‚ )
231 230 fmpttd ⊒ ( πœ‘ β†’ ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) : 𝐴 ⟢ β„‚ )
232 209 187 229 124 231 3 eldv ⊒ ( πœ‘ β†’ ( 𝐡 ( 𝑆 D ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) ) 0 ↔ ( 𝐡 ∈ ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) ∧ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) ) limβ„‚ 𝐡 ) ) ) )
233 228 232 mpbid ⊒ ( πœ‘ β†’ ( 𝐡 ∈ ( ( int β€˜ ( ( TopOpen β€˜ β„‚fld ) β†Ύt 𝑆 ) ) β€˜ 𝐴 ) ∧ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) ) limβ„‚ 𝐡 ) ) )
234 233 simprd ⊒ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) ) limβ„‚ 𝐡 ) )
235 eldifi ⊒ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) β†’ π‘₯ ∈ 𝐴 )
236 fveq2 ⊒ ( 𝑦 = π‘₯ β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) )
237 fveq2 ⊒ ( 𝑦 = π‘₯ β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) )
238 236 237 oveq12d ⊒ ( 𝑦 = π‘₯ β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) )
239 eqid ⊒ ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) = ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) )
240 ovex ⊒ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) ∈ V
241 238 239 240 fvmpt ⊒ ( π‘₯ ∈ 𝐴 β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) )
242 fveq2 ⊒ ( 𝑦 = 𝐡 β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) )
243 fveq2 ⊒ ( 𝑦 = 𝐡 β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) = ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) )
244 242 243 oveq12d ⊒ ( 𝑦 = 𝐡 β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) )
245 ovex ⊒ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) ∈ V
246 244 239 245 fvmpt ⊒ ( 𝐡 ∈ 𝐴 β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) )
247 6 246 syl ⊒ ( πœ‘ β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) )
248 1 2 3 108 80 7 dvntaylp0 ⊒ ( πœ‘ β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) = ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) )
249 248 oveq2d ⊒ ( πœ‘ β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) )
250 114 6 ffvelcdmd ⊒ ( πœ‘ β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ∈ β„‚ )
251 250 subidd ⊒ ( πœ‘ β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) βˆ’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝐡 ) ) = 0 )
252 247 249 251 3eqtrd ⊒ ( πœ‘ β†’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) = 0 )
253 241 252 oveqan12rd ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) = ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) βˆ’ 0 ) )
254 114 ffvelcdmda ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ∈ β„‚ )
255 132 sselda ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ π‘₯ ∈ β„‚ )
256 157 ffvelcdmda ⊒ ( ( πœ‘ ∧ π‘₯ ∈ β„‚ ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ∈ β„‚ )
257 255 256 syldan ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ∈ β„‚ )
258 254 257 subcld ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) ∈ β„‚ )
259 258 subid1d ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) βˆ’ 0 ) = ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) )
260 253 259 eqtr2d ⊒ ( ( πœ‘ ∧ π‘₯ ∈ 𝐴 ) β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) = ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) )
261 235 260 sylan2 ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ) β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) = ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) )
262 132 ssdifssd ⊒ ( πœ‘ β†’ ( 𝐴 βˆ– { 𝐡 } ) βŠ† β„‚ )
263 262 sselda ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ) β†’ π‘₯ ∈ β„‚ )
264 132 6 sseldd ⊒ ( πœ‘ β†’ 𝐡 ∈ β„‚ )
265 264 adantr ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ) β†’ 𝐡 ∈ β„‚ )
266 263 265 subcld ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ) β†’ ( π‘₯ βˆ’ 𝐡 ) ∈ β„‚ )
267 266 exp1d ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ) β†’ ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) = ( π‘₯ βˆ’ 𝐡 ) )
268 261 267 oveq12d ⊒ ( ( πœ‘ ∧ π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ) β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) = ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) )
269 268 mpteq2dva ⊒ ( πœ‘ β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) ) )
270 269 oveq1d ⊒ ( πœ‘ β†’ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) limβ„‚ 𝐡 ) = ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( 𝑦 ∈ 𝐴 ↦ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ 𝑦 ) ) ) β€˜ 𝐡 ) ) / ( π‘₯ βˆ’ 𝐡 ) ) ) limβ„‚ 𝐡 ) )
271 234 270 eleqtrrd ⊒ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) limβ„‚ 𝐡 ) )
272 271 a1i ⊒ ( 𝑁 ∈ ( β„€β‰₯ β€˜ 1 ) β†’ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 1 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 1 ) ) ) limβ„‚ 𝐡 ) ) )
273 9 expr ⊒ ( ( πœ‘ ∧ 𝑛 ∈ ( 1 ..^ 𝑁 ) ) β†’ ( 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) ) )
274 273 expcom ⊒ ( 𝑛 ∈ ( 1 ..^ 𝑁 ) β†’ ( πœ‘ β†’ ( 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) ) ) )
275 274 a2d ⊒ ( 𝑛 ∈ ( 1 ..^ 𝑁 ) β†’ ( ( πœ‘ β†’ 0 ∈ ( ( 𝑦 ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑛 ) ) β€˜ 𝑦 ) ) / ( ( 𝑦 βˆ’ 𝐡 ) ↑ 𝑛 ) ) ) limβ„‚ 𝐡 ) ) β†’ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ ( 𝑛 + 1 ) ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ ( 𝑛 + 1 ) ) ) ) limβ„‚ 𝐡 ) ) ) )
276 23 43 55 67 272 275 fzind2 ⊒ ( 𝑁 ∈ ( 1 ... 𝑁 ) β†’ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) limβ„‚ 𝐡 ) ) )
277 11 276 mpcom ⊒ ( πœ‘ β†’ 0 ∈ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) limβ„‚ 𝐡 ) )
278 119 subidd ⊒ ( πœ‘ β†’ ( 𝑁 βˆ’ 𝑁 ) = 0 )
279 278 fveq2d ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) = ( ( 𝑆 D𝑛 𝐹 ) β€˜ 0 ) )
280 dvn0 ⊒ ( ( 𝑆 βŠ† β„‚ ∧ 𝐹 ∈ ( β„‚ ↑pm 𝑆 ) ) β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 0 ) = 𝐹 )
281 124 86 280 syl2anc ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ 0 ) = 𝐹 )
282 279 281 eqtrd ⊒ ( πœ‘ β†’ ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) = 𝐹 )
283 282 fveq1d ⊒ ( πœ‘ β†’ ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) = ( 𝐹 β€˜ π‘₯ ) )
284 278 fveq2d ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) = ( ( β„‚ D𝑛 𝑇 ) β€˜ 0 ) )
285 dvn0 ⊒ ( ( β„‚ βŠ† β„‚ ∧ 𝑇 ∈ ( β„‚ ↑pm β„‚ ) ) β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ 0 ) = 𝑇 )
286 193 199 285 sylancr ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ 0 ) = 𝑇 )
287 284 286 eqtrd ⊒ ( πœ‘ β†’ ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) = 𝑇 )
288 287 fveq1d ⊒ ( πœ‘ β†’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) = ( 𝑇 β€˜ π‘₯ ) )
289 283 288 oveq12d ⊒ ( πœ‘ β†’ ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) = ( ( 𝐹 β€˜ π‘₯ ) βˆ’ ( 𝑇 β€˜ π‘₯ ) ) )
290 289 oveq1d ⊒ ( πœ‘ β†’ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) = ( ( ( 𝐹 β€˜ π‘₯ ) βˆ’ ( 𝑇 β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) )
291 290 mpteq2dv ⊒ ( πœ‘ β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) = ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( 𝐹 β€˜ π‘₯ ) βˆ’ ( 𝑇 β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) )
292 291 8 eqtr4di ⊒ ( πœ‘ β†’ ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) = 𝑅 )
293 292 oveq1d ⊒ ( πœ‘ β†’ ( ( π‘₯ ∈ ( 𝐴 βˆ– { 𝐡 } ) ↦ ( ( ( ( ( 𝑆 D𝑛 𝐹 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) βˆ’ ( ( ( β„‚ D𝑛 𝑇 ) β€˜ ( 𝑁 βˆ’ 𝑁 ) ) β€˜ π‘₯ ) ) / ( ( π‘₯ βˆ’ 𝐡 ) ↑ 𝑁 ) ) ) limβ„‚ 𝐡 ) = ( 𝑅 limβ„‚ 𝐡 ) )
294 277 293 eleqtrd ⊒ ( πœ‘ β†’ 0 ∈ ( 𝑅 limβ„‚ 𝐡 ) )