Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  itgsinexplem1 Structured version   Visualization version   GIF version

Theorem itgsinexplem1 45477
Description: Integration by parts is applied to integrate sin^(N+1). (Contributed by Glauco Siliprandi, 29-Jun-2017.)
Hypotheses
Ref Expression
itgsinexplem1.1 𝐹 = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
itgsinexplem1.2 𝐺 = (𝑥 ∈ ℂ ↦ -(cos‘𝑥))
itgsinexplem1.3 𝐻 = (𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)))
itgsinexplem1.4 𝐼 = (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥)))
itgsinexplem1.5 𝐿 = (𝑥 ∈ ℂ ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)))
itgsinexplem1.6 𝑀 = (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))))
itgsinexplem1.7 (𝜑𝑁 ∈ ℕ)
Assertion
Ref Expression
itgsinexplem1 (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑𝑁) · (sin‘𝑥)) d𝑥 = (𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
Distinct variable groups:   𝑥,𝑁   𝜑,𝑥
Allowed substitution hints:   𝐹(𝑥)   𝐺(𝑥)   𝐻(𝑥)   𝐼(𝑥)   𝐿(𝑥)   𝑀(𝑥)

Proof of Theorem itgsinexplem1
StepHypRef Expression
1 0m0e0 12365 . . . . 5 (0 − 0) = 0
21oveq1i 7429 . . . 4 ((0 − 0) − ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥) = (0 − ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥)
3 0re 11248 . . . . . 6 0 ∈ ℝ
43a1i 11 . . . . 5 (𝜑 → 0 ∈ ℝ)
5 pire 26438 . . . . . 6 π ∈ ℝ
65a1i 11 . . . . 5 (𝜑 → π ∈ ℝ)
7 pipos 26440 . . . . . . 7 0 < π
83, 5, 7ltleii 11369 . . . . . 6 0 ≤ π
98a1i 11 . . . . 5 (𝜑 → 0 ≤ π)
103, 5pm3.2i 469 . . . . . . . . . . . . 13 (0 ∈ ℝ ∧ π ∈ ℝ)
11 iccssre 13441 . . . . . . . . . . . . 13 ((0 ∈ ℝ ∧ π ∈ ℝ) → (0[,]π) ⊆ ℝ)
1210, 11ax-mp 5 . . . . . . . . . . . 12 (0[,]π) ⊆ ℝ
13 ax-resscn 11197 . . . . . . . . . . . 12 ℝ ⊆ ℂ
1412, 13sstri 3986 . . . . . . . . . . 11 (0[,]π) ⊆ ℂ
1514sseli 3972 . . . . . . . . . 10 (𝑥 ∈ (0[,]π) → 𝑥 ∈ ℂ)
1615adantl 480 . . . . . . . . 9 ((𝜑𝑥 ∈ (0[,]π)) → 𝑥 ∈ ℂ)
1715sincld 16110 . . . . . . . . . . 11 (𝑥 ∈ (0[,]π) → (sin‘𝑥) ∈ ℂ)
1817adantl 480 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0[,]π)) → (sin‘𝑥) ∈ ℂ)
19 itgsinexplem1.7 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℕ)
2019nnnn0d 12565 . . . . . . . . . . 11 (𝜑𝑁 ∈ ℕ0)
2120adantr 479 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0[,]π)) → 𝑁 ∈ ℕ0)
2218, 21expcld 14146 . . . . . . . . 9 ((𝜑𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
23 itgsinexplem1.1 . . . . . . . . . 10 𝐹 = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
2423fvmpt2 7015 . . . . . . . . 9 ((𝑥 ∈ ℂ ∧ ((sin‘𝑥)↑𝑁) ∈ ℂ) → (𝐹𝑥) = ((sin‘𝑥)↑𝑁))
2516, 22, 24syl2anc 582 . . . . . . . 8 ((𝜑𝑥 ∈ (0[,]π)) → (𝐹𝑥) = ((sin‘𝑥)↑𝑁))
2625eqcomd 2731 . . . . . . 7 ((𝜑𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑𝑁) = (𝐹𝑥))
2726mpteq2dva 5249 . . . . . 6 (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) = (𝑥 ∈ (0[,]π) ↦ (𝐹𝑥)))
28 nfmpt1 5257 . . . . . . . 8 𝑥(𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
2923, 28nfcxfr 2889 . . . . . . 7 𝑥𝐹
30 nfcv 2891 . . . . . . . . 9 𝑥sin
31 sincn 26426 . . . . . . . . . 10 sin ∈ (ℂ–cn→ℂ)
3231a1i 11 . . . . . . . . 9 (𝜑 → sin ∈ (ℂ–cn→ℂ))
3330, 32, 20expcnfg 45114 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) ∈ (ℂ–cn→ℂ))
3423, 33eqeltrid 2829 . . . . . . 7 (𝜑𝐹 ∈ (ℂ–cn→ℂ))
3514a1i 11 . . . . . . 7 (𝜑 → (0[,]π) ⊆ ℂ)
3629, 34, 35cncfmptss 45110 . . . . . 6 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (𝐹𝑥)) ∈ ((0[,]π)–cn→ℂ))
3727, 36eqeltrd 2825 . . . . 5 (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ ((0[,]π)–cn→ℂ))
3815coscld 16111 . . . . . . . . . . 11 (𝑥 ∈ (0[,]π) → (cos‘𝑥) ∈ ℂ)
3938negcld 11590 . . . . . . . . . 10 (𝑥 ∈ (0[,]π) → -(cos‘𝑥) ∈ ℂ)
40 itgsinexplem1.2 . . . . . . . . . . 11 𝐺 = (𝑥 ∈ ℂ ↦ -(cos‘𝑥))
4140fvmpt2 7015 . . . . . . . . . 10 ((𝑥 ∈ ℂ ∧ -(cos‘𝑥) ∈ ℂ) → (𝐺𝑥) = -(cos‘𝑥))
4215, 39, 41syl2anc 582 . . . . . . . . 9 (𝑥 ∈ (0[,]π) → (𝐺𝑥) = -(cos‘𝑥))
4342eqcomd 2731 . . . . . . . 8 (𝑥 ∈ (0[,]π) → -(cos‘𝑥) = (𝐺𝑥))
4443adantl 480 . . . . . . 7 ((𝜑𝑥 ∈ (0[,]π)) → -(cos‘𝑥) = (𝐺𝑥))
4544mpteq2dva 5249 . . . . . 6 (𝜑 → (𝑥 ∈ (0[,]π) ↦ -(cos‘𝑥)) = (𝑥 ∈ (0[,]π) ↦ (𝐺𝑥)))
46 nfmpt1 5257 . . . . . . . 8 𝑥(𝑥 ∈ ℂ ↦ -(cos‘𝑥))
4740, 46nfcxfr 2889 . . . . . . 7 𝑥𝐺
48 coscn 26427 . . . . . . . . 9 cos ∈ (ℂ–cn→ℂ)
4948a1i 11 . . . . . . . 8 (𝜑 → cos ∈ (ℂ–cn→ℂ))
5040negfcncf 24888 . . . . . . . 8 (cos ∈ (ℂ–cn→ℂ) → 𝐺 ∈ (ℂ–cn→ℂ))
5149, 50syl 17 . . . . . . 7 (𝜑𝐺 ∈ (ℂ–cn→ℂ))
5247, 51, 35cncfmptss 45110 . . . . . 6 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (𝐺𝑥)) ∈ ((0[,]π)–cn→ℂ))
5345, 52eqeltrd 2825 . . . . 5 (𝜑 → (𝑥 ∈ (0[,]π) ↦ -(cos‘𝑥)) ∈ ((0[,]π)–cn→ℂ))
54 itgsinexplem1.3 . . . . . 6 𝐻 = (𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)))
55 ssidd 4000 . . . . . . . . . 10 (𝜑 → ℂ ⊆ ℂ)
5619nncnd 12261 . . . . . . . . . 10 (𝜑𝑁 ∈ ℂ)
5755, 56, 55constcncfg 45395 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ℂ ↦ 𝑁) ∈ (ℂ–cn→ℂ))
58 nnm1nn0 12546 . . . . . . . . . . 11 (𝑁 ∈ ℕ → (𝑁 − 1) ∈ ℕ0)
5919, 58syl 17 . . . . . . . . . 10 (𝜑 → (𝑁 − 1) ∈ ℕ0)
6030, 32, 59expcnfg 45114 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 1))) ∈ (ℂ–cn→ℂ))
6157, 60mulcncf 25418 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℂ ↦ (𝑁 · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ (ℂ–cn→ℂ))
62 cosf 16105 . . . . . . . . . . 11 cos:ℂ⟶ℂ
6362a1i 11 . . . . . . . . . 10 (𝜑 → cos:ℂ⟶ℂ)
6463feqmptd 6966 . . . . . . . . 9 (𝜑 → cos = (𝑥 ∈ ℂ ↦ (cos‘𝑥)))
6564, 48eqeltrrdi 2834 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℂ ↦ (cos‘𝑥)) ∈ (ℂ–cn→ℂ))
6661, 65mulcncf 25418 . . . . . . 7 (𝜑 → (𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))) ∈ (ℂ–cn→ℂ))
6754, 66eqeltrid 2829 . . . . . 6 (𝜑𝐻 ∈ (ℂ–cn→ℂ))
68 ioosscn 13421 . . . . . . 7 (0(,)π) ⊆ ℂ
6968a1i 11 . . . . . 6 (𝜑 → (0(,)π) ⊆ ℂ)
7056adantr 479 . . . . . . . 8 ((𝜑𝑥 ∈ (0(,)π)) → 𝑁 ∈ ℂ)
7168sseli 3972 . . . . . . . . . . 11 (𝑥 ∈ (0(,)π) → 𝑥 ∈ ℂ)
7271sincld 16110 . . . . . . . . . 10 (𝑥 ∈ (0(,)π) → (sin‘𝑥) ∈ ℂ)
7372adantl 480 . . . . . . . . 9 ((𝜑𝑥 ∈ (0(,)π)) → (sin‘𝑥) ∈ ℂ)
7459adantr 479 . . . . . . . . 9 ((𝜑𝑥 ∈ (0(,)π)) → (𝑁 − 1) ∈ ℕ0)
7573, 74expcld 14146 . . . . . . . 8 ((𝜑𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(𝑁 − 1)) ∈ ℂ)
7670, 75mulcld 11266 . . . . . . 7 ((𝜑𝑥 ∈ (0(,)π)) → (𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) ∈ ℂ)
7771coscld 16111 . . . . . . . 8 (𝑥 ∈ (0(,)π) → (cos‘𝑥) ∈ ℂ)
7877adantl 480 . . . . . . 7 ((𝜑𝑥 ∈ (0(,)π)) → (cos‘𝑥) ∈ ℂ)
7976, 78mulcld 11266 . . . . . 6 ((𝜑𝑥 ∈ (0(,)π)) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ ℂ)
8054, 67, 69, 55, 79cncfmptssg 45394 . . . . 5 (𝜑 → (𝑥 ∈ (0(,)π) ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))) ∈ ((0(,)π)–cn→ℂ))
8130, 32, 69cncfmptss 45110 . . . . 5 (𝜑 → (𝑥 ∈ (0(,)π) ↦ (sin‘𝑥)) ∈ ((0(,)π)–cn→ℂ))
82 ioossicc 13445 . . . . . . 7 (0(,)π) ⊆ (0[,]π)
8382a1i 11 . . . . . 6 (𝜑 → (0(,)π) ⊆ (0[,]π))
84 ioombl 25538 . . . . . . 7 (0(,)π) ∈ dom vol
8584a1i 11 . . . . . 6 (𝜑 → (0(,)π) ∈ dom vol)
8622, 18mulcld 11266 . . . . . 6 ((𝜑𝑥 ∈ (0[,]π)) → (((sin‘𝑥)↑𝑁) · (sin‘𝑥)) ∈ ℂ)
87 itgsinexplem1.4 . . . . . . . . . . . 12 𝐼 = (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥)))
8887fvmpt2 7015 . . . . . . . . . . 11 ((𝑥 ∈ ℂ ∧ (((sin‘𝑥)↑𝑁) · (sin‘𝑥)) ∈ ℂ) → (𝐼𝑥) = (((sin‘𝑥)↑𝑁) · (sin‘𝑥)))
8916, 86, 88syl2anc 582 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0[,]π)) → (𝐼𝑥) = (((sin‘𝑥)↑𝑁) · (sin‘𝑥)))
9089eqcomd 2731 . . . . . . . . 9 ((𝜑𝑥 ∈ (0[,]π)) → (((sin‘𝑥)↑𝑁) · (sin‘𝑥)) = (𝐼𝑥))
9190mpteq2dva 5249 . . . . . . . 8 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) = (𝑥 ∈ (0[,]π) ↦ (𝐼𝑥)))
92 nfmpt1 5257 . . . . . . . . . 10 𝑥(𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥)))
9387, 92nfcxfr 2889 . . . . . . . . 9 𝑥𝐼
94 sinf 16104 . . . . . . . . . . . . . 14 sin:ℂ⟶ℂ
9594a1i 11 . . . . . . . . . . . . 13 (𝜑 → sin:ℂ⟶ℂ)
9695feqmptd 6966 . . . . . . . . . . . 12 (𝜑 → sin = (𝑥 ∈ ℂ ↦ (sin‘𝑥)))
9796, 31eqeltrrdi 2834 . . . . . . . . . . 11 (𝜑 → (𝑥 ∈ ℂ ↦ (sin‘𝑥)) ∈ (ℂ–cn→ℂ))
9833, 97mulcncf 25418 . . . . . . . . . 10 (𝜑 → (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) ∈ (ℂ–cn→ℂ))
9987, 98eqeltrid 2829 . . . . . . . . 9 (𝜑𝐼 ∈ (ℂ–cn→ℂ))
10093, 99, 35cncfmptss 45110 . . . . . . . 8 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (𝐼𝑥)) ∈ ((0[,]π)–cn→ℂ))
10191, 100eqeltrd 2825 . . . . . . 7 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) ∈ ((0[,]π)–cn→ℂ))
102 cniccibl 25814 . . . . . . 7 ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) ∈ 𝐿1)
1034, 6, 101, 102syl3anc 1368 . . . . . 6 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) ∈ 𝐿1)
10483, 85, 86, 103iblss 25778 . . . . 5 (𝜑 → (𝑥 ∈ (0(,)π) ↦ (((sin‘𝑥)↑𝑁) · (sin‘𝑥))) ∈ 𝐿1)
10556adantr 479 . . . . . . . . 9 ((𝜑𝑥 ∈ (0[,]π)) → 𝑁 ∈ ℂ)
10659adantr 479 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0[,]π)) → (𝑁 − 1) ∈ ℕ0)
10718, 106expcld 14146 . . . . . . . . 9 ((𝜑𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑(𝑁 − 1)) ∈ ℂ)
108105, 107mulcld 11266 . . . . . . . 8 ((𝜑𝑥 ∈ (0[,]π)) → (𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) ∈ ℂ)
10938adantl 480 . . . . . . . 8 ((𝜑𝑥 ∈ (0[,]π)) → (cos‘𝑥) ∈ ℂ)
110108, 109mulcld 11266 . . . . . . 7 ((𝜑𝑥 ∈ (0[,]π)) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ ℂ)
11139adantl 480 . . . . . . 7 ((𝜑𝑥 ∈ (0[,]π)) → -(cos‘𝑥) ∈ ℂ)
112110, 111mulcld 11266 . . . . . 6 ((𝜑𝑥 ∈ (0[,]π)) → (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) ∈ ℂ)
113 itgsinexplem1.5 . . . . . . . 8 𝐿 = (𝑥 ∈ ℂ ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)))
114 eqid 2725 . . . . . . . . . . . 12 (𝑥 ∈ ℂ ↦ -(cos‘𝑥)) = (𝑥 ∈ ℂ ↦ -(cos‘𝑥))
115114negfcncf 24888 . . . . . . . . . . 11 (cos ∈ (ℂ–cn→ℂ) → (𝑥 ∈ ℂ ↦ -(cos‘𝑥)) ∈ (ℂ–cn→ℂ))
11649, 115syl 17 . . . . . . . . . 10 (𝜑 → (𝑥 ∈ ℂ ↦ -(cos‘𝑥)) ∈ (ℂ–cn→ℂ))
11766, 116mulcncf 25418 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ℂ ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) ∈ (ℂ–cn→ℂ))
118113, 117eqeltrid 2829 . . . . . . . 8 (𝜑𝐿 ∈ (ℂ–cn→ℂ))
119113, 118, 35, 55, 112cncfmptssg 45394 . . . . . . 7 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) ∈ ((0[,]π)–cn→ℂ))
120 cniccibl 25814 . . . . . . 7 ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) ∈ 𝐿1)
1214, 6, 119, 120syl3anc 1368 . . . . . 6 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) ∈ 𝐿1)
12283, 85, 112, 121iblss 25778 . . . . 5 (𝜑 → (𝑥 ∈ (0(,)π) ↦ (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) ∈ 𝐿1)
123 reelprrecn 11232 . . . . . . 7 ℝ ∈ {ℝ, ℂ}
124123a1i 11 . . . . . 6 (𝜑 → ℝ ∈ {ℝ, ℂ})
125 recn 11230 . . . . . . . . 9 (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
126125sincld 16110 . . . . . . . 8 (𝑥 ∈ ℝ → (sin‘𝑥) ∈ ℂ)
127126adantl 480 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → (sin‘𝑥) ∈ ℂ)
12820adantr 479 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → 𝑁 ∈ ℕ0)
129127, 128expcld 14146 . . . . . 6 ((𝜑𝑥 ∈ ℝ) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
13056adantr 479 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → 𝑁 ∈ ℂ)
13159adantr 479 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ) → (𝑁 − 1) ∈ ℕ0)
132127, 131expcld 14146 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → ((sin‘𝑥)↑(𝑁 − 1)) ∈ ℂ)
133130, 132mulcld 11266 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → (𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) ∈ ℂ)
134125coscld 16111 . . . . . . . 8 (𝑥 ∈ ℝ → (cos‘𝑥) ∈ ℂ)
135134adantl 480 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → (cos‘𝑥) ∈ ℂ)
136133, 135mulcld 11266 . . . . . 6 ((𝜑𝑥 ∈ ℝ) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ ℂ)
137 sincl 16106 . . . . . . . . . . 11 (𝑥 ∈ ℂ → (sin‘𝑥) ∈ ℂ)
138137adantl 480 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℂ) → (sin‘𝑥) ∈ ℂ)
13920adantr 479 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℂ) → 𝑁 ∈ ℕ0)
140138, 139expcld 14146 . . . . . . . . 9 ((𝜑𝑥 ∈ ℂ) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
141140, 23fmptd 7123 . . . . . . . 8 (𝜑𝐹:ℂ⟶ℂ)
142125adantl 480 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ ℂ)
143 elex 3480 . . . . . . . . . . . . . . 15 (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ ℂ → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ V)
144136, 143syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ V)
145 rabid 3439 . . . . . . . . . . . . . 14 (𝑥 ∈ {𝑥 ∈ ℂ ∣ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ V} ↔ (𝑥 ∈ ℂ ∧ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ V))
146142, 144, 145sylanbrc 581 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ {𝑥 ∈ ℂ ∣ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ V})
14754dmmpt 6246 . . . . . . . . . . . . 13 dom 𝐻 = {𝑥 ∈ ℂ ∣ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) ∈ V}
148146, 147eleqtrrdi 2836 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ dom 𝐻)
149148ex 411 . . . . . . . . . . 11 (𝜑 → (𝑥 ∈ ℝ → 𝑥 ∈ dom 𝐻))
150149alrimiv 1922 . . . . . . . . . 10 (𝜑 → ∀𝑥(𝑥 ∈ ℝ → 𝑥 ∈ dom 𝐻))
151 nfcv 2891 . . . . . . . . . . 11 𝑥
152 nfmpt1 5257 . . . . . . . . . . . . 13 𝑥(𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)))
15354, 152nfcxfr 2889 . . . . . . . . . . . 12 𝑥𝐻
154153nfdm 5953 . . . . . . . . . . 11 𝑥dom 𝐻
155151, 154dfssf 3967 . . . . . . . . . 10 (ℝ ⊆ dom 𝐻 ↔ ∀𝑥(𝑥 ∈ ℝ → 𝑥 ∈ dom 𝐻))
156150, 155sylibr 233 . . . . . . . . 9 (𝜑 → ℝ ⊆ dom 𝐻)
15719dvsinexp 45434 . . . . . . . . . . 11 (𝜑 → (ℂ D (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))) = (𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))))
15823oveq2i 7430 . . . . . . . . . . 11 (ℂ D 𝐹) = (ℂ D (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)))
159157, 158, 543eqtr4g 2790 . . . . . . . . . 10 (𝜑 → (ℂ D 𝐹) = 𝐻)
160159dmeqd 5908 . . . . . . . . 9 (𝜑 → dom (ℂ D 𝐹) = dom 𝐻)
161156, 160sseqtrrd 4018 . . . . . . . 8 (𝜑 → ℝ ⊆ dom (ℂ D 𝐹))
162 dvres3 25886 . . . . . . . 8 (((ℝ ∈ {ℝ, ℂ} ∧ 𝐹:ℂ⟶ℂ) ∧ (ℂ ⊆ ℂ ∧ ℝ ⊆ dom (ℂ D 𝐹))) → (ℝ D (𝐹 ↾ ℝ)) = ((ℂ D 𝐹) ↾ ℝ))
163124, 141, 55, 161, 162syl22anc 837 . . . . . . 7 (𝜑 → (ℝ D (𝐹 ↾ ℝ)) = ((ℂ D 𝐹) ↾ ℝ))
16423reseq1i 5981 . . . . . . . . . 10 (𝐹 ↾ ℝ) = ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) ↾ ℝ)
165 resmpt 6042 . . . . . . . . . . 11 (ℝ ⊆ ℂ → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((sin‘𝑥)↑𝑁)))
16613, 165ax-mp 5 . . . . . . . . . 10 ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((sin‘𝑥)↑𝑁))
167164, 166eqtri 2753 . . . . . . . . 9 (𝐹 ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((sin‘𝑥)↑𝑁))
168167oveq2i 7430 . . . . . . . 8 (ℝ D (𝐹 ↾ ℝ)) = (ℝ D (𝑥 ∈ ℝ ↦ ((sin‘𝑥)↑𝑁)))
169168a1i 11 . . . . . . 7 (𝜑 → (ℝ D (𝐹 ↾ ℝ)) = (ℝ D (𝑥 ∈ ℝ ↦ ((sin‘𝑥)↑𝑁))))
170159reseq1d 5984 . . . . . . . 8 (𝜑 → ((ℂ D 𝐹) ↾ ℝ) = (𝐻 ↾ ℝ))
17154reseq1i 5981 . . . . . . . . 9 (𝐻 ↾ ℝ) = ((𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))) ↾ ℝ)
172 resmpt 6042 . . . . . . . . . 10 (ℝ ⊆ ℂ → ((𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))) ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))))
17313, 172ax-mp 5 . . . . . . . . 9 ((𝑥 ∈ ℂ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))) ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)))
174171, 173eqtri 2753 . . . . . . . 8 (𝐻 ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)))
175170, 174eqtrdi 2781 . . . . . . 7 (𝜑 → ((ℂ D 𝐹) ↾ ℝ) = (𝑥 ∈ ℝ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))))
176163, 169, 1753eqtr3d 2773 . . . . . 6 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ ((sin‘𝑥)↑𝑁))) = (𝑥 ∈ ℝ ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))))
17712a1i 11 . . . . . 6 (𝜑 → (0[,]π) ⊆ ℝ)
178 eqid 2725 . . . . . . 7 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
179178tgioo2 24763 . . . . . 6 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
18010a1i 11 . . . . . . 7 (𝜑 → (0 ∈ ℝ ∧ π ∈ ℝ))
181 iccntr 24781 . . . . . . 7 ((0 ∈ ℝ ∧ π ∈ ℝ) → ((int‘(topGen‘ran (,)))‘(0[,]π)) = (0(,)π))
182180, 181syl 17 . . . . . 6 (𝜑 → ((int‘(topGen‘ran (,)))‘(0[,]π)) = (0(,)π))
183124, 129, 136, 176, 177, 179, 178, 182dvmptres2 25938 . . . . 5 (𝜑 → (ℝ D (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁))) = (𝑥 ∈ (0(,)π) ↦ ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥))))
184134negcld 11590 . . . . . . 7 (𝑥 ∈ ℝ → -(cos‘𝑥) ∈ ℂ)
185184adantl 480 . . . . . 6 ((𝜑𝑥 ∈ ℝ) → -(cos‘𝑥) ∈ ℂ)
186126negcld 11590 . . . . . . . . 9 (𝑥 ∈ ℝ → -(sin‘𝑥) ∈ ℂ)
187186adantl 480 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → -(sin‘𝑥) ∈ ℂ)
188 dvcosre 45435 . . . . . . . . 9 (ℝ D (𝑥 ∈ ℝ ↦ (cos‘𝑥))) = (𝑥 ∈ ℝ ↦ -(sin‘𝑥))
189188a1i 11 . . . . . . . 8 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ (cos‘𝑥))) = (𝑥 ∈ ℝ ↦ -(sin‘𝑥)))
190124, 135, 187, 189dvmptneg 25942 . . . . . . 7 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ -(cos‘𝑥))) = (𝑥 ∈ ℝ ↦ --(sin‘𝑥)))
191126negnegd 11594 . . . . . . . . 9 (𝑥 ∈ ℝ → --(sin‘𝑥) = (sin‘𝑥))
192191adantl 480 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → --(sin‘𝑥) = (sin‘𝑥))
193192mpteq2dva 5249 . . . . . . 7 (𝜑 → (𝑥 ∈ ℝ ↦ --(sin‘𝑥)) = (𝑥 ∈ ℝ ↦ (sin‘𝑥)))
194190, 193eqtrd 2765 . . . . . 6 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ -(cos‘𝑥))) = (𝑥 ∈ ℝ ↦ (sin‘𝑥)))
195124, 185, 127, 194, 177, 179, 178, 182dvmptres2 25938 . . . . 5 (𝜑 → (ℝ D (𝑥 ∈ (0[,]π) ↦ -(cos‘𝑥))) = (𝑥 ∈ (0(,)π) ↦ (sin‘𝑥)))
196 fveq2 6896 . . . . . . . . . . 11 (𝑥 = 0 → (sin‘𝑥) = (sin‘0))
197 sin0 16129 . . . . . . . . . . 11 (sin‘0) = 0
198196, 197eqtrdi 2781 . . . . . . . . . 10 (𝑥 = 0 → (sin‘𝑥) = 0)
199198oveq1d 7434 . . . . . . . . 9 (𝑥 = 0 → ((sin‘𝑥)↑𝑁) = (0↑𝑁))
200199adantl 480 . . . . . . . 8 ((𝜑𝑥 = 0) → ((sin‘𝑥)↑𝑁) = (0↑𝑁))
20119adantr 479 . . . . . . . . 9 ((𝜑𝑥 = 0) → 𝑁 ∈ ℕ)
2022010expd 14139 . . . . . . . 8 ((𝜑𝑥 = 0) → (0↑𝑁) = 0)
203200, 202eqtrd 2765 . . . . . . 7 ((𝜑𝑥 = 0) → ((sin‘𝑥)↑𝑁) = 0)
204203oveq1d 7434 . . . . . 6 ((𝜑𝑥 = 0) → (((sin‘𝑥)↑𝑁) · -(cos‘𝑥)) = (0 · -(cos‘𝑥)))
205 id 22 . . . . . . . . . 10 (𝑥 = 0 → 𝑥 = 0)
206 0cn 11238 . . . . . . . . . 10 0 ∈ ℂ
207205, 206eqeltrdi 2833 . . . . . . . . 9 (𝑥 = 0 → 𝑥 ∈ ℂ)
208 coscl 16107 . . . . . . . . . 10 (𝑥 ∈ ℂ → (cos‘𝑥) ∈ ℂ)
209208negcld 11590 . . . . . . . . 9 (𝑥 ∈ ℂ → -(cos‘𝑥) ∈ ℂ)
210207, 209syl 17 . . . . . . . 8 (𝑥 = 0 → -(cos‘𝑥) ∈ ℂ)
211210adantl 480 . . . . . . 7 ((𝜑𝑥 = 0) → -(cos‘𝑥) ∈ ℂ)
212211mul02d 11444 . . . . . 6 ((𝜑𝑥 = 0) → (0 · -(cos‘𝑥)) = 0)
213204, 212eqtrd 2765 . . . . 5 ((𝜑𝑥 = 0) → (((sin‘𝑥)↑𝑁) · -(cos‘𝑥)) = 0)
214 fveq2 6896 . . . . . . . . . . 11 (𝑥 = π → (sin‘𝑥) = (sin‘π))
215 sinpi 26437 . . . . . . . . . . 11 (sin‘π) = 0
216214, 215eqtrdi 2781 . . . . . . . . . 10 (𝑥 = π → (sin‘𝑥) = 0)
217216oveq1d 7434 . . . . . . . . 9 (𝑥 = π → ((sin‘𝑥)↑𝑁) = (0↑𝑁))
218217adantl 480 . . . . . . . 8 ((𝜑𝑥 = π) → ((sin‘𝑥)↑𝑁) = (0↑𝑁))
21919adantr 479 . . . . . . . . 9 ((𝜑𝑥 = π) → 𝑁 ∈ ℕ)
2202190expd 14139 . . . . . . . 8 ((𝜑𝑥 = π) → (0↑𝑁) = 0)
221218, 220eqtrd 2765 . . . . . . 7 ((𝜑𝑥 = π) → ((sin‘𝑥)↑𝑁) = 0)
222221oveq1d 7434 . . . . . 6 ((𝜑𝑥 = π) → (((sin‘𝑥)↑𝑁) · -(cos‘𝑥)) = (0 · -(cos‘𝑥)))
223 id 22 . . . . . . . . . . 11 (𝑥 = π → 𝑥 = π)
224 picn 26439 . . . . . . . . . . 11 π ∈ ℂ
225223, 224eqeltrdi 2833 . . . . . . . . . 10 (𝑥 = π → 𝑥 ∈ ℂ)
226225coscld 16111 . . . . . . . . 9 (𝑥 = π → (cos‘𝑥) ∈ ℂ)
227226negcld 11590 . . . . . . . 8 (𝑥 = π → -(cos‘𝑥) ∈ ℂ)
228227adantl 480 . . . . . . 7 ((𝜑𝑥 = π) → -(cos‘𝑥) ∈ ℂ)
229228mul02d 11444 . . . . . 6 ((𝜑𝑥 = π) → (0 · -(cos‘𝑥)) = 0)
230222, 229eqtrd 2765 . . . . 5 ((𝜑𝑥 = π) → (((sin‘𝑥)↑𝑁) · -(cos‘𝑥)) = 0)
2314, 6, 9, 37, 53, 80, 81, 104, 122, 183, 195, 213, 230itgparts 26026 . . . 4 (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑𝑁) · (sin‘𝑥)) d𝑥 = ((0 − 0) − ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥))
232 df-neg 11479 . . . . 5 -∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥 = (0 − ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥)
233232a1i 11 . . . 4 (𝜑 → -∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥 = (0 − ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥))
2342, 231, 2333eqtr4a 2791 . . 3 (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑𝑁) · (sin‘𝑥)) d𝑥 = -∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥)
23576, 78, 78mulassd 11269 . . . . . . . . 9 ((𝜑𝑥 ∈ (0(,)π)) → (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · (cos‘𝑥)) = ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · ((cos‘𝑥) · (cos‘𝑥))))
236 sqval 14115 . . . . . . . . . . . . . 14 ((cos‘𝑥) ∈ ℂ → ((cos‘𝑥)↑2) = ((cos‘𝑥) · (cos‘𝑥)))
237236eqcomd 2731 . . . . . . . . . . . . 13 ((cos‘𝑥) ∈ ℂ → ((cos‘𝑥) · (cos‘𝑥)) = ((cos‘𝑥)↑2))
23877, 237syl 17 . . . . . . . . . . . 12 (𝑥 ∈ (0(,)π) → ((cos‘𝑥) · (cos‘𝑥)) = ((cos‘𝑥)↑2))
239238adantl 480 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (0(,)π)) → ((cos‘𝑥) · (cos‘𝑥)) = ((cos‘𝑥)↑2))
240239oveq2d 7435 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0(,)π)) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · ((cos‘𝑥) · (cos‘𝑥))) = ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · ((cos‘𝑥)↑2)))
24177sqcld 14144 . . . . . . . . . . . 12 (𝑥 ∈ (0(,)π) → ((cos‘𝑥)↑2) ∈ ℂ)
242241adantl 480 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (0(,)π)) → ((cos‘𝑥)↑2) ∈ ℂ)
24370, 75, 242mulassd 11269 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0(,)π)) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · ((cos‘𝑥)↑2)) = (𝑁 · (((sin‘𝑥)↑(𝑁 − 1)) · ((cos‘𝑥)↑2))))
244240, 243eqtrd 2765 . . . . . . . . 9 ((𝜑𝑥 ∈ (0(,)π)) → ((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · ((cos‘𝑥) · (cos‘𝑥))) = (𝑁 · (((sin‘𝑥)↑(𝑁 − 1)) · ((cos‘𝑥)↑2))))
24575, 242mulcomd 11267 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0(,)π)) → (((sin‘𝑥)↑(𝑁 − 1)) · ((cos‘𝑥)↑2)) = (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))))
246245oveq2d 7435 . . . . . . . . 9 ((𝜑𝑥 ∈ (0(,)π)) → (𝑁 · (((sin‘𝑥)↑(𝑁 − 1)) · ((cos‘𝑥)↑2))) = (𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))))
247235, 244, 2463eqtrd 2769 . . . . . . . 8 ((𝜑𝑥 ∈ (0(,)π)) → (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · (cos‘𝑥)) = (𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))))
248247negeqd 11486 . . . . . . 7 ((𝜑𝑥 ∈ (0(,)π)) → -(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · (cos‘𝑥)) = -(𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))))
24979, 78mulneg2d 11700 . . . . . . 7 ((𝜑𝑥 ∈ (0(,)π)) → (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) = -(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · (cos‘𝑥)))
250242, 75mulcld 11266 . . . . . . . 8 ((𝜑𝑥 ∈ (0(,)π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) ∈ ℂ)
25170, 250mulneg1d 11699 . . . . . . 7 ((𝜑𝑥 ∈ (0(,)π)) → (-𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) = -(𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))))
252248, 249, 2513eqtr4d 2775 . . . . . 6 ((𝜑𝑥 ∈ (0(,)π)) → (((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) = (-𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))))
253252itgeq2dv 25755 . . . . 5 (𝜑 → ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥 = ∫(0(,)π)(-𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) d𝑥)
25456negcld 11590 . . . . . 6 (𝜑 → -𝑁 ∈ ℂ)
25538sqcld 14144 . . . . . . . . 9 (𝑥 ∈ (0[,]π) → ((cos‘𝑥)↑2) ∈ ℂ)
256255adantl 480 . . . . . . . 8 ((𝜑𝑥 ∈ (0[,]π)) → ((cos‘𝑥)↑2) ∈ ℂ)
257256, 107mulcld 11266 . . . . . . 7 ((𝜑𝑥 ∈ (0[,]π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) ∈ ℂ)
258 itgsinexplem1.6 . . . . . . . . . . . . 13 𝑀 = (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))))
259258fvmpt2 7015 . . . . . . . . . . . 12 ((𝑥 ∈ ℂ ∧ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) ∈ ℂ) → (𝑀𝑥) = (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))))
26016, 257, 259syl2anc 582 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (0[,]π)) → (𝑀𝑥) = (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))))
261260eqcomd 2731 . . . . . . . . . 10 ((𝜑𝑥 ∈ (0[,]π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) = (𝑀𝑥))
262261mpteq2dva 5249 . . . . . . . . 9 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) = (𝑥 ∈ (0[,]π) ↦ (𝑀𝑥)))
263 nfmpt1 5257 . . . . . . . . . . 11 𝑥(𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))))
264258, 263nfcxfr 2889 . . . . . . . . . 10 𝑥𝑀
265 nfcv 2891 . . . . . . . . . . . . 13 𝑥cos
266 2nn0 12522 . . . . . . . . . . . . . 14 2 ∈ ℕ0
267266a1i 11 . . . . . . . . . . . . 13 (𝜑 → 2 ∈ ℕ0)
268265, 49, 267expcnfg 45114 . . . . . . . . . . . 12 (𝜑 → (𝑥 ∈ ℂ ↦ ((cos‘𝑥)↑2)) ∈ (ℂ–cn→ℂ))
269268, 60mulcncf 25418 . . . . . . . . . . 11 (𝜑 → (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ (ℂ–cn→ℂ))
270258, 269eqeltrid 2829 . . . . . . . . . 10 (𝜑𝑀 ∈ (ℂ–cn→ℂ))
271264, 270, 35cncfmptss 45110 . . . . . . . . 9 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (𝑀𝑥)) ∈ ((0[,]π)–cn→ℂ))
272262, 271eqeltrd 2825 . . . . . . . 8 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ ((0[,]π)–cn→ℂ))
273 cniccibl 25814 . . . . . . . 8 ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ 𝐿1)
2744, 6, 272, 273syl3anc 1368 . . . . . . 7 (𝜑 → (𝑥 ∈ (0[,]π) ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ 𝐿1)
27583, 85, 257, 274iblss 25778 . . . . . 6 (𝜑 → (𝑥 ∈ (0(,)π) ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) ∈ 𝐿1)
276254, 250, 275itgmulc2 25807 . . . . 5 (𝜑 → (-𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥) = ∫(0(,)π)(-𝑁 · (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1)))) d𝑥)
277253, 276eqtr4d 2768 . . . 4 (𝜑 → ∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥 = (-𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
278277negeqd 11486 . . 3 (𝜑 → -∫(0(,)π)(((𝑁 · ((sin‘𝑥)↑(𝑁 − 1))) · (cos‘𝑥)) · -(cos‘𝑥)) d𝑥 = -(-𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
279234, 278eqtrd 2765 . 2 (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑𝑁) · (sin‘𝑥)) d𝑥 = -(-𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
280250, 275itgcl 25757 . . . 4 (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥 ∈ ℂ)
28156, 280mulneg1d 11699 . . 3 (𝜑 → (-𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥) = -(𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
282281negeqd 11486 . 2 (𝜑 → -(-𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥) = --(𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
28356, 280mulcld 11266 . . 3 (𝜑 → (𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥) ∈ ℂ)
284283negnegd 11594 . 2 (𝜑 → --(𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥) = (𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
285279, 282, 2843eqtrd 2769 1 (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑𝑁) · (sin‘𝑥)) d𝑥 = (𝑁 · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 1))) d𝑥))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 394  wal 1531   = wceq 1533  wcel 2098  {crab 3418  Vcvv 3461  wss 3944  {cpr 4632   class class class wbr 5149  cmpt 5232  dom cdm 5678  ran crn 5679  cres 5680  wf 6545  cfv 6549  (class class class)co 7419  cc 11138  cr 11139  0cc0 11140  1c1 11141   · cmul 11145  cle 11281  cmin 11476  -cneg 11477  cn 12245  2c2 12300  0cn0 12505  (,)cioo 13359  [,]cicc 13362  cexp 14062  sincsin 16043  cosccos 16044  πcpi 16046  TopOpenctopn 17406  topGenctg 17422  fldccnfld 21296  intcnt 22965  cnccncf 24840  volcvol 25436  𝐿1cibl 25590  citg 25591   D cdv 25836
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5286  ax-sep 5300  ax-nul 5307  ax-pow 5365  ax-pr 5429  ax-un 7741  ax-inf2 9666  ax-cc 10460  ax-cnex 11196  ax-resscn 11197  ax-1cn 11198  ax-icn 11199  ax-addcl 11200  ax-addrcl 11201  ax-mulcl 11202  ax-mulrcl 11203  ax-mulcom 11204  ax-addass 11205  ax-mulass 11206  ax-distr 11207  ax-i2m1 11208  ax-1ne0 11209  ax-1rid 11210  ax-rnegex 11211  ax-rrecex 11212  ax-cnre 11213  ax-pre-lttri 11214  ax-pre-lttrn 11215  ax-pre-ltadd 11216  ax-pre-mulgt0 11217  ax-pre-sup 11218  ax-addf 11219
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2930  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3419  df-v 3463  df-sbc 3774  df-csb 3890  df-dif 3947  df-un 3949  df-in 3951  df-ss 3961  df-pss 3964  df-symdif 4241  df-nul 4323  df-if 4531  df-pw 4606  df-sn 4631  df-pr 4633  df-tp 4635  df-op 4637  df-uni 4910  df-int 4951  df-iun 4999  df-iin 5000  df-disj 5115  df-br 5150  df-opab 5212  df-mpt 5233  df-tr 5267  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-se 5634  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6307  df-ord 6374  df-on 6375  df-lim 6376  df-suc 6377  df-iota 6501  df-fun 6551  df-fn 6552  df-f 6553  df-f1 6554  df-fo 6555  df-f1o 6556  df-fv 6557  df-isom 6558  df-riota 7375  df-ov 7422  df-oprab 7423  df-mpo 7424  df-of 7685  df-ofr 7686  df-om 7872  df-1st 7994  df-2nd 7995  df-supp 8166  df-frecs 8287  df-wrecs 8318  df-recs 8392  df-rdg 8431  df-1o 8487  df-2o 8488  df-oadd 8491  df-omul 8492  df-er 8725  df-map 8847  df-pm 8848  df-ixp 8917  df-en 8965  df-dom 8966  df-sdom 8967  df-fin 8968  df-fsupp 9388  df-fi 9436  df-sup 9467  df-inf 9468  df-oi 9535  df-dju 9926  df-card 9964  df-acn 9967  df-pnf 11282  df-mnf 11283  df-xr 11284  df-ltxr 11285  df-le 11286  df-sub 11478  df-neg 11479  df-div 11904  df-nn 12246  df-2 12308  df-3 12309  df-4 12310  df-5 12311  df-6 12312  df-7 12313  df-8 12314  df-9 12315  df-n0 12506  df-z 12592  df-dec 12711  df-uz 12856  df-q 12966  df-rp 13010  df-xneg 13127  df-xadd 13128  df-xmul 13129  df-ioo 13363  df-ioc 13364  df-ico 13365  df-icc 13366  df-fz 13520  df-fzo 13663  df-fl 13793  df-mod 13871  df-seq 14003  df-exp 14063  df-fac 14269  df-bc 14298  df-hash 14326  df-shft 15050  df-cj 15082  df-re 15083  df-im 15084  df-sqrt 15218  df-abs 15219  df-limsup 15451  df-clim 15468  df-rlim 15469  df-sum 15669  df-ef 16047  df-sin 16049  df-cos 16050  df-pi 16052  df-struct 17119  df-sets 17136  df-slot 17154  df-ndx 17166  df-base 17184  df-ress 17213  df-plusg 17249  df-mulr 17250  df-starv 17251  df-sca 17252  df-vsca 17253  df-ip 17254  df-tset 17255  df-ple 17256  df-ds 17258  df-unif 17259  df-hom 17260  df-cco 17261  df-rest 17407  df-topn 17408  df-0g 17426  df-gsum 17427  df-topgen 17428  df-pt 17429  df-prds 17432  df-xrs 17487  df-qtop 17492  df-imas 17493  df-xps 17495  df-mre 17569  df-mrc 17570  df-acs 17572  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-submnd 18744  df-mulg 19032  df-cntz 19280  df-cmn 19749  df-psmet 21288  df-xmet 21289  df-met 21290  df-bl 21291  df-mopn 21292  df-fbas 21293  df-fg 21294  df-cnfld 21297  df-top 22840  df-topon 22857  df-topsp 22879  df-bases 22893  df-cld 22967  df-ntr 22968  df-cls 22969  df-nei 23046  df-lp 23084  df-perf 23085  df-cn 23175  df-cnp 23176  df-haus 23263  df-cmp 23335  df-tx 23510  df-hmeo 23703  df-fil 23794  df-fm 23886  df-flim 23887  df-flf 23888  df-xms 24270  df-ms 24271  df-tms 24272  df-cncf 24842  df-ovol 25437  df-vol 25438  df-mbf 25592  df-itg1 25593  df-itg2 25594  df-ibl 25595  df-itg 25596  df-0p 25643  df-limc 25839  df-dv 25840
This theorem is referenced by:  itgsinexp  45478
  Copyright terms: Public domain W3C validator