wallispilem5 - Mathbox for Glauco Siliprandi

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

Theorem wallispilem5 46841

Description: The sequence 𝐻 converges to 1. (Contributed by Glauco Siliprandi, 30-Jun-2017.)

**Hypotheses**
Ref	Expression
wallispilem5.1	⊢ 𝐹 = (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))))
wallispilem5.2	⊢ 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
wallispilem5.3	⊢ 𝐺 = (𝑛 ∈ ℕ ↦ ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))))
wallispilem5.4	⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))
wallispilem5.5	⊢ 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛)))

**Assertion**
Ref	Expression
wallispilem5	⊢ 𝐻 ⇝ 1

Distinct variable groups: 𝑘,𝑛,𝑥 𝑥,𝐹 𝑘,𝐺 𝑘,𝐿 Allowed substitution hints: 𝐹(𝑘, 𝑛) 𝐺(𝑥, 𝑛) 𝐻(𝑥, 𝑘, 𝑛) 𝐼(𝑥, 𝑘, 𝑛) 𝐿(𝑥, 𝑛)

**Proof of Theorem wallispilem5**
Step	Hyp	Ref	Expression
1		wallispilem5.1	. . 3 ⊢ 𝐹 = (𝑘 ∈ ℕ ↦ (((2 · 𝑘) / ((2 · 𝑘) − 1)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))))
2		wallispilem5.2	. . 3 ⊢ 𝐼 = (𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
3		wallispilem5.3	. . 3 ⊢ 𝐺 = (𝑛 ∈ ℕ ↦ ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))))
4		wallispilem5.4	. . 3 ⊢ 𝐻 = (𝑛 ∈ ℕ ↦ ((π / 2) · (1 / (seq1( · , 𝐹)‘𝑛))))
5	1, 2, 3, 4	wallispilem4 46840	. 2 ⊢ 𝐺 = 𝐻
6		nnuz 12917	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
7		1zzd 12640	. . . 4 ⊢ (⊤ → 1 ∈ ℤ)
8		wallispilem5.5	. . . . 5 ⊢ 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛)))
9		2cnd 12334	. . . . 5 ⊢ (⊤ → 2 ∈ ℂ)
10		2ne0 12362	. . . . . 6 ⊢ 2 ≠ 0
11	10	a1i 11	. . . . 5 ⊢ (⊤ → 2 ≠ 0)
12		1cnd 11217	. . . . 5 ⊢ (⊤ → 1 ∈ ℂ)
13	8, 9, 11, 12	clim1fr1 46375	. . . 4 ⊢ (⊤ → 𝐿 ⇝ 1)
14		nnex 12254	. . . . . . 7 ⊢ ℕ ∈ V
15	14	mptex 7228	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1)))) ∈ V
16	3, 15	eqeltri 2861	. . . . 5 ⊢ 𝐺 ∈ V
17	16	a1i 11	. . . 4 ⊢ (⊤ → 𝐺 ∈ V)
18		2nn0 12536	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ₀
19	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ₀)
20		nnnn0 12526	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
21	19, 20	nn0mulcld 12585	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ₀)
22		1nn0 12535	. . . . . . . . . . 11 ⊢ 1 ∈ ℕ₀
23	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℕ₀)
24	21, 23	nn0addcld 12584	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℕ₀)
25	24	nn0red 12581	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
26	21	nn0red 12581	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
27		2cnd 12334	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
28		nncn 12256	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
29	10	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ≠ 0)
30		nnne0 12285	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
31	27, 28, 29, 30	mulne0d 11881	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
32	25, 26, 31	redivcld 12058	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) + 1) / (2 · 𝑛)) ∈ ℝ)
33	8, 32	fmpti 7111	. . . . . 6 ⊢ 𝐿:ℕ⟶ℝ
34	33	a1i 11	. . . . 5 ⊢ (⊤ → 𝐿:ℕ⟶ℝ)
35	34	ffvelcdmda 7083	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐿‘𝑘) ∈ ℝ)
36	2	wallispilem3 46839	. . . . . . . . . 10 ⊢ ((2 · 𝑛) ∈ ℕ₀ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
37	21, 36	syl 18	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
38	37	rpred 13076	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ)
39	2	wallispilem3 46839	. . . . . . . . 9 ⊢ (((2 · 𝑛) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
40	24, 39	syl 18	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
41	38, 40	rerpdivcld 13107	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) ∈ ℝ)
42	3, 41	fmpti 7111	. . . . . 6 ⊢ 𝐺:ℕ⟶ℝ
43	42	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:ℕ⟶ℝ)
44	43	ffvelcdmda 7083	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
45	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ₀)
46		nnnn0 12526	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
47	45, 46	nn0mulcld 12585	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ₀)
48	2	wallispilem3 46839	. . . . . . . . . 10 ⊢ ((2 · 𝑘) ∈ ℕ₀ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
49	47, 48	syl 18	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
50	49	rpred 13076	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ)
51		2nn 12329	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
52	51	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ)
53		id 23	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ)
54	52, 53	nnmulcld 12304	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ)
55		nnm1nn0 12560	. . . . . . . . . . 11 ⊢ ((2 · 𝑘) ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
56	54, 55	syl 18	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
57	2	wallispilem3 46839	. . . . . . . . . 10 ⊢ (((2 · 𝑘) − 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
58	56, 57	syl 18	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
59	58	rpred 13076	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ)
60	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℕ₀)
61	47, 60	nn0addcld 12584	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ₀)
62	2	wallispilem3 46839	. . . . . . . . 9 ⊢ (((2 · 𝑘) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
63	61, 62	syl 18	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
64		2cnd 12334	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℂ)
65		nncn 12256	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
66	64, 65	mulcld 11244	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℂ)
67		1cnd 11217	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℂ)
68	66, 67	npcand 11588	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) − 1) + 1) = (2 · 𝑘))
69	68	fveq2d 6889	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) = (𝐼‘(2 · 𝑘)))
70	2, 56	wallispilem1 46837	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) ≤ (𝐼‘((2 · 𝑘) − 1)))
71	69, 70	eqbrtrrd 5137	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ≤ (𝐼‘((2 · 𝑘) − 1)))
72	50, 59, 63, 71	lediv1dd 13134	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
73	66, 67	addcld 11243	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℂ)
74	10	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ≠ 0)
75		nnne0 12285	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
76	64, 65, 74, 75	mulne0d 11881	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ≠ 0)
77	73, 66, 76	divcld 12006	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) ∈ ℂ)
78	63	rpcnd 13078	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℂ)
79	63	rpne0d 13081	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≠ 0)
80	77, 78, 79	divcan4d 12012	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
81		2re 12330	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
82	81	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℝ)
83		nnre 12255	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
84	82, 83	remulcld 11254	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℝ)
85		1red 11224	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℝ)
86	84, 85	readdcld 11253	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℝ)
87	45	nn0ge0d 12583	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 0 ≤ 2)
88		nnge1 12279	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
89	82, 83, 87, 88	lemulge11d 12167	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 2 ≤ (2 · 𝑘))
90	84	ltp1d 12160	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) < ((2 · 𝑘) + 1))
91	82, 84, 86, 89, 90	lelttrd 11383	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 < ((2 · 𝑘) + 1))
92	82, 86, 91	ltled 11373	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 2 ≤ ((2 · 𝑘) + 1))
93	45	nn0zd 12631	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℤ)
94	61	nn0zd 12631	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℤ)
95		eluz 12892	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℤ ∧ ((2 · 𝑘) + 1) ∈ ℤ) → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
96	93, 94, 95	syl2anc 596	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
97	92, 96	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ (ℤ_≥‘2))
98	2, 97	itgsinexp 46727	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))))
99	66, 67	pncand 11585	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 1) = (2 · 𝑘))
100	99	oveq1d 7434	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) = ((2 · 𝑘) / ((2 · 𝑘) + 1)))
101		1e2m1 12382	. . . . . . . . . . . . . . . . 17 ⊢ 1 = (2 − 1)
102	101	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 = (2 − 1))
103	102	oveq2d 7435	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) = ((2 · 𝑘) − (2 − 1)))
104	66, 64, 67	subsub3d 11614	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − (2 − 1)) = (((2 · 𝑘) + 1) − 2))
105	103, 104	eqtr2d 2801	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 2) = ((2 · 𝑘) − 1))
106	105	fveq2d 6889	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) + 1) − 2)) = (𝐼‘((2 · 𝑘) − 1)))
107	100, 106	oveq12d 7437	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
108	98, 107	eqtrd 2800	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
109	108	oveq2d 7435	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
110	54	peano2nnd 12265	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ)
111	110	nnne0d 12301	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ≠ 0)
112	66, 73, 111	divcld 12006	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) / ((2 · 𝑘) + 1)) ∈ ℂ)
113	58	rpcnd 13078	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℂ)
114	77, 112, 113	mulassd 11247	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
115	73, 66, 111, 76	divcan6d 12025	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) = 1)
116	115	oveq1d 7434	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (1 · (𝐼‘((2 · 𝑘) − 1))))
117	113	mullidd 11242	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (1 · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
118	116, 117	eqtrd 2800	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
119	109, 114, 118	3eqtr2d 2806	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = (𝐼‘((2 · 𝑘) − 1)))
120	119	oveq1d 7434	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
121	80, 120	eqtr3d 2802	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
122	72, 121	breqtrrd 5141	. . . . . 6 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ (((2 · 𝑘) + 1) / (2 · 𝑘)))
123	49, 63	rpdivcld 13093	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺)
124		nfcv 2927	. . . . . . . 8 ⊢ Ⅎ𝑛𝑘
125		nfmpt1 5212	. . . . . . . . . . 11 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
126	2, 125	nfcxfr 2925	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝐼
127		nfcv 2927	. . . . . . . . . 10 ⊢ Ⅎ𝑛(2 · 𝑘)
128	126, 127	nffv 6895	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘(2 · 𝑘))
129		nfcv 2927	. . . . . . . . 9 ⊢ Ⅎ𝑛 /
130		nfcv 2927	. . . . . . . . . 10 ⊢ Ⅎ𝑛((2 · 𝑘) + 1)
131	126, 130	nffv 6895	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘((2 · 𝑘) + 1))
132	128, 129, 131	nfov 7449	. . . . . . . 8 ⊢ Ⅎ𝑛((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1)))
133		oveq2 7427	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
134	133	fveq2d 6889	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘(2 · 𝑛)) = (𝐼‘(2 · 𝑘)))
135	133	fvoveq1d 7441	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘((2 · 𝑛) + 1)) = (𝐼‘((2 · 𝑘) + 1)))
136	134, 135	oveq12d 7437	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
137	124, 132, 136, 3	fvmptf 7015	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺) → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
138	123, 137	mpdan 700	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
139	8	a1i 11	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛))))
140		simpr 490	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → 𝑛 = 𝑘)
141	140	oveq2d 7435	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (2 · 𝑛) = (2 · 𝑘))
142	141	oveq1d 7434	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((2 · 𝑛) + 1) = ((2 · 𝑘) + 1))
143	142, 141	oveq12d 7437	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (((2 · 𝑛) + 1) / (2 · 𝑛)) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
144	139, 143, 53, 77	fvmptd 7001	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐿‘𝑘) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
145	122, 138, 144	3brtr4d 5145	. . . . 5 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
146	145	adantl 487	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
147	78, 79	dividd 12004	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) = 1)
148	63	rpred 13076	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ)
149	2, 47	wallispilem1 46837	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≤ (𝐼‘(2 · 𝑘)))
150	148, 50, 63, 149	lediv1dd 13134	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
151	147, 150	eqbrtrrd 5137	. . . . . 6 ⊢ (𝑘 ∈ ℕ → 1 ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
152	151, 138	breqtrrd 5141	. . . . 5 ⊢ (𝑘 ∈ ℕ → 1 ≤ (𝐺‘𝑘))
153	152	adantl 487	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → 1 ≤ (𝐺‘𝑘))
154	6, 7, 13, 17, 35, 44, 146, 153	climsqz2 15717	. . 3 ⊢ (⊤ → 𝐺 ⇝ 1)
155	154	mptru 1577	. 2 ⊢ 𝐺 ⇝ 1
156	5, 155	eqbrtrri 5136	1 ⊢ 𝐻 ⇝ 1

