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 46674

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 46673	. 2 ⊢ 𝐺 = 𝐻
6		nnuz 12900	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
7		1zzd 12624	. . . 4 ⊢ (⊤ → 1 ∈ ℤ)
8		wallispilem5.5	. . . . 5 ⊢ 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛)))
9		2cnd 12318	. . . . 5 ⊢ (⊤ → 2 ∈ ℂ)
10		2ne0 12346	. . . . . 6 ⊢ 2 ≠ 0
11	10	a1i 11	. . . . 5 ⊢ (⊤ → 2 ≠ 0)
12		1cnd 11201	. . . . 5 ⊢ (⊤ → 1 ∈ ℂ)
13	8, 9, 11, 12	clim1fr1 46208	. . . 4 ⊢ (⊤ → 𝐿 ⇝ 1)
14		nnex 12238	. . . . . . 7 ⊢ ℕ ∈ V
15	14	mptex 7222	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1)))) ∈ V
16	3, 15	eqeltri 2865	. . . . 5 ⊢ 𝐺 ∈ V
17	16	a1i 11	. . . 4 ⊢ (⊤ → 𝐺 ∈ V)
18		2nn0 12520	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ₀
19	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ₀)
20		nnnn0 12510	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
21	19, 20	nn0mulcld 12569	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ₀)
22		1nn0 12519	. . . . . . . . . . 11 ⊢ 1 ∈ ℕ₀
23	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℕ₀)
24	21, 23	nn0addcld 12568	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℕ₀)
25	24	nn0red 12565	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
26	21	nn0red 12565	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
27		2cnd 12318	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
28		nncn 12240	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
29	10	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ≠ 0)
30		nnne0 12269	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
31	27, 28, 29, 30	mulne0d 11865	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
32	25, 26, 31	redivcld 12042	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) + 1) / (2 · 𝑛)) ∈ ℝ)
33	8, 32	fmpti 7108	. . . . . 6 ⊢ 𝐿:ℕ⟶ℝ
34	33	a1i 11	. . . . 5 ⊢ (⊤ → 𝐿:ℕ⟶ℝ)
35	34	ffvelcdmda 7080	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐿‘𝑘) ∈ ℝ)
36	2	wallispilem3 46672	. . . . . . . . . 10 ⊢ ((2 · 𝑛) ∈ ℕ₀ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
37	21, 36	syl 18	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
38	37	rpred 13059	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ)
39	2	wallispilem3 46672	. . . . . . . . 9 ⊢ (((2 · 𝑛) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
40	24, 39	syl 18	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
41	38, 40	rerpdivcld 13090	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) ∈ ℝ)
42	3, 41	fmpti 7108	. . . . . 6 ⊢ 𝐺:ℕ⟶ℝ
43	42	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:ℕ⟶ℝ)
44	43	ffvelcdmda 7080	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
45	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ₀)
46		nnnn0 12510	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
47	45, 46	nn0mulcld 12569	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ₀)
48	2	wallispilem3 46672	. . . . . . . . . 10 ⊢ ((2 · 𝑘) ∈ ℕ₀ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
49	47, 48	syl 18	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
50	49	rpred 13059	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ)
51		2nn 12313	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
52	51	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ)
53		id 23	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ)
54	52, 53	nnmulcld 12288	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ)
55		nnm1nn0 12544	. . . . . . . . . . 11 ⊢ ((2 · 𝑘) ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
56	54, 55	syl 18	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
57	2	wallispilem3 46672	. . . . . . . . . 10 ⊢ (((2 · 𝑘) − 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
58	56, 57	syl 18	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
59	58	rpred 13059	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ)
60	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℕ₀)
61	47, 60	nn0addcld 12568	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ₀)
62	2	wallispilem3 46672	. . . . . . . . 9 ⊢ (((2 · 𝑘) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
63	61, 62	syl 18	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
64		2cnd 12318	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℂ)
65		nncn 12240	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
66	64, 65	mulcld 11228	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℂ)
67		1cnd 11201	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℂ)
68	66, 67	npcand 11572	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) − 1) + 1) = (2 · 𝑘))
69	68	fveq2d 6886	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) = (𝐼‘(2 · 𝑘)))
70	2, 56	wallispilem1 46670	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) ≤ (𝐼‘((2 · 𝑘) − 1)))
71	69, 70	eqbrtrrd 5139	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ≤ (𝐼‘((2 · 𝑘) − 1)))
72	50, 59, 63, 71	lediv1dd 13117	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
73	66, 67	addcld 11227	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℂ)
74	10	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ≠ 0)
75		nnne0 12269	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
76	64, 65, 74, 75	mulne0d 11865	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ≠ 0)
77	73, 66, 76	divcld 11990	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) ∈ ℂ)
78	63	rpcnd 13061	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℂ)
79	63	rpne0d 13064	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≠ 0)
80	77, 78, 79	divcan4d 11996	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
81		2re 12314	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
82	81	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℝ)
83		nnre 12239	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
84	82, 83	remulcld 11238	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℝ)
85		1red 11208	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℝ)
86	84, 85	readdcld 11237	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℝ)
87	45	nn0ge0d 12567	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 0 ≤ 2)
88		nnge1 12263	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
89	82, 83, 87, 88	lemulge11d 12151	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 2 ≤ (2 · 𝑘))
90	84	ltp1d 12144	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) < ((2 · 𝑘) + 1))
91	82, 84, 86, 89, 90	lelttrd 11367	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 < ((2 · 𝑘) + 1))
92	82, 86, 91	ltled 11357	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 2 ≤ ((2 · 𝑘) + 1))
93	45	nn0zd 12615	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℤ)
94	61	nn0zd 12615	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℤ)
95		eluz 12875	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℤ ∧ ((2 · 𝑘) + 1) ∈ ℤ) → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
96	93, 94, 95	syl2anc 595	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
97	92, 96	mpbird 260	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ (ℤ_≥‘2))
98	2, 97	itgsinexp 46560	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))))
99	66, 67	pncand 11569	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 1) = (2 · 𝑘))
100	99	oveq1d 7426	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) = ((2 · 𝑘) / ((2 · 𝑘) + 1)))
101		1e2m1 12366	. . . . . . . . . . . . . . . . 17 ⊢ 1 = (2 − 1)
102	101	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 = (2 − 1))
103	102	oveq2d 7427	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) = ((2 · 𝑘) − (2 − 1)))
104	66, 64, 67	subsub3d 11598	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − (2 − 1)) = (((2 · 𝑘) + 1) − 2))
105	103, 104	eqtr2d 2805	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 2) = ((2 · 𝑘) − 1))
106	105	fveq2d 6886	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) + 1) − 2)) = (𝐼‘((2 · 𝑘) − 1)))
107	100, 106	oveq12d 7429	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
108	98, 107	eqtrd 2804	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
109	108	oveq2d 7427	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
110	54	peano2nnd 12249	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ)
111	110	nnne0d 12285	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ≠ 0)
112	66, 73, 111	divcld 11990	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) / ((2 · 𝑘) + 1)) ∈ ℂ)
113	58	rpcnd 13061	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℂ)
114	77, 112, 113	mulassd 11231	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
115	73, 66, 111, 76	divcan6d 12009	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) = 1)
116	115	oveq1d 7426	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (1 · (𝐼‘((2 · 𝑘) − 1))))
117	113	mullidd 11226	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (1 · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
118	116, 117	eqtrd 2804	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
119	109, 114, 118	3eqtr2d 2810	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = (𝐼‘((2 · 𝑘) − 1)))
120	119	oveq1d 7426	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
121	80, 120	eqtr3d 2806	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
122	72, 121	breqtrrd 5143	. . . . . 6 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ (((2 · 𝑘) + 1) / (2 · 𝑘)))
123	49, 63	rpdivcld 13076	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺)
124		nfcv 2931	. . . . . . . 8 ⊢ Ⅎ𝑛𝑘
125		nfmpt1 5214	. . . . . . . . . . 11 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
126	2, 125	nfcxfr 2929	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝐼
127		nfcv 2931	. . . . . . . . . 10 ⊢ Ⅎ𝑛(2 · 𝑘)
128	126, 127	nffv 6892	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘(2 · 𝑘))
129		nfcv 2931	. . . . . . . . 9 ⊢ Ⅎ𝑛 /
130		nfcv 2931	. . . . . . . . . 10 ⊢ Ⅎ𝑛((2 · 𝑘) + 1)
131	126, 130	nffv 6892	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘((2 · 𝑘) + 1))
132	128, 129, 131	nfov 7441	. . . . . . . 8 ⊢ Ⅎ𝑛((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1)))
133		oveq2 7419	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
134	133	fveq2d 6886	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘(2 · 𝑛)) = (𝐼‘(2 · 𝑘)))
135	133	fvoveq1d 7433	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘((2 · 𝑛) + 1)) = (𝐼‘((2 · 𝑘) + 1)))
136	134, 135	oveq12d 7429	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
137	124, 132, 136, 3	fvmptf 7012	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺) → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
138	123, 137	mpdan 699	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
139	8	a1i 11	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛))))
140		simpr 489	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → 𝑛 = 𝑘)
141	140	oveq2d 7427	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (2 · 𝑛) = (2 · 𝑘))
142	141	oveq1d 7426	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((2 · 𝑛) + 1) = ((2 · 𝑘) + 1))
143	142, 141	oveq12d 7429	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (((2 · 𝑛) + 1) / (2 · 𝑛)) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
144	139, 143, 53, 77	fvmptd 6998	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐿‘𝑘) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
145	122, 138, 144	3brtr4d 5147	. . . . 5 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
146	145	adantl 486	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
147	78, 79	dividd 11988	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) = 1)
148	63	rpred 13059	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ)
149	2, 47	wallispilem1 46670	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≤ (𝐼‘(2 · 𝑘)))
150	148, 50, 63, 149	lediv1dd 13117	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
151	147, 150	eqbrtrrd 5139	. . . . . 6 ⊢ (𝑘 ∈ ℕ → 1 ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
152	151, 138	breqtrrd 5143	. . . . 5 ⊢ (𝑘 ∈ ℕ → 1 ≤ (𝐺‘𝑘))
153	152	adantl 486	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → 1 ≤ (𝐺‘𝑘))
154	6, 7, 13, 17, 35, 44, 146, 153	climsqz2 15692	. . 3 ⊢ (⊤ → 𝐺 ⇝ 1)
155	154	mptru 1574	. 2 ⊢ 𝐺 ⇝ 1
156	5, 155	eqbrtrri 5138	1 ⊢ 𝐻 ⇝ 1

Colors of variables: wff setvar class

Syntax hints: ↔ wb 209 ∧ wa 400 = wceq 1567 ⊤wtru 1568 ∈ wcel 2149 ≠ wne 2964 Vcvv 3463 class class class wbr 5113 ↦ cmpt 5196 ⟶wf 6533 ‘cfv 6537 (class class class)co 7411 ℂcc 11097 ℝcr 11098 0cc0 11099 1c1 11100 + caddc 11102 · cmul 11104 ≤ cle 11243 − cmin 11440 / cdiv 11870 ℕcn 12232 2c2 12294 ℕ₀cn0 12503 ℤcz 12590 ℤ_≥cuz 12861 ℝ⁺crp 13015 (,)cioo 13371 seqcseq 14036 ↑cexp 14096 ⇝ cli 15534 sincsin 16116 πcpi 16119 ∫citg 25745

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1822 ax-4 1836 ax-5 1937 ax-6 1994 ax-7 2035 ax-8 2151 ax-9 2159 ax-10 2182 ax-11 2198 ax-12 2219 ax-ext 2741 ax-rep 5242 ax-sep 5261 ax-nul 5271 ax-pow 5337 ax-pr 5405 ax-un 7733 ax-inf2 9609 ax-cc 10418 ax-cnex 11155 ax-resscn 11156 ax-1cn 11157 ax-icn 11158 ax-addcl 11159 ax-addrcl 11160 ax-mulcl 11161 ax-mulrcl 11162 ax-mulcom 11163 ax-addass 11164 ax-mulass 11165 ax-distr 11166 ax-i2m1 11167 ax-1ne0 11168 ax-1rid 11169 ax-rnegex 11170 ax-rrecex 11171 ax-cnre 11172 ax-pre-lttri 11173 ax-pre-lttrn 11174 ax-pre-ltadd 11175 ax-pre-mulgt0 11176 ax-pre-sup 11177 ax-addf 11178

This theorem depends on definitions: df-bi 210 df-an 401 df-or 861 df-3or 1102 df-3an 1103 df-tru 1570 df-fal 1580 df-ex 1807 df-nf 1811 df-sb 2098 df-mo 2573 df-eu 2603 df-clab 2748 df-cleq 2761 df-clel 2844 df-nfc 2918 df-ne 2965 df-nel 3071 df-ral 3086 df-rex 3096 df-rmo 3376 df-reu 3377 df-rab 3424 df-v 3465 df-sbc 3754 df-csb 3862 df-dif 3916 df-un 3918 df-in 3920 df-ss 3930 df-pss 3933 df-symdif 4214 df-nul 4295 df-if 4493 df-pw 4569 df-sn 4595 df-pr 4597 df-tp 4599 df-op 4601 df-uni 4877 df-int 4917 df-iun 4962 df-iin 4963 df-disj 5081 df-br 5114 df-opab 5178 df-mpt 5197 df-tr 5223 df-id 5557 df-eprel 5562 df-po 5570 df-so 5571 df-fr 5615 df-se 5616 df-we 5617 df-xp 5668 df-rel 5669 df-cnv 5670 df-co 5671 df-dm 5672 df-rn 5673 df-res 5674 df-ima 5675 df-pred 6303 df-ord 6364 df-on 6365 df-lim 6366 df-suc 6367 df-iota 6493 df-fun 6539 df-fn 6540 df-f 6541 df-f1 6542 df-fo 6543 df-f1o 6544 df-fv 6545 df-isom 6546 df-riota 7368 df-ov 7414 df-oprab 7415 df-mpo 7416 df-of 7675 df-ofr 7676 df-om 7862 df-1st 7985 df-2nd 7986 df-supp 8156 df-frecs 8277 df-wrecs 8308 df-recs 8357 df-rdg 8396 df-1o 8452 df-2o 8453 df-oadd 8456 df-omul 8457 df-er 8693 df-map 8825 df-pm 8826 df-ixp 8895 df-en 8943 df-dom 8944 df-sdom 8945 df-fin 8946 df-fsupp 9321 df-fi 9370 df-sup 9401 df-inf 9402 df-oi 9471 df-dju 9886 df-card 9924 df-acn 9927 df-pnf 11244 df-mnf 11245 df-xr 11246 df-ltxr 11247 df-le 11248 df-sub 11442 df-neg 11443 df-div 11871 df-nn 12233 df-2 12302 df-3 12303 df-4 12304 df-5 12305 df-6 12306 df-7 12307 df-8 12308 df-9 12309 df-n0 12504 df-z 12591 df-dec 12711 df-uz 12862 df-q 12972 df-rp 13016 df-xneg 13136 df-xadd 13137 df-xmul 13138 df-ioo 13375 df-ioc 13376 df-ico 13377 df-icc 13378 df-fz 13535 df-fzo 13682 df-fl 13824 df-mod 13902 df-seq 14037 df-exp 14097 df-fac 14309 df-bc 14338 df-hash 14366 df-shft 15103 df-cj 15149 df-re 15150 df-im 15151 df-sqrt 15285 df-abs 15286 df-limsup 15521 df-clim 15538 df-rlim 15539 df-sum 15737 df-ef 16120 df-sin 16122 df-cos 16123 df-pi 16125 df-struct 17206 df-sets 17223 df-slot 17241 df-ndx 17253 df-base 17269 df-ress 17290 df-plusg 17322 df-mulr 17323 df-starv 17324 df-sca 17325 df-vsca 17326 df-ip 17327 df-tset 17328 df-ple 17329 df-ds 17331 df-unif 17332 df-hom 17333 df-cco 17334 df-rest 17474 df-topn 17475 df-0g 17493 df-gsum 17494 df-topgen 17495 df-pt 17496 df-prds 17499 df-xrs 17555 df-qtop 17560 df-imas 17561 df-xps 17563 df-mre 17637 df-mrc 17638 df-acs 17640 df-mgm 18697 df-sgrp 18776 df-mnd 18792 df-submnd 18841 df-mulg 19133 df-cntz 19386 df-cmn 19851 df-psmet 21482 df-xmet 21483 df-met 21484 df-bl 21485 df-mopn 21486 df-fbas 21487 df-fg 21488 df-cnfld 21491 df-top 23019 df-topon 23036 df-topsp 23058 df-bases 23071 df-cld 23144 df-ntr 23145 df-cls 23146 df-nei 23223 df-lp 23261 df-perf 23262 df-cn 23352 df-cnp 23353 df-haus 23440 df-cmp 23512 df-tx 23687 df-hmeo 23880 df-fil 23971 df-fm 24063 df-flim 24064 df-flf 24065 df-xms 24445 df-ms 24446 df-tms 24447 df-cncf 25005 df-ovol 25591 df-vol 25592 df-mbf 25746 df-itg1 25747 df-itg2 25748 df-ibl 25749 df-itg 25750 df-0p 25797 df-limc 25993 df-dv 25994

This theorem is referenced by: wallispi 46675

W3C validator