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 45932

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 12860	. . . . . . . 8 ⊢ (𝑁 ∈ (ℤ_≥‘2) → 𝑁 ∈ ℤ)
3		zcn 12591	. . . . . . . 8 ⊢ (𝑁 ∈ ℤ → 𝑁 ∈ ℂ)
4	1, 2, 3	3syl 18	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℂ)
5		1cnd 11228	. . . . . . 7 ⊢ (𝜑 → 1 ∈ ℂ)
6	4, 5	npcand 11596	. . . . . 6 ⊢ (𝜑 → ((𝑁 − 1) + 1) = 𝑁)
7	6	eqcomd 2741	. . . . 5 ⊢ (𝜑 → 𝑁 = ((𝑁 − 1) + 1))
8	7	oveq1d 7418	. . . 4 ⊢ (𝜑 → (𝑁 · (𝐼‘𝑁)) = (((𝑁 − 1) + 1) · (𝐼‘𝑁)))
9		uz2m1nn 12937	. . . . . . 7 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (𝑁 − 1) ∈ ℕ)
10	1, 9	syl 17	. . . . . 6 ⊢ (𝜑 → (𝑁 − 1) ∈ ℕ)
11	10	nncnd 12254	. . . . 5 ⊢ (𝜑 → (𝑁 − 1) ∈ ℂ)
12		itgsinexp.1	. . . . . . . 8 ⊢ 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
13	12	a1i 11	. . . . . . 7 ⊢ (𝜑 → 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥))
14		oveq2 7411	. . . . . . . . 9 ⊢ (𝑛 = 𝑁 → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑𝑁))
15	14	ad2antlr 727	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 = 𝑁) ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑𝑁))
16	15	itgeq2dv 25733	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 = 𝑁) → ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥 = ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)
17		2cnd 12316	. . . . . . . . 9 ⊢ (𝜑 → 2 ∈ ℂ)
18		npcan 11489	. . . . . . . . . 10 ⊢ ((𝑁 ∈ ℂ ∧ 2 ∈ ℂ) → ((𝑁 − 2) + 2) = 𝑁)
19	18	eqcomd 2741	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℂ ∧ 2 ∈ ℂ) → 𝑁 = ((𝑁 − 2) + 2))
20	4, 17, 19	syl2anc 584	. . . . . . . 8 ⊢ (𝜑 → 𝑁 = ((𝑁 − 2) + 2))
21		uznn0sub 12889	. . . . . . . . . 10 ⊢ (𝑁 ∈ (ℤ_≥‘2) → (𝑁 − 2) ∈ ℕ₀)
22	1, 21	syl 17	. . . . . . . . 9 ⊢ (𝜑 → (𝑁 − 2) ∈ ℕ₀)
23		2nn0 12516	. . . . . . . . . 10 ⊢ 2 ∈ ℕ₀
24	23	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 2 ∈ ℕ₀)
25	22, 24	nn0addcld 12564	. . . . . . . 8 ⊢ (𝜑 → ((𝑁 − 2) + 2) ∈ ℕ₀)
26	20, 25	eqeltrd 2834	. . . . . . 7 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
27		itgex 25721	. . . . . . . 8 ⊢ ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 ∈ V
28	27	a1i 11	. . . . . . 7 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 ∈ V)
29	13, 16, 26, 28	fvmptd 6992	. . . . . 6 ⊢ (𝜑 → (𝐼‘𝑁) = ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)
30		ioosscn 13423	. . . . . . . . . . 11 ⊢ (0(,)π) ⊆ ℂ
31	30	sseli 3954	. . . . . . . . . 10 ⊢ (𝑥 ∈ (0(,)π) → 𝑥 ∈ ℂ)
32	31	sincld 16146	. . . . . . . . 9 ⊢ (𝑥 ∈ (0(,)π) → (sin‘𝑥) ∈ ℂ)
33	32	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (sin‘𝑥) ∈ ℂ)
34	26	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → 𝑁 ∈ ℕ₀)
35	33, 34	expcld 14162	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
36		ioossicc 13448	. . . . . . . . 9 ⊢ (0(,)π) ⊆ (0[,]π)
37	36	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (0(,)π) ⊆ (0[,]π))
38		ioombl 25516	. . . . . . . . 9 ⊢ (0(,)π) ∈ dom vol
39	38	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (0(,)π) ∈ dom vol)
40		0re 11235	. . . . . . . . . . . . . 14 ⊢ 0 ∈ ℝ
41		pire 26416	. . . . . . . . . . . . . 14 ⊢ π ∈ ℝ
42		iccssre 13444	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℝ ∧ π ∈ ℝ) → (0[,]π) ⊆ ℝ)
43	40, 41, 42	mp2an 692	. . . . . . . . . . . . 13 ⊢ (0[,]π) ⊆ ℝ
44		ax-resscn 11184	. . . . . . . . . . . . 13 ⊢ ℝ ⊆ ℂ
45	43, 44	sstri 3968	. . . . . . . . . . . 12 ⊢ (0[,]π) ⊆ ℂ
46	45	sseli 3954	. . . . . . . . . . 11 ⊢ (𝑥 ∈ (0[,]π) → 𝑥 ∈ ℂ)
47	46	sincld 16146	. . . . . . . . . 10 ⊢ (𝑥 ∈ (0[,]π) → (sin‘𝑥) ∈ ℂ)
48	47	adantl 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → (sin‘𝑥) ∈ ℂ)
49	26	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → 𝑁 ∈ ℕ₀)
50	48, 49	expcld 14162	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑𝑁) ∈ ℂ)
51	40	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → 0 ∈ ℝ)
52	41	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → π ∈ ℝ)
53	46	adantl 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → 𝑥 ∈ ℂ)
54		eqid 2735	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
55	54	fvmpt2 6996	. . . . . . . . . . . . 13 ⊢ ((𝑥 ∈ ℂ ∧ ((sin‘𝑥)↑𝑁) ∈ ℂ) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥) = ((sin‘𝑥)↑𝑁))
56	53, 50, 55	syl2anc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥) = ((sin‘𝑥)↑𝑁))
57	56	eqcomd 2741	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑𝑁) = ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥))
58	57	mpteq2dva 5214	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) = (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥)))
59		nfmpt1 5220	. . . . . . . . . . 11 ⊢ Ⅎ𝑥(𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))
60		nfcv 2898	. . . . . . . . . . . 12 ⊢ Ⅎ𝑥sin
61		sincn 26404	. . . . . . . . . . . . 13 ⊢ sin ∈ (ℂ–cn→ℂ)
62	61	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → sin ∈ (ℂ–cn→ℂ))
63	60, 62, 26	expcnfg 45568	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁)) ∈ (ℂ–cn→ℂ))
64	45	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (0[,]π) ⊆ ℂ)
65	59, 63, 64	cncfmptss 45564	. . . . . . . . . 10 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑𝑁))‘𝑥)) ∈ ((0[,]π)–cn→ℂ))
66	58, 65	eqeltrd 2834	. . . . . . . . 9 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ ((0[,]π)–cn→ℂ))
67		cniccibl 25792	. . . . . . . . 9 ⊢ ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ 𝐿¹)
68	51, 52, 66, 67	syl3anc 1373	. . . . . . . 8 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑𝑁)) ∈ 𝐿¹)
69	37, 39, 50, 68	iblss 25756	. . . . . . 7 ⊢ (𝜑 → (𝑥 ∈ (0(,)π) ↦ ((sin‘𝑥)↑𝑁)) ∈ 𝐿¹)
70	35, 69	itgcl 25735	. . . . . 6 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 ∈ ℂ)
71	29, 70	eqeltrd 2834	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑁) ∈ ℂ)
72	11, 71	adddirp1d 11259	. . . 4 ⊢ (𝜑 → (((𝑁 − 1) + 1) · (𝐼‘𝑁)) = (((𝑁 − 1) · (𝐼‘𝑁)) + (𝐼‘𝑁)))
73		eluz2b2 12935	. . . . . . . . . . . 12 ⊢ (𝑁 ∈ (ℤ_≥‘2) ↔ (𝑁 ∈ ℕ ∧ 1 < 𝑁))
74	1, 73	sylib 218	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 ∈ ℕ ∧ 1 < 𝑁))
75	74	simpld 494	. . . . . . . . . 10 ⊢ (𝜑 → 𝑁 ∈ ℕ)
76		expm1t 14106	. . . . . . . . . 10 ⊢ (((sin‘𝑥) ∈ ℂ ∧ 𝑁 ∈ ℕ) → ((sin‘𝑥)↑𝑁) = (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)))
77	32, 75, 76	syl2anr 597	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑁) = (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)))
78	77	itgeq2dv 25733	. . . . . . . 8 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥 = ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)) d𝑥)
79		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 1))) = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 1)))
80		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ -(cos‘𝑥)) = (𝑥 ∈ ℂ ↦ -(cos‘𝑥))
81		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ (((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥))) = (𝑥 ∈ ℂ ↦ (((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥)))
82		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥))) = (𝑥 ∈ ℂ ↦ (((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)))
83		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ ((((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥)) · -(cos‘𝑥))) = (𝑥 ∈ ℂ ↦ ((((𝑁 − 1) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) · (cos‘𝑥)) · -(cos‘𝑥)))
84		eqid 2735	. . . . . . . . . 10 ⊢ (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1)))) = (𝑥 ∈ ℂ ↦ (((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))))
85	79, 80, 81, 82, 83, 84, 10	itgsinexplem1 45931	. . . . . . . . 9 ⊢ (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)) d𝑥 = ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) d𝑥))
86	4, 5, 5	subsub4d 11623	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((𝑁 − 1) − 1) = (𝑁 − (1 + 1)))
87		1p1e2 12363	. . . . . . . . . . . . . . . . 17 ⊢ (1 + 1) = 2
88	87	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (1 + 1) = 2)
89	88	oveq2d 7419	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 − (1 + 1)) = (𝑁 − 2))
90	86, 89	eqtrd 2770	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 − 1) − 1) = (𝑁 − 2))
91	90	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((𝑁 − 1) − 1) = (𝑁 − 2))
92	91	oveq2d 7419	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑((𝑁 − 1) − 1)) = ((sin‘𝑥)↑(𝑁 − 2)))
93	92	oveq2d 7419	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) = (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))))
94	93	itgeq2dv 25733	. . . . . . . . . 10 ⊢ (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) d𝑥 = ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥)
95	94	oveq2d 7419	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑((𝑁 − 1) − 1))) d𝑥) = ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥))
96		sincossq 16192	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℂ → (((sin‘𝑥)↑2) + ((cos‘𝑥)↑2)) = 1)
97		1cnd 11228	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → 1 ∈ ℂ)
98		sincl 16142	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℂ → (sin‘𝑥) ∈ ℂ)
99	98	sqcld 14160	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → ((sin‘𝑥)↑2) ∈ ℂ)
100		coscl 16143	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℂ → (cos‘𝑥) ∈ ℂ)
101	100	sqcld 14160	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑥 ∈ ℂ → ((cos‘𝑥)↑2) ∈ ℂ)
102	97, 99, 101	subaddd 11610	. . . . . . . . . . . . . . . . 17 ⊢ (𝑥 ∈ ℂ → ((1 − ((sin‘𝑥)↑2)) = ((cos‘𝑥)↑2) ↔ (((sin‘𝑥)↑2) + ((cos‘𝑥)↑2)) = 1))
103	96, 102	mpbird 257	. . . . . . . . . . . . . . . 16 ⊢ (𝑥 ∈ ℂ → (1 − ((sin‘𝑥)↑2)) = ((cos‘𝑥)↑2))
104	103	eqcomd 2741	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ ℂ → ((cos‘𝑥)↑2) = (1 − ((sin‘𝑥)↑2)))
105	31, 104	syl 17	. . . . . . . . . . . . . 14 ⊢ (𝑥 ∈ (0(,)π) → ((cos‘𝑥)↑2) = (1 − ((sin‘𝑥)↑2)))
106	105	oveq1d 7418	. . . . . . . . . . . . 13 ⊢ (𝑥 ∈ (0(,)π) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) = ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))))
107	106	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) = ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))))
108	107	itgeq2dv 25733	. . . . . . . . . . 11 ⊢ (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥 = ∫(0(,)π)((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥)
109		1cnd 11228	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → 1 ∈ ℂ)
110	32	sqcld 14160	. . . . . . . . . . . . . . 15 ⊢ (𝑥 ∈ (0(,)π) → ((sin‘𝑥)↑2) ∈ ℂ)
111	110	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑2) ∈ ℂ)
112	90	eqcomd 2741	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑁 − 2) = ((𝑁 − 1) − 1))
113		nnm1nn0 12540	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑁 − 1) ∈ ℕ → ((𝑁 − 1) − 1) ∈ ℕ₀)
114	10, 113	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → ((𝑁 − 1) − 1) ∈ ℕ₀)
115	112, 114	eqeltrd 2834	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑁 − 2) ∈ ℕ₀)
116	115	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (𝑁 − 2) ∈ ℕ₀)
117	33, 116	expcld 14162	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(𝑁 − 2)) ∈ ℂ)
118	109, 111, 117	subdird 11692	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) = ((1 · ((sin‘𝑥)↑(𝑁 − 2))) − (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2)))))
119	117	mullidd 11251	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (1 · ((sin‘𝑥)↑(𝑁 − 2))) = ((sin‘𝑥)↑(𝑁 − 2)))
120	23	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → 2 ∈ ℕ₀)
121	33, 116, 120	expaddd 14164	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(2 + (𝑁 − 2))) = (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))))
122	17, 4	pncan3d 11595	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2 + (𝑁 − 2)) = 𝑁)
123	122	oveq2d 7419	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((sin‘𝑥)↑(2 + (𝑁 − 2))) = ((sin‘𝑥)↑𝑁))
124	123	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑(2 + (𝑁 − 2))) = ((sin‘𝑥)↑𝑁))
125	121, 124	eqtr3d 2772	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) = ((sin‘𝑥)↑𝑁))
126	119, 125	oveq12d 7421	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((1 · ((sin‘𝑥)↑(𝑁 − 2))) − (((sin‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2)))) = (((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)))
127	118, 126	eqtrd 2770	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑥 ∈ (0(,)π)) → ((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) = (((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)))
128	127	itgeq2dv 25733	. . . . . . . . . . 11 ⊢ (𝜑 → ∫(0(,)π)((1 − ((sin‘𝑥)↑2)) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥 = ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)) d𝑥)
129	115	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → (𝑁 − 2) ∈ ℕ₀)
130	48, 129	expcld 14162	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑(𝑁 − 2)) ∈ ℂ)
131		eqid 2735	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2))) = (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))
132	131	fvmpt2 6996	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑥 ∈ ℂ ∧ ((sin‘𝑥)↑(𝑁 − 2)) ∈ ℂ) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥) = ((sin‘𝑥)↑(𝑁 − 2)))
133	53, 130, 132	syl2anc 584	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥) = ((sin‘𝑥)↑(𝑁 − 2)))
134	133	eqcomd 2741	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑥 ∈ (0[,]π)) → ((sin‘𝑥)↑(𝑁 − 2)) = ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥))
135	134	mpteq2dva 5214	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) = (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥)))
136		nfmpt1 5220	. . . . . . . . . . . . . . . 16 ⊢ Ⅎ𝑥(𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))
137	60, 62, 115	expcnfg 45568	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ (ℂ–cn→ℂ))
138	136, 137, 64	cncfmptss 45564	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((𝑥 ∈ ℂ ↦ ((sin‘𝑥)↑(𝑁 − 2)))‘𝑥)) ∈ ((0[,]π)–cn→ℂ))
139	135, 138	eqeltrd 2834	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ ((0[,]π)–cn→ℂ))
140		cniccibl 25792	. . . . . . . . . . . . . 14 ⊢ ((0 ∈ ℝ ∧ π ∈ ℝ ∧ (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ ((0[,]π)–cn→ℂ)) → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ 𝐿¹)
141	51, 52, 139, 140	syl3anc 1373	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑥 ∈ (0[,]π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ 𝐿¹)
142	37, 39, 130, 141	iblss 25756	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑥 ∈ (0(,)π) ↦ ((sin‘𝑥)↑(𝑁 − 2))) ∈ 𝐿¹)
143	117, 142, 35, 69	itgsub 25777	. . . . . . . . . . 11 ⊢ (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 2)) − ((sin‘𝑥)↑𝑁)) d𝑥 = (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥))
144	108, 128, 143	3eqtrd 2774	. . . . . . . . . 10 ⊢ (𝜑 → ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥 = (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥))
145	144	oveq2d 7419	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 − 1) · ∫(0(,)π)(((cos‘𝑥)↑2) · ((sin‘𝑥)↑(𝑁 − 2))) d𝑥) = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
146	85, 95, 145	3eqtrd 2774	. . . . . . . 8 ⊢ (𝜑 → ∫(0(,)π)(((sin‘𝑥)↑(𝑁 − 1)) · (sin‘𝑥)) d𝑥 = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
147	29, 78, 146	3eqtrd 2774	. . . . . . 7 ⊢ (𝜑 → (𝐼‘𝑁) = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
148		oveq2 7411	. . . . . . . . . . . 12 ⊢ (𝑛 = (𝑁 − 2) → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑(𝑁 − 2)))
149	148	adantr 480	. . . . . . . . . . 11 ⊢ ((𝑛 = (𝑁 − 2) ∧ 𝑥 ∈ (0(,)π)) → ((sin‘𝑥)↑𝑛) = ((sin‘𝑥)↑(𝑁 − 2)))
150	149	itgeq2dv 25733	. . . . . . . . . 10 ⊢ (𝑛 = (𝑁 − 2) → ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥 = ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥)
151		itgex 25721	. . . . . . . . . . 11 ⊢ ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 ∈ V
152	151	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 ∈ V)
153	12, 150, 115, 152	fvmptd3 7008	. . . . . . . . 9 ⊢ (𝜑 → (𝐼‘(𝑁 − 2)) = ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥)
154	153, 29	oveq12d 7421	. . . . . . . 8 ⊢ (𝜑 → ((𝐼‘(𝑁 − 2)) − (𝐼‘𝑁)) = (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥))
155	154	oveq2d 7419	. . . . . . 7 ⊢ (𝜑 → ((𝑁 − 1) · ((𝐼‘(𝑁 − 2)) − (𝐼‘𝑁))) = ((𝑁 − 1) · (∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 − ∫(0(,)π)((sin‘𝑥)↑𝑁) d𝑥)))
156	117, 142	itgcl 25735	. . . . . . . . 9 ⊢ (𝜑 → ∫(0(,)π)((sin‘𝑥)↑(𝑁 − 2)) d𝑥 ∈ ℂ)
157	153, 156	eqeltrd 2834	. . . . . . . 8 ⊢ (𝜑 → (𝐼‘(𝑁 − 2)) ∈ ℂ)
158	11, 157, 71	subdid 11691	. . . . . . 7 ⊢ (𝜑 → ((𝑁 − 1) · ((𝐼‘(𝑁 − 2)) − (𝐼‘𝑁))) = (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))))
159	147, 155, 158	3eqtr2d 2776	. . . . . 6 ⊢ (𝜑 → (𝐼‘𝑁) = (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))))
160	159	eqcomd 2741	. . . . 5 ⊢ (𝜑 → (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))) = (𝐼‘𝑁))
161	11, 157	mulcld 11253	. . . . . 6 ⊢ (𝜑 → ((𝑁 − 1) · (𝐼‘(𝑁 − 2))) ∈ ℂ)
162	11, 71	mulcld 11253	. . . . . 6 ⊢ (𝜑 → ((𝑁 − 1) · (𝐼‘𝑁)) ∈ ℂ)
163	161, 162, 71	subaddd 11610	. . . . 5 ⊢ (𝜑 → ((((𝑁 − 1) · (𝐼‘(𝑁 − 2))) − ((𝑁 − 1) · (𝐼‘𝑁))) = (𝐼‘𝑁) ↔ (((𝑁 − 1) · (𝐼‘𝑁)) + (𝐼‘𝑁)) = ((𝑁 − 1) · (𝐼‘(𝑁 − 2)))))
164	160, 163	mpbid 232	. . . 4 ⊢ (𝜑 → (((𝑁 − 1) · (𝐼‘𝑁)) + (𝐼‘𝑁)) = ((𝑁 − 1) · (𝐼‘(𝑁 − 2))))
165	8, 72, 164	3eqtrd 2774	. . 3 ⊢ (𝜑 → (𝑁 · (𝐼‘𝑁)) = ((𝑁 − 1) · (𝐼‘(𝑁 − 2))))
166	165	oveq1d 7418	. 2 ⊢ (𝜑 → ((𝑁 · (𝐼‘𝑁)) / 𝑁) = (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) / 𝑁))
167	75	nnne0d 12288	. . 3 ⊢ (𝜑 → 𝑁 ≠ 0)
168	71, 4, 167	divcan3d 12020	. 2 ⊢ (𝜑 → ((𝑁 · (𝐼‘𝑁)) / 𝑁) = (𝐼‘𝑁))
169	11, 157, 4, 167	div23d 12052	. 2 ⊢ (𝜑 → (((𝑁 − 1) · (𝐼‘(𝑁 − 2))) / 𝑁) = (((𝑁 − 1) / 𝑁) · (𝐼‘(𝑁 − 2))))
170	166, 168, 169	3eqtr3d 2778	1 ⊢ (𝜑 → (𝐼‘𝑁) = (((𝑁 − 1) / 𝑁) · (𝐼‘(𝑁 − 2))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2108 Vcvv 3459 ⊆ wss 3926 class class class wbr 5119 ↦ cmpt 5201 dom cdm 5654 ‘cfv 6530 (class class class)co 7403 ℂcc 11125 ℝcr 11126 0cc0 11127 1c1 11128 + caddc 11130 · cmul 11132 < clt 11267 − cmin 11464 -cneg 11465 / cdiv 11892 ℕcn 12238 2c2 12293 ℕ₀cn0 12499 ℤcz 12586 ℤ_≥cuz 12850 (,)cioo 13360 [,]cicc 13363 ↑cexp 14077 sincsin 16077 cosccos 16078 πcpi 16080 –cn→ccncf 24818 volcvol 25414 𝐿¹cibl 25568 ∫citg 25569

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2707 ax-rep 5249 ax-sep 5266 ax-nul 5276 ax-pow 5335 ax-pr 5402 ax-un 7727 ax-inf2 9653 ax-cc 10447 ax-cnex 11183 ax-resscn 11184 ax-1cn 11185 ax-icn 11186 ax-addcl 11187 ax-addrcl 11188 ax-mulcl 11189 ax-mulrcl 11190 ax-mulcom 11191 ax-addass 11192 ax-mulass 11193 ax-distr 11194 ax-i2m1 11195 ax-1ne0 11196 ax-1rid 11197 ax-rnegex 11198 ax-rrecex 11199 ax-cnre 11200 ax-pre-lttri 11201 ax-pre-lttrn 11202 ax-pre-ltadd 11203 ax-pre-mulgt0 11204 ax-pre-sup 11205 ax-addf 11206

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2539 df-eu 2568 df-clab 2714 df-cleq 2727 df-clel 2809 df-nfc 2885 df-ne 2933 df-nel 3037 df-ral 3052 df-rex 3061 df-rmo 3359 df-reu 3360 df-rab 3416 df-v 3461 df-sbc 3766 df-csb 3875 df-dif 3929 df-un 3931 df-in 3933 df-ss 3943 df-pss 3946 df-symdif 4228 df-nul 4309 df-if 4501 df-pw 4577 df-sn 4602 df-pr 4604 df-tp 4606 df-op 4608 df-uni 4884 df-int 4923 df-iun 4969 df-iin 4970 df-disj 5087 df-br 5120 df-opab 5182 df-mpt 5202 df-tr 5230 df-id 5548 df-eprel 5553 df-po 5561 df-so 5562 df-fr 5606 df-se 5607 df-we 5608 df-xp 5660 df-rel 5661 df-cnv 5662 df-co 5663 df-dm 5664 df-rn 5665 df-res 5666 df-ima 5667 df-pred 6290 df-ord 6355 df-on 6356 df-lim 6357 df-suc 6358 df-iota 6483 df-fun 6532 df-fn 6533 df-f 6534 df-f1 6535 df-fo 6536 df-f1o 6537 df-fv 6538 df-isom 6539 df-riota 7360 df-ov 7406 df-oprab 7407 df-mpo 7408 df-of 7669 df-ofr 7670 df-om 7860 df-1st 7986 df-2nd 7987 df-supp 8158 df-frecs 8278 df-wrecs 8309 df-recs 8383 df-rdg 8422 df-1o 8478 df-2o 8479 df-oadd 8482 df-omul 8483 df-er 8717 df-map 8840 df-pm 8841 df-ixp 8910 df-en 8958 df-dom 8959 df-sdom 8960 df-fin 8961 df-fsupp 9372 df-fi 9421 df-sup 9452 df-inf 9453 df-oi 9522 df-dju 9913 df-card 9951 df-acn 9954 df-pnf 11269 df-mnf 11270 df-xr 11271 df-ltxr 11272 df-le 11273 df-sub 11466 df-neg 11467 df-div 11893 df-nn 12239 df-2 12301 df-3 12302 df-4 12303 df-5 12304 df-6 12305 df-7 12306 df-8 12307 df-9 12308 df-n0 12500 df-z 12587 df-dec 12707 df-uz 12851 df-q 12963 df-rp 13007 df-xneg 13126 df-xadd 13127 df-xmul 13128 df-ioo 13364 df-ioc 13365 df-ico 13366 df-icc 13367 df-fz 13523 df-fzo 13670 df-fl 13807 df-mod 13885 df-seq 14018 df-exp 14078 df-fac 14290 df-bc 14319 df-hash 14347 df-shft 15084 df-cj 15116 df-re 15117 df-im 15118 df-sqrt 15252 df-abs 15253 df-limsup 15485 df-clim 15502 df-rlim 15503 df-sum 15701 df-ef 16081 df-sin 16083 df-cos 16084 df-pi 16086 df-struct 17164 df-sets 17181 df-slot 17199 df-ndx 17211 df-base 17227 df-ress 17250 df-plusg 17282 df-mulr 17283 df-starv 17284 df-sca 17285 df-vsca 17286 df-ip 17287 df-tset 17288 df-ple 17289 df-ds 17291 df-unif 17292 df-hom 17293 df-cco 17294 df-rest 17434 df-topn 17435 df-0g 17453 df-gsum 17454 df-topgen 17455 df-pt 17456 df-prds 17459 df-xrs 17514 df-qtop 17519 df-imas 17520 df-xps 17522 df-mre 17596 df-mrc 17597 df-acs 17599 df-mgm 18616 df-sgrp 18695 df-mnd 18711 df-submnd 18760 df-mulg 19049 df-cntz 19298 df-cmn 19761 df-psmet 21305 df-xmet 21306 df-met 21307 df-bl 21308 df-mopn 21309 df-fbas 21310 df-fg 21311 df-cnfld 21314 df-top 22830 df-topon 22847 df-topsp 22869 df-bases 22882 df-cld 22955 df-ntr 22956 df-cls 22957 df-nei 23034 df-lp 23072 df-perf 23073 df-cn 23163 df-cnp 23164 df-haus 23251 df-cmp 23323 df-tx 23498 df-hmeo 23691 df-fil 23782 df-fm 23874 df-flim 23875 df-flf 23876 df-xms 24257 df-ms 24258 df-tms 24259 df-cncf 24820 df-ovol 25415 df-vol 25416 df-mbf 25570 df-itg1 25571 df-itg2 25572 df-ibl 25573 df-itg 25574 df-0p 25621 df-limc 25817 df-dv 25818

This theorem is referenced by: wallispilem2 46043 wallispilem4 46045 wallispilem5 46046

W3C validator