itgsinexp - Mathbox for Glauco Siliprandi

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

Theorem itgsinexp 45406

Description: A recursive formula for the integral of sin^N on the interval (0,π) . (Contributed by Glauco Siliprandi, 29-Jun-2017.)

**Hypotheses**
Ref	Expression
itgsinexp.1	⊢ 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
itgsinexp.2	⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))

**Assertion**
Ref	Expression
itgsinexp	⊢ (𝜑 → (𝐼‘𝑁) = (((𝑁 − 1) / 𝑁) · (𝐼‘(𝑁 − 2))))

Distinct variable groups: 𝑥,𝑛,𝑁 𝜑,𝑛,𝑥 Allowed substitution hints: 𝐼(𝑥,𝑛)

**Proof of Theorem itgsinexp**
Step	Hyp	Ref	Expression
1		itgsinexp.2	. . . . . . . 8 ⊢ (𝜑 → 𝑁 ∈ (ℤ_≥‘2))
2		eluzelz 12862	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℤ)
3		zcn 12593	. . . . . . . 8 ⊢ (𝑁 ∈ ℤ → 𝑁 ∈ ℂ)
4	1, 2, 3	3syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℂ)
5		1cnd 11239	. . . . . . 7 ⊢ (𝜑 → 1 ∈ ℂ)
6	4, 5	npcand 11605	. . . . . 6 ⊢ (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
7	6	eqcomd 2731	. . . . 5 ⊢ (𝜑 → 𝑁 = ((𝑁 − 1) + 1))
8	7	oveq1d 7431	. . . 4 ⊢ (𝜑 → (𝑁 · (𝐼‘𝑁)) = (((𝑁 − 1) + 1) · (𝐼‘𝑁)))
9		uz2m1nn 12937	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (𝑁 − 1) ∈ ℕ)
10	1, 9	syl 17	. . . . . 6 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ)
11	10	nncnd 12258	. . . . 5 ⊢ (𝜑 → (𝑁 − 1) ∈ ℂ)
12		itgsinexp.1	. . . . . . . 8 ⊢ 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
13	12	a1i 11	. . . . . . 7 ⊢ (𝜑 → 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥))
14		oveq2 7424	. . . . . . . . 9 ⊢ (𝑛 = 𝑁 → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑𝑁))
15	14	ad2antlr 725	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 = 𝑁) ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑𝑁))
16	15	itgeq2dv 25729	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 = 𝑁) → ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥 = ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)
17		2cnd 12320	. . . . . . . . 9 ⊢ (𝜑 → 2 ∈ ℂ)
18		npcan 11499	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℂ ∧ 2 ∈ ℂ) → ((𝑁 − 2) + 2) = 𝑁)
19	18	eqcomd 2731	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℂ ∧ 2 ∈ ℂ) → 𝑁 = ((𝑁 − 2) + 2))
20	4, 17, 19	syl2anc 582	. . . . . . . 8 ⊢ (𝜑 → 𝑁 = ((𝑁 − 2) + 2))
21		uznn0sub 12891	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (𝑁 − 2) ∈ ℕ₀)
22	1, 21	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑁 − 2) ∈ ℕ₀)
23		2nn0 12519	. . . . . . . . . 10 ⊢ 2 ∈ ℕ₀
24	23	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 2 ∈ ℕ₀)
25	22, 24	nn0addcld 12566	. . . . . . . 8 ⊢ (𝜑 → ((𝑁 − 2) + 2) ∈ ℕ₀)
26	20, 25	eqeltrd 2825	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
27		itgex 25718	. . . . . . . 8 ⊢ ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 ∈ V
28	27	a1i 11	. . . . . . 7 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 ∈ V)
29	13, 16, 26, 28	fvmptd 7007	. . . . . 6 ⊢ (𝜑 → (𝐼‘𝑁) = ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)
30		ioosscn 13418	. . . . . . . . . . 11 ⊢ (0(,)π) ⊆ ℂ
31	30	sseli 3968	. . . . . . . . . 10 ⊢ (𝑥 ∈ (0(,)π) → 𝑥 ∈ ℂ)
32	31	sincld 16106	. . . . . . . . 9 ⊢ (𝑥 ∈ (0(,)π) → (sin‘𝑥) ∈ ℂ)
33	32	adantl 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (sin‘𝑥) ∈ ℂ)
34	26	adantr 479	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → 𝑁 ∈ ℕ₀)
35	33, 34	expcld 14142	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
36		ioossicc 13442	. . . . . . . . 9 ⊢ (0(,)π) ⊆ (0[,]π)
37	36	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (0(,)π) ⊆ (0[,]π))
38		ioombl 25512	. . . . . . . . 9 ⊢ (0(,)π) ∈ dom vol
39	38	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (0(,)π) ∈ dom vol)
40		0re 11246	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
41		pire 26411	. . . . . . . . . . . . . 14 ⊢ π ∈ ℝ
42		iccssre 13438	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℝ ∧ π ∈ ℝ) → (0[,]π) ⊆ ℝ)
43	40, 41, 42	mp2an 690	. . . . . . . . . . . . 13 ⊢ (0[,]π) ⊆ ℝ
44		ax-resscn 11195	. . . . . . . . . . . . 13 ⊢ ℝ ⊆ ℂ
45	43, 44	sstri 3982	. . . . . . . . . . . 12 ⊢ (0[,]π) ⊆ ℂ
46	45	sseli 3968	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (0[,]π) → 𝑥 ∈ ℂ)
47	46	sincld 16106	. . . . . . . . . 10 ⊢ (𝑥 ∈ (0[,]π) → (sin‘𝑥) ∈ ℂ)
48	47	adantl 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → (sin‘𝑥) ∈ ℂ)
49	26	adantr 479	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → 𝑁 ∈ ℕ₀)
50	48, 49	expcld 14142	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
51	40	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 0 ∈ ℝ)
52	41	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → π ∈ ℝ)
53	46	adantl 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → 𝑥 ∈ ℂ)
54		eqid 2725	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
55	54	fvmpt2 7011	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ ℂ ∧ ((sin‘𝑥)↑𝑁) ∈ ℂ) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥) = ((sin‘𝑥)↑𝑁))
56	53, 50, 55	syl2anc 582	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥) = ((sin‘𝑥)↑𝑁))
57	56	eqcomd 2731	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑𝑁) = ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥))
58	57	mpteq2dva 5243	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) = (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥)))
59		nfmpt1 5251	. . . . . . . . . . 11 ⊢ Ⅎ𝑥(𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
60		nfcv 2892	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥sin
61		sincn 26399	. . . . . . . . . . . . 13 ⊢ sin ∈ (ℂ–cn→ℂ)
62	61	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → sin ∈ (ℂ–cn→ℂ))
63	60, 62, 26	expcnfg 45042	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) ∈ (ℂ–cn→ℂ))
64	45	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (0[,]π) ⊆ ℂ)
65	59, 63, 64	cncfmptss 45038	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥)) ∈ ((0[,]π)–cn→ℂ))
66	58, 65	eqeltrd 2825	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ ((0[,]π)–cn→ℂ))
67		cniccibl 25788	. . . . . . . . 9 ⊢ ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ 𝐿¹)
68	51, 52, 66, 67	syl3anc 1368	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ 𝐿¹)
69	37, 39, 50, 68	iblss 25752	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (0(,)π) ↦ ((sin‘𝑥)↑𝑁)) ∈ 𝐿¹)
70	35, 69	itgcl 25731	. . . . . 6 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 ∈ ℂ)
71	29, 70	eqeltrd 2825	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑁) ∈ ℂ)
72	11, 71	adddirp1d 11270	. . . 4 ⊢ (𝜑 → (((𝑁 − 1) + 1) · (𝐼‘𝑁)) = (((𝑁 − 1) · (𝐼‘𝑁)) + (𝐼‘𝑁)))
73		eluz2b2 12935	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ (ℤ_≥‘2) ↔ (𝑁 ∈ ℕ ∧ 1 < 𝑁))
74	1, 73	sylib 217	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 1 < 𝑁))
75	74	simpld 493	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
76		expm1t 14087	. . . . . . . . . 10 ⊢ (((sin‘𝑥) ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((sin‘𝑥)↑𝑁) = (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)))
77	32, 75, 76	syl2anr 595	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑁) = (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)))
78	77	itgeq2dv 25729	. . . . . . . 8 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 = ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)) d𝑥)
79		eqid 2725	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 1))) = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 1)))
80		eqid 2725	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ -(cos‘𝑥)) = (𝑥 ∈ ℂ ↦ -(cos‘𝑥))
81		eqid 2725	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ (((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥))) = (𝑥 ∈ ℂ ↦ (((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥)))
82		eqid 2725	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥))) = (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)))
83		eqid 2725	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ ((((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) = (𝑥 ∈ ℂ ↦ ((((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥)) · -(cos‘𝑥)))
84		eqid 2725	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1)))) = (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))))
85	79, 80, 81, 82, 83, 84, 10	itgsinexplem1 45405	. . . . . . . . 9 ⊢ (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)) d𝑥 = ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) d𝑥))
86	4, 5, 5	subsub4d 11632	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑁 − 1) − 1) = (𝑁 − (1 + 1)))
87		1p1e2 12367	. . . . . . . . . . . . . . . . 17 ⊢ (1 + 1) = 2
88	87	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + 1) = 2)
89	88	oveq2d 7432	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 − (1 + 1)) = (𝑁 − 2))
90	86, 89	eqtrd 2765	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 − 1) − 1) = (𝑁 − 2))
91	90	adantr 479	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((𝑁 − 1) − 1) = (𝑁 − 2))
92	91	oveq2d 7432	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑((𝑁 − 1) − 1)) = ((sin‘𝑥)↑(𝑁 − 2)))
93	92	oveq2d 7432	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) = (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))))
94	93	itgeq2dv 25729	. . . . . . . . . 10 ⊢ (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) d𝑥 = ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥)
95	94	oveq2d 7432	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) d𝑥) = ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥))
96		sincossq 16152	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℂ → (((sin‘𝑥)↑2) + ((cos‘𝑥)↑2)) = 1)
97		1cnd 11239	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → 1 ∈ ℂ)
98		sincl 16102	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℂ → (sin‘𝑥) ∈ ℂ)
99	98	sqcld 14140	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → ((sin‘𝑥)↑2) ∈ ℂ)
100		coscl 16103	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℂ → (cos‘𝑥) ∈ ℂ)
101	100	sqcld 14140	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → ((cos‘𝑥)↑2) ∈ ℂ)
102	97, 99, 101	subaddd 11619	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℂ → ((1 − ((sin‘𝑥)↑2)) = ((cos‘𝑥)↑2) ↔ (((sin‘𝑥)↑2) + ((cos‘𝑥)↑2)) = 1))
103	96, 102	mpbird 256	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ℂ → (1 − ((sin‘𝑥)↑2)) = ((cos‘𝑥)↑2))
104	103	eqcomd 2731	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ ℂ → ((cos‘𝑥)↑2) = (1 − ((sin‘𝑥)↑2)))
105	31, 104	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (0(,)π) → ((cos‘𝑥)↑2) = (1 − ((sin‘𝑥)↑2)))
106	105	oveq1d 7431	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (0(,)π) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) = ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))))
107	106	adantl 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) = ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))))
108	107	itgeq2dv 25729	. . . . . . . . . . 11 ⊢ (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥 = ∫(0(,)π)((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥)
109		1cnd 11239	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → 1 ∈ ℂ)
110	32	sqcld 14140	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (0(,)π) → ((sin‘𝑥)↑2) ∈ ℂ)
111	110	adantl 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑2) ∈ ℂ)
112	90	eqcomd 2731	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑁 − 2) = ((𝑁 − 1) − 1))
113		nnm1nn0 12543	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 − 1) ∈ ℕ → ((𝑁 − 1) − 1) ∈ ℕ₀)
114	10, 113	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑁 − 1) − 1) ∈ ℕ₀)
115	112, 114	eqeltrd 2825	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑁 − 2) ∈ ℕ₀)
116	115	adantr 479	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (𝑁 − 2) ∈ ℕ₀)
117	33, 116	expcld 14142	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(𝑁 − 2)) ∈ ℂ)
118	109, 111, 117	subdird 11701	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) = ((1 · ((sin‘𝑥)↑(𝑁 − 2))) − (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2)))))
119	117	mullidd 11262	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (1 · ((sin‘𝑥)↑(𝑁 − 2))) = ((sin‘𝑥)↑(𝑁 − 2)))
120	23	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → 2 ∈ ℕ₀)
121	33, 116, 120	expaddd 14144	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(2 + (𝑁 − 2))) = (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))))
122	17, 4	pncan3d 11604	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2 + (𝑁 − 2)) = 𝑁)
123	122	oveq2d 7432	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((sin‘𝑥)↑(2 + (𝑁 − 2))) = ((sin‘𝑥)↑𝑁))
124	123	adantr 479	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(2 + (𝑁 − 2))) = ((sin‘𝑥)↑𝑁))
125	121, 124	eqtr3d 2767	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) = ((sin‘𝑥)↑𝑁))
126	119, 125	oveq12d 7434	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((1 · ((sin‘𝑥)↑(𝑁 − 2))) − (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2)))) = (((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)))
127	118, 126	eqtrd 2765	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) = (((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)))
128	127	itgeq2dv 25729	. . . . . . . . . . 11 ⊢ (𝜑 → ∫(0(,)π)((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥 = ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)) d𝑥)
129	115	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → (𝑁 − 2) ∈ ℕ₀)
130	48, 129	expcld 14142	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑(𝑁 − 2)) ∈ ℂ)
131		eqid 2725	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2))) = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))
132	131	fvmpt2 7011	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 ∈ ℂ ∧ ((sin‘𝑥)↑(𝑁 − 2)) ∈ ℂ) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥) = ((sin‘𝑥)↑(𝑁 − 2)))
133	53, 130, 132	syl2anc 582	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥) = ((sin‘𝑥)↑(𝑁 − 2)))
134	133	eqcomd 2731	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑(𝑁 − 2)) = ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥))
135	134	mpteq2dva 5243	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) = (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥)))
136		nfmpt1 5251	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥(𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))
137	60, 62, 115	expcnfg 45042	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ (ℂ–cn→ℂ))
138	136, 137, 64	cncfmptss 45038	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥)) ∈ ((0[,]π)–cn→ℂ))
139	135, 138	eqeltrd 2825	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ ((0[,]π)–cn→ℂ))
140		cniccibl 25788	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ 𝐿¹)
141	51, 52, 139, 140	syl3anc 1368	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ 𝐿¹)
142	37, 39, 130, 141	iblss 25752	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ∈ (0(,)π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ 𝐿¹)
143	117, 142, 35, 69	itgsub 25773	. . . . . . . . . . 11 ⊢ (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)) d𝑥 = (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥))
144	108, 128, 143	3eqtrd 2769	. . . . . . . . . 10 ⊢ (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥 = (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥))
145	144	oveq2d 7432	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥) = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
146	85, 95, 145	3eqtrd 2769	. . . . . . . 8 ⊢ (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)) d𝑥 = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
147	29, 78, 146	3eqtrd 2769	. . . . . . 7 ⊢ (𝜑 → (𝐼‘𝑁) = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
148		oveq2 7424	. . . . . . . . . . . 12 ⊢ (𝑛 = (𝑁 − 2) → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑(𝑁 − 2)))
149	148	adantr 479	. . . . . . . . . . 11 ⊢ ((𝑛 = (𝑁 − 2) ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑(𝑁 − 2)))
150	149	itgeq2dv 25729	. . . . . . . . . 10 ⊢ (𝑛 = (𝑁 − 2) → ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥 = ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥)
151		itgex 25718	. . . . . . . . . . 11 ⊢ ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 ∈ V
152	151	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 ∈ V)
153	12, 150, 115, 152	fvmptd3 7023	. . . . . . . . 9 ⊢ (𝜑 → (𝐼‘(𝑁 − 2)) = ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥)
154	153, 29	oveq12d 7434	. . . . . . . 8 ⊢ (𝜑 → ((𝐼‘(𝑁 − 2)) − (𝐼‘𝑁)) = (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥))
155	154	oveq2d 7432	. . . . . . 7 ⊢ (𝜑 → ((𝑁 − 1) · ((𝐼‘(𝑁 − 2)) − (𝐼‘𝑁))) = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
156	117, 142	itgcl 25731	. . . . . . . . 9 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 ∈ ℂ)
157	153, 156	eqeltrd 2825	. . . . . . . 8 ⊢ (𝜑 → (𝐼‘(𝑁 − 2)) ∈ ℂ)
158	11, 157, 71	subdid 11700	. . . . . . 7 ⊢ (𝜑 → ((𝑁 − 1) · ((𝐼‘(𝑁 − 2)) − (𝐼‘𝑁))) = (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))))
159	147, 155, 158	3eqtr2d 2771	. . . . . 6 ⊢ (𝜑 → (𝐼‘𝑁) = (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))))
160	159	eqcomd 2731	. . . . 5 ⊢ (𝜑 → (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))) = (𝐼‘𝑁))
161	11, 157	mulcld 11264	. . . . . 6 ⊢ (𝜑 → ((𝑁 − 1) · (𝐼‘(𝑁 − 2))) ∈ ℂ)
162	11, 71	mulcld 11264	. . . . . 6 ⊢ (𝜑 → ((𝑁 − 1) · (𝐼‘𝑁)) ∈ ℂ)
163	161, 162, 71	subaddd 11619	. . . . 5 ⊢ (𝜑 → ((((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))) = (𝐼‘𝑁) ↔ (((𝑁 − 1) · (𝐼‘𝑁)) + (𝐼‘𝑁)) = ((𝑁 − 1) · (𝐼‘(𝑁 − 2)))))
164	160, 163	mpbid 231	. . . 4 ⊢ (𝜑 → (((𝑁 − 1) · (𝐼‘𝑁)) + (𝐼‘𝑁)) = ((𝑁 − 1) · (𝐼‘(𝑁 − 2))))
165	8, 72, 164	3eqtrd 2769	. . 3 ⊢ (𝜑 → (𝑁 · (𝐼‘𝑁)) = ((𝑁 − 1) · (𝐼‘(𝑁 − 2))))
166	165	oveq1d 7431	. 2 ⊢ (𝜑 → ((𝑁 · (𝐼‘𝑁)) / 𝑁) = (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) / 𝑁))
167	75	nnne0d 12292	. . 3 ⊢ (𝜑 → 𝑁 ≠ 0)
168	71, 4, 167	divcan3d 12025	. 2 ⊢ (𝜑 → ((𝑁 · (𝐼‘𝑁)) / 𝑁) = (𝐼‘𝑁))
169	11, 157, 4, 167	div23d 12057	. 2 ⊢ (𝜑 → (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) / 𝑁) = (((𝑁 − 1) / 𝑁) · (𝐼‘(𝑁 − 2))))
170	166, 168, 169	3eqtr3d 2773	1 ⊢ (𝜑 → (𝐼‘𝑁) = (((𝑁 − 1) / 𝑁) · (𝐼‘(𝑁 − 2))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 394 = wceq 1533 ∈ wcel 2098 Vcvv 3463 ⊆ wss 3939 class class class wbr 5143 ↦ cmpt 5226 dom cdm 5672 ‘cfv 6543 (class class class)co 7416 ℂcc 11136 ℝcr 11137 0cc0 11138 1c1 11139 + caddc 11141 · cmul 11143 < clt 11278 − cmin 11474 -cneg 11475 / cdiv 11901 ℕcn 12242 2c2 12297 ℕ₀cn0 12502 ℤcz 12588 ℤ_≥cuz 12852 (,)cioo 13356 [,]cicc 13359 ↑cexp 14058 sincsin 16039 cosccos 16040 πcpi 16042 –cn→ccncf 24814 volcvol 25410 𝐿¹cibl 25564 ∫citg 25565

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 5280 ax-sep 5294 ax-nul 5301 ax-pow 5359 ax-pr 5423 ax-un 7738 ax-inf2 9664 ax-cc 10458 ax-cnex 11194 ax-resscn 11195 ax-1cn 11196 ax-icn 11197 ax-addcl 11198 ax-addrcl 11199 ax-mulcl 11200 ax-mulrcl 11201 ax-mulcom 11202 ax-addass 11203 ax-mulass 11204 ax-distr 11205 ax-i2m1 11206 ax-1ne0 11207 ax-1rid 11208 ax-rnegex 11209 ax-rrecex 11210 ax-cnre 11211 ax-pre-lttri 11212 ax-pre-lttrn 11213 ax-pre-ltadd 11214 ax-pre-mulgt0 11215 ax-pre-sup 11216 ax-addf 11217

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 2931 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3465 df-sbc 3769 df-csb 3885 df-dif 3942 df-un 3944 df-in 3946 df-ss 3956 df-pss 3959 df-symdif 4237 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-tp 4629 df-op 4631 df-uni 4904 df-int 4945 df-iun 4993 df-iin 4994 df-disj 5109 df-br 5144 df-opab 5206 df-mpt 5227 df-tr 5261 df-id 5570 df-eprel 5576 df-po 5584 df-so 5585 df-fr 5627 df-se 5628 df-we 5629 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-isom 6552 df-riota 7372 df-ov 7419 df-oprab 7420 df-mpo 7421 df-of 7682 df-ofr 7683 df-om 7869 df-1st 7991 df-2nd 7992 df-supp 8164 df-frecs 8285 df-wrecs 8316 df-recs 8390 df-rdg 8429 df-1o 8485 df-2o 8486 df-oadd 8489 df-omul 8490 df-er 8723 df-map 8845 df-pm 8846 df-ixp 8915 df-en 8963 df-dom 8964 df-sdom 8965 df-fin 8966 df-fsupp 9386 df-fi 9434 df-sup 9465 df-inf 9466 df-oi 9533 df-dju 9924 df-card 9962 df-acn 9965 df-pnf 11280 df-mnf 11281 df-xr 11282 df-ltxr 11283 df-le 11284 df-sub 11476 df-neg 11477 df-div 11902 df-nn 12243 df-2 12305 df-3 12306 df-4 12307 df-5 12308 df-6 12309 df-7 12310 df-8 12311 df-9 12312 df-n0 12503 df-z 12589 df-dec 12708 df-uz 12853 df-q 12963 df-rp 13007 df-xneg 13124 df-xadd 13125 df-xmul 13126 df-ioo 13360 df-ioc 13361 df-ico 13362 df-icc 13363 df-fz 13517 df-fzo 13660 df-fl 13789 df-mod 13867 df-seq 13999 df-exp 14059 df-fac 14265 df-bc 14294 df-hash 14322 df-shft 15046 df-cj 15078 df-re 15079 df-im 15080 df-sqrt 15214 df-abs 15215 df-limsup 15447 df-clim 15464 df-rlim 15465 df-sum 15665 df-ef 16043 df-sin 16045 df-cos 16046 df-pi 16048 df-struct 17115 df-sets 17132 df-slot 17150 df-ndx 17162 df-base 17180 df-ress 17209 df-plusg 17245 df-mulr 17246 df-starv 17247 df-sca 17248 df-vsca 17249 df-ip 17250 df-tset 17251 df-ple 17252 df-ds 17254 df-unif 17255 df-hom 17256 df-cco 17257 df-rest 17403 df-topn 17404 df-0g 17422 df-gsum 17423 df-topgen 17424 df-pt 17425 df-prds 17428 df-xrs 17483 df-qtop 17488 df-imas 17489 df-xps 17491 df-mre 17565 df-mrc 17566 df-acs 17568 df-mgm 18599 df-sgrp 18678 df-mnd 18694 df-submnd 18740 df-mulg 19028 df-cntz 19272 df-cmn 19741 df-psmet 21275 df-xmet 21276 df-met 21277 df-bl 21278 df-mopn 21279 df-fbas 21280 df-fg 21281 df-cnfld 21284 df-top 22814 df-topon 22831 df-topsp 22853 df-bases 22867 df-cld 22941 df-ntr 22942 df-cls 22943 df-nei 23020 df-lp 23058 df-perf 23059 df-cn 23149 df-cnp 23150 df-haus 23237 df-cmp 23309 df-tx 23484 df-hmeo 23677 df-fil 23768 df-fm 23860 df-flim 23861 df-flf 23862 df-xms 24244 df-ms 24245 df-tms 24246 df-cncf 24816 df-ovol 25411 df-vol 25412 df-mbf 25566 df-itg1 25567 df-itg2 25568 df-ibl 25569 df-itg 25570 df-0p 25617 df-limc 25813 df-dv 25814

This theorem is referenced by: wallispilem2 45517 wallispilem4 45519 wallispilem5 45520

W3C validator