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 46518

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 46517	. 2 ⊢ 𝐺 = 𝐻
6		nnuz 12821	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
7		1zzd 12552	. . . 4 ⊢ (⊤ → 1 ∈ ℤ)
8		wallispilem5.5	. . . . 5 ⊢ 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛)))
9		2cnd 12253	. . . . 5 ⊢ (⊤ → 2 ∈ ℂ)
10		2ne0 12279	. . . . . 6 ⊢ 2 ≠ 0
11	10	a1i 11	. . . . 5 ⊢ (⊤ → 2 ≠ 0)
12		1cnd 11133	. . . . 5 ⊢ (⊤ → 1 ∈ ℂ)
13	8, 9, 11, 12	clim1fr1 46052	. . . 4 ⊢ (⊤ → 𝐿 ⇝ 1)
14		nnex 12174	. . . . . . 7 ⊢ ℕ ∈ V
15	14	mptex 7172	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1)))) ∈ V
16	3, 15	eqeltri 2833	. . . . 5 ⊢ 𝐺 ∈ V
17	16	a1i 11	. . . 4 ⊢ (⊤ → 𝐺 ∈ V)
18		2nn0 12448	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ₀
19	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ₀)
20		nnnn0 12438	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
21	19, 20	nn0mulcld 12497	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ₀)
22		1nn0 12447	. . . . . . . . . . 11 ⊢ 1 ∈ ℕ₀
23	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℕ₀)
24	21, 23	nn0addcld 12496	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℕ₀)
25	24	nn0red 12493	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
26	21	nn0red 12493	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
27		2cnd 12253	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
28		nncn 12176	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
29	10	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ≠ 0)
30		nnne0 12205	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
31	27, 28, 29, 30	mulne0d 11796	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
32	25, 26, 31	redivcld 11977	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) + 1) / (2 · 𝑛)) ∈ ℝ)
33	8, 32	fmpti 7059	. . . . . 6 ⊢ 𝐿:ℕ⟶ℝ
34	33	a1i 11	. . . . 5 ⊢ (⊤ → 𝐿:ℕ⟶ℝ)
35	34	ffvelcdmda 7031	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐿‘𝑘) ∈ ℝ)
36	2	wallispilem3 46516	. . . . . . . . . 10 ⊢ ((2 · 𝑛) ∈ ℕ₀ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
37	21, 36	syl 17	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
38	37	rpred 12980	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ)
39	2	wallispilem3 46516	. . . . . . . . 9 ⊢ (((2 · 𝑛) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
40	24, 39	syl 17	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
41	38, 40	rerpdivcld 13011	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) ∈ ℝ)
42	3, 41	fmpti 7059	. . . . . 6 ⊢ 𝐺:ℕ⟶ℝ
43	42	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:ℕ⟶ℝ)
44	43	ffvelcdmda 7031	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
45	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ₀)
46		nnnn0 12438	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
47	45, 46	nn0mulcld 12497	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ₀)
48	2	wallispilem3 46516	. . . . . . . . . 10 ⊢ ((2 · 𝑘) ∈ ℕ₀ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
49	47, 48	syl 17	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
50	49	rpred 12980	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ)
51		2nn 12248	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
52	51	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ)
53		id 22	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ)
54	52, 53	nnmulcld 12224	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ)
55		nnm1nn0 12472	. . . . . . . . . . 11 ⊢ ((2 · 𝑘) ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
56	54, 55	syl 17	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
57	2	wallispilem3 46516	. . . . . . . . . 10 ⊢ (((2 · 𝑘) − 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
58	56, 57	syl 17	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
59	58	rpred 12980	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ)
60	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℕ₀)
61	47, 60	nn0addcld 12496	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ₀)
62	2	wallispilem3 46516	. . . . . . . . 9 ⊢ (((2 · 𝑘) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
63	61, 62	syl 17	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
64		2cnd 12253	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℂ)
65		nncn 12176	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
66	64, 65	mulcld 11159	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℂ)
67		1cnd 11133	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℂ)
68	66, 67	npcand 11503	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) − 1) + 1) = (2 · 𝑘))
69	68	fveq2d 6839	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) = (𝐼‘(2 · 𝑘)))
70	2, 56	wallispilem1 46514	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) ≤ (𝐼‘((2 · 𝑘) − 1)))
71	69, 70	eqbrtrrd 5110	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ≤ (𝐼‘((2 · 𝑘) − 1)))
72	50, 59, 63, 71	lediv1dd 13038	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
73	66, 67	addcld 11158	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℂ)
74	10	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ≠ 0)
75		nnne0 12205	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
76	64, 65, 74, 75	mulne0d 11796	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ≠ 0)
77	73, 66, 76	divcld 11925	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) ∈ ℂ)
78	63	rpcnd 12982	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℂ)
79	63	rpne0d 12985	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≠ 0)
80	77, 78, 79	divcan4d 11931	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
81		2re 12249	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
82	81	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℝ)
83		nnre 12175	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
84	82, 83	remulcld 11169	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℝ)
85		1red 11139	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℝ)
86	84, 85	readdcld 11168	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℝ)
87	45	nn0ge0d 12495	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 0 ≤ 2)
88		nnge1 12199	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
89	82, 83, 87, 88	lemulge11d 12087	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 2 ≤ (2 · 𝑘))
90	84	ltp1d 12080	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) < ((2 · 𝑘) + 1))
91	82, 84, 86, 89, 90	lelttrd 11298	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 < ((2 · 𝑘) + 1))
92	82, 86, 91	ltled 11288	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 2 ≤ ((2 · 𝑘) + 1))
93	45	nn0zd 12543	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℤ)
94	61	nn0zd 12543	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℤ)
95		eluz 12796	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℤ ∧ ((2 · 𝑘) + 1) ∈ ℤ) → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
96	93, 94, 95	syl2anc 585	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
97	92, 96	mpbird 257	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ (ℤ_≥‘2))
98	2, 97	itgsinexp 46404	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))))
99	66, 67	pncand 11500	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 1) = (2 · 𝑘))
100	99	oveq1d 7376	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) = ((2 · 𝑘) / ((2 · 𝑘) + 1)))
101		1e2m1 12297	. . . . . . . . . . . . . . . . 17 ⊢ 1 = (2 − 1)
102	101	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 = (2 − 1))
103	102	oveq2d 7377	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) = ((2 · 𝑘) − (2 − 1)))
104	66, 64, 67	subsub3d 11529	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − (2 − 1)) = (((2 · 𝑘) + 1) − 2))
105	103, 104	eqtr2d 2773	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 2) = ((2 · 𝑘) − 1))
106	105	fveq2d 6839	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) + 1) − 2)) = (𝐼‘((2 · 𝑘) − 1)))
107	100, 106	oveq12d 7379	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
108	98, 107	eqtrd 2772	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
109	108	oveq2d 7377	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
110	54	peano2nnd 12185	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ)
111	110	nnne0d 12221	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ≠ 0)
112	66, 73, 111	divcld 11925	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) / ((2 · 𝑘) + 1)) ∈ ℂ)
113	58	rpcnd 12982	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℂ)
114	77, 112, 113	mulassd 11162	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
115	73, 66, 111, 76	divcan6d 11944	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) = 1)
116	115	oveq1d 7376	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (1 · (𝐼‘((2 · 𝑘) − 1))))
117	113	mullidd 11157	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (1 · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
118	116, 117	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
119	109, 114, 118	3eqtr2d 2778	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = (𝐼‘((2 · 𝑘) − 1)))
120	119	oveq1d 7376	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
121	80, 120	eqtr3d 2774	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
122	72, 121	breqtrrd 5114	. . . . . 6 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ (((2 · 𝑘) + 1) / (2 · 𝑘)))
123	49, 63	rpdivcld 12997	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺)
124		nfcv 2899	. . . . . . . 8 ⊢ Ⅎ𝑛𝑘
125		nfmpt1 5185	. . . . . . . . . . 11 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
126	2, 125	nfcxfr 2897	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝐼
127		nfcv 2899	. . . . . . . . . 10 ⊢ Ⅎ𝑛(2 · 𝑘)
128	126, 127	nffv 6845	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘(2 · 𝑘))
129		nfcv 2899	. . . . . . . . 9 ⊢ Ⅎ𝑛 /
130		nfcv 2899	. . . . . . . . . 10 ⊢ Ⅎ𝑛((2 · 𝑘) + 1)
131	126, 130	nffv 6845	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘((2 · 𝑘) + 1))
132	128, 129, 131	nfov 7391	. . . . . . . 8 ⊢ Ⅎ𝑛((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1)))
133		oveq2 7369	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
134	133	fveq2d 6839	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘(2 · 𝑛)) = (𝐼‘(2 · 𝑘)))
135	133	fvoveq1d 7383	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘((2 · 𝑛) + 1)) = (𝐼‘((2 · 𝑘) + 1)))
136	134, 135	oveq12d 7379	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
137	124, 132, 136, 3	fvmptf 6964	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺) → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
138	123, 137	mpdan 688	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
139	8	a1i 11	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛))))
140		simpr 484	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → 𝑛 = 𝑘)
141	140	oveq2d 7377	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (2 · 𝑛) = (2 · 𝑘))
142	141	oveq1d 7376	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((2 · 𝑛) + 1) = ((2 · 𝑘) + 1))
143	142, 141	oveq12d 7379	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (((2 · 𝑛) + 1) / (2 · 𝑛)) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
144	139, 143, 53, 77	fvmptd 6950	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐿‘𝑘) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
145	122, 138, 144	3brtr4d 5118	. . . . 5 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
146	145	adantl 481	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
147	78, 79	dividd 11923	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) = 1)
148	63	rpred 12980	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ)
149	2, 47	wallispilem1 46514	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≤ (𝐼‘(2 · 𝑘)))
150	148, 50, 63, 149	lediv1dd 13038	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
151	147, 150	eqbrtrrd 5110	. . . . . 6 ⊢ (𝑘 ∈ ℕ → 1 ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
152	151, 138	breqtrrd 5114	. . . . 5 ⊢ (𝑘 ∈ ℕ → 1 ≤ (𝐺‘𝑘))
153	152	adantl 481	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → 1 ≤ (𝐺‘𝑘))
154	6, 7, 13, 17, 35, 44, 146, 153	climsqz2 15598	. . 3 ⊢ (⊤ → 𝐺 ⇝ 1)
155	154	mptru 1549	. 2 ⊢ 𝐺 ⇝ 1
156	5, 155	eqbrtrri 5109	1 ⊢ 𝐻 ⇝ 1

Colors of variables: wff setvar class

Syntax hints: ↔ wb 206 ∧ wa 395 = wceq 1542 ⊤wtru 1543 ∈ wcel 2114 ≠ wne 2933 Vcvv 3430 class class class wbr 5086 ↦ cmpt 5167 ⟶wf 6489 ‘cfv 6493 (class class class)co 7361 ℂcc 11030 ℝcr 11031 0cc0 11032 1c1 11033 + caddc 11035 · cmul 11037 ≤ cle 11174 − cmin 11371 / cdiv 11801 ℕcn 12168 2c2 12230 ℕ₀cn0 12431 ℤcz 12518 ℤ_≥cuz 12782 ℝ⁺crp 12936 (,)cioo 13292 seqcseq 13957 ↑cexp 14017 ⇝ cli 15440 sincsin 16022 πcpi 16025 ∫citg 25598

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5213 ax-sep 5232 ax-nul 5242 ax-pow 5303 ax-pr 5371 ax-un 7683 ax-inf2 9556 ax-cc 10351 ax-cnex 11088 ax-resscn 11089 ax-1cn 11090 ax-icn 11091 ax-addcl 11092 ax-addrcl 11093 ax-mulcl 11094 ax-mulrcl 11095 ax-mulcom 11096 ax-addass 11097 ax-mulass 11098 ax-distr 11099 ax-i2m1 11100 ax-1ne0 11101 ax-1rid 11102 ax-rnegex 11103 ax-rrecex 11104 ax-cnre 11105 ax-pre-lttri 11106 ax-pre-lttrn 11107 ax-pre-ltadd 11108 ax-pre-mulgt0 11109 ax-pre-sup 11110 ax-addf 11111

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3343 df-reu 3344 df-rab 3391 df-v 3432 df-sbc 3730 df-csb 3839 df-dif 3893 df-un 3895 df-in 3897 df-ss 3907 df-pss 3910 df-symdif 4194 df-nul 4275 df-if 4468 df-pw 4544 df-sn 4569 df-pr 4571 df-tp 4573 df-op 4575 df-uni 4852 df-int 4891 df-iun 4936 df-iin 4937 df-disj 5054 df-br 5087 df-opab 5149 df-mpt 5168 df-tr 5194 df-id 5520 df-eprel 5525 df-po 5533 df-so 5534 df-fr 5578 df-se 5579 df-we 5580 df-xp 5631 df-rel 5632 df-cnv 5633 df-co 5634 df-dm 5635 df-rn 5636 df-res 5637 df-ima 5638 df-pred 6260 df-ord 6321 df-on 6322 df-lim 6323 df-suc 6324 df-iota 6449 df-fun 6495 df-fn 6496 df-f 6497 df-f1 6498 df-fo 6499 df-f1o 6500 df-fv 6501 df-isom 6502 df-riota 7318 df-ov 7364 df-oprab 7365 df-mpo 7366 df-of 7625 df-ofr 7626 df-om 7812 df-1st 7936 df-2nd 7937 df-supp 8105 df-frecs 8225 df-wrecs 8256 df-recs 8305 df-rdg 8343 df-1o 8399 df-2o 8400 df-oadd 8403 df-omul 8404 df-er 8637 df-map 8769 df-pm 8770 df-ixp 8840 df-en 8888 df-dom 8889 df-sdom 8890 df-fin 8891 df-fsupp 9269 df-fi 9318 df-sup 9349 df-inf 9350 df-oi 9419 df-dju 9819 df-card 9857 df-acn 9860 df-pnf 11175 df-mnf 11176 df-xr 11177 df-ltxr 11178 df-le 11179 df-sub 11373 df-neg 11374 df-div 11802 df-nn 12169 df-2 12238 df-3 12239 df-4 12240 df-5 12241 df-6 12242 df-7 12243 df-8 12244 df-9 12245 df-n0 12432 df-z 12519 df-dec 12639 df-uz 12783 df-q 12893 df-rp 12937 df-xneg 13057 df-xadd 13058 df-xmul 13059 df-ioo 13296 df-ioc 13297 df-ico 13298 df-icc 13299 df-fz 13456 df-fzo 13603 df-fl 13745 df-mod 13823 df-seq 13958 df-exp 14018 df-fac 14230 df-bc 14259 df-hash 14287 df-shft 15023 df-cj 15055 df-re 15056 df-im 15057 df-sqrt 15191 df-abs 15192 df-limsup 15427 df-clim 15444 df-rlim 15445 df-sum 15643 df-ef 16026 df-sin 16028 df-cos 16029 df-pi 16031 df-struct 17111 df-sets 17128 df-slot 17146 df-ndx 17158 df-base 17174 df-ress 17195 df-plusg 17227 df-mulr 17228 df-starv 17229 df-sca 17230 df-vsca 17231 df-ip 17232 df-tset 17233 df-ple 17234 df-ds 17236 df-unif 17237 df-hom 17238 df-cco 17239 df-rest 17379 df-topn 17380 df-0g 17398 df-gsum 17399 df-topgen 17400 df-pt 17401 df-prds 17404 df-xrs 17460 df-qtop 17465 df-imas 17466 df-xps 17468 df-mre 17542 df-mrc 17543 df-acs 17545 df-mgm 18602 df-sgrp 18681 df-mnd 18697 df-submnd 18746 df-mulg 19038 df-cntz 19286 df-cmn 19751 df-psmet 21339 df-xmet 21340 df-met 21341 df-bl 21342 df-mopn 21343 df-fbas 21344 df-fg 21345 df-cnfld 21348 df-top 22872 df-topon 22889 df-topsp 22911 df-bases 22924 df-cld 22997 df-ntr 22998 df-cls 22999 df-nei 23076 df-lp 23114 df-perf 23115 df-cn 23205 df-cnp 23206 df-haus 23293 df-cmp 23365 df-tx 23540 df-hmeo 23733 df-fil 23824 df-fm 23916 df-flim 23917 df-flf 23918 df-xms 24298 df-ms 24299 df-tms 24300 df-cncf 24858 df-ovol 25444 df-vol 25445 df-mbf 25599 df-itg1 25600 df-itg2 25601 df-ibl 25602 df-itg 25603 df-0p 25650 df-limc 25846 df-dv 25847

This theorem is referenced by: wallispi 46519

W3C validator