Colors of variables: wff setvar class

This proof depends on syntax axioms: ↔ wb 209 ∧ wa 401 = wceq 1570 ⊤wtru 1571 ∈ wcel 2146 ≠ wne 2960 Vcvv 3457 class class class wbr 5111 ↦ cmpt 5194 ⟶wf 6536 ‘cfv 6540 (class class class)co 7419 ℂcc 11113 ℝcr 11114 0cc0 11115 1c1 11116 + caddc 11118 · cmul 11120 ≤ cle 11259 − cmin 11456 / cdiv 11886 ℕcn 12248 2c2 12310 ℕ₀cn0 12519 ℤcz 12606 ℤ_≥cuz 12878 ℝ⁺crp 13032 (,)cioo 13388 seqcseq 14055 ↑cexp 14115 ⇝ cli 15559 sincsin 16139 πcpi 16142 ∫citg 25828

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7742 ax-inf2 9617 ax-cc 10434 ax-cnex 11171 ax-resscn 11172 ax-1cn 11173 ax-icn 11174 ax-addcl 11175 ax-addrcl 11176 ax-mulcl 11177 ax-mulrcl 11178 ax-mulcom 11179 ax-addass 11180 ax-mulass 11181 ax-distr 11182 ax-i2m1 11183 ax-1ne0 11184 ax-1rid 11185 ax-rnegex 11186 ax-rrecex 11187 ax-cnre 11188 ax-pre-lttri 11189 ax-pre-lttrn 11190 ax-pre-ltadd 11191 ax-pre-mulgt0 11192 ax-pre-sup 11193 ax-addf 11194

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-nel 3067 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-pss 3926 df-symdif 4206 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-tp 4596 df-op 4598 df-uni 4875 df-int 4915 df-iun 4960 df-iin 4961 df-disj 5079 df-br 5112 df-opab 5176 df-mpt 5195 df-tr 5221 df-id 5558 df-eprel 5563 df-po 5571 df-so 5572 df-fr 5616 df-se 5617 df-we 5618 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-pred 6306 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-isom 6549 df-riota 7376 df-ov 7422 df-oprab 7423 df-mpo 7424 df-of 7684 df-ofr 7685 df-om 7869 df-1st 7992 df-2nd 7993 df-supp 8163 df-frecs 8284 df-wrecs 8315 df-recs 8364 df-rdg 8403 df-1o 8459 df-2o 8460 df-oadd 8463 df-omul 8464 df-er 8700 df-map 8832 df-pm 8833 df-ixp 8902 df-en 8950 df-dom 8951 df-sdom 8952 df-fin 8953 df-fsupp 9329 df-fi 9378 df-sup 9409 df-inf 9410 df-oi 9479 df-dju 9903 df-card 9941 df-acn 9944 df-pnf 11260 df-mnf 11261 df-xr 11262 df-ltxr 11263 df-le 11264 df-sub 11458 df-neg 11459 df-div 11887 df-nn 12249 df-2 12318 df-3 12319 df-4 12320 df-5 12321 df-6 12322 df-7 12323 df-8 12324 df-9 12325 df-n0 12520 df-z 12607 df-dec 12728 df-uz 12879 df-q 12989 df-rp 13033 df-xneg 13153 df-xadd 13154 df-xmul 13155 df-ioo 13392 df-ioc 13393 df-ico 13394 df-icc 13395 df-fz 13552 df-fzo 13700 df-fl 13843 df-mod 13921 df-seq 14056 df-exp 14116 df-fac 14328 df-bc 14357 df-hash 14385 df-shft 15128 df-cj 15174 df-re 15175 df-im 15176 df-sqrt 15310 df-abs 15311 df-limsup 15546 df-clim 15563 df-rlim 15564 df-sum 15762 df-ef 16143 df-sin 16145 df-cos 16146 df-pi 16148 df-struct 17229 df-sets 17246 df-slot 17264 df-ndx 17276 df-base 17292 df-ress 17313 df-plusg 17345 df-mulr 17346 df-starv 17347 df-sca 17348 df-vsca 17349 df-ip 17350 df-tset 17351 df-ple 17352 df-ds 17354 df-unif 17355 df-hom 17356 df-cco 17357 df-rest 17497 df-topn 17498 df-0g 17516 df-gsum 17517 df-topgen 17518 df-pt 17519 df-prds 17522 df-xrs 17578 df-qtop 17583 df-imas 17584 df-xps 17586 df-mre 17660 df-mrc 17661 df-acs 17663 df-mgm 18720 df-sgrp 18809 df-mnd 18825 df-submnd 18879 df-mulg 19178 df-cntz 19431 df-cmn 19896 df-psmet 21564 df-xmet 21565 df-met 21566 df-bl 21567 df-mopn 21568 df-fbas 21569 df-fg 21570 df-cnfld 21573 df-top 23101 df-topon 23118 df-topsp 23140 df-bases 23153 df-cld 23226 df-ntr 23227 df-cls 23228 df-nei 23305 df-lp 23343 df-perf 23344 df-cn 23434 df-cnp 23435 df-haus 23522 df-cmp 23594 df-tx 23770 df-hmeo 23963 df-fil 24054 df-fm 24146 df-flim 24147 df-flf 24148 df-xms 24528 df-ms 24529 df-tms 24530 df-cncf 25088 df-ovol 25674 df-vol 25675 df-mbf 25829 df-itg1 25830 df-itg2 25831 df-ibl 25832 df-itg 25833 df-0p 25880 df-limc 26076 df-dv 26077

This theorem is used by: wallispi 46842

W3C validator