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 46640

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 46639	. 2 ⊢ 𝐺 = 𝐻
6		nnuz 12878	. . . 4 ⊢ ℕ = (ℤ_≥‘1)
7		1zzd 12602	. . . 4 ⊢ (⊤ → 1 ∈ ℤ)
8		wallispilem5.5	. . . . 5 ⊢ 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛)))
9		2cnd 12296	. . . . 5 ⊢ (⊤ → 2 ∈ ℂ)
10		2ne0 12324	. . . . . 6 ⊢ 2 ≠ 0
11	10	a1i 11	. . . . 5 ⊢ (⊤ → 2 ≠ 0)
12		1cnd 11175	. . . . 5 ⊢ (⊤ → 1 ∈ ℂ)
13	8, 9, 11, 12	clim1fr1 46174	. . . 4 ⊢ (⊤ → 𝐿 ⇝ 1)
14		nnex 12216	. . . . . . 7 ⊢ ℕ ∈ V
15	14	mptex 7207	. . . . . 6 ⊢ (𝑛 ∈ ℕ ↦ ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1)))) ∈ V
16	3, 15	eqeltri 2858	. . . . 5 ⊢ 𝐺 ∈ V
17	16	a1i 11	. . . 4 ⊢ (⊤ → 𝐺 ∈ V)
18		2nn0 12498	. . . . . . . . . . . 12 ⊢ 2 ∈ ℕ₀
19	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℕ₀)
20		nnnn0 12488	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℕ₀)
21	19, 20	nn0mulcld 12547	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℕ₀)
22		1nn0 12497	. . . . . . . . . . 11 ⊢ 1 ∈ ℕ₀
23	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → 1 ∈ ℕ₀)
24	21, 23	nn0addcld 12546	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℕ₀)
25	24	nn0red 12543	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((2 · 𝑛) + 1) ∈ ℝ)
26	21	nn0red 12543	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ∈ ℝ)
27		2cnd 12296	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ∈ ℂ)
28		nncn 12218	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ∈ ℂ)
29	10	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 2 ≠ 0)
30		nnne0 12247	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → 𝑛 ≠ 0)
31	27, 28, 29, 30	mulne0d 11839	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (2 · 𝑛) ≠ 0)
32	25, 26, 31	redivcld 12019	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (((2 · 𝑛) + 1) / (2 · 𝑛)) ∈ ℝ)
33	8, 32	fmpti 7093	. . . . . 6 ⊢ 𝐿:ℕ⟶ℝ
34	33	a1i 11	. . . . 5 ⊢ (⊤ → 𝐿:ℕ⟶ℝ)
35	34	ffvelcdmda 7065	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐿‘𝑘) ∈ ℝ)
36	2	wallispilem3 46638	. . . . . . . . . 10 ⊢ ((2 · 𝑛) ∈ ℕ₀ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
37	21, 36	syl 17	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ⁺)
38	37	rpred 13037	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘(2 · 𝑛)) ∈ ℝ)
39	2	wallispilem3 46638	. . . . . . . . 9 ⊢ (((2 · 𝑛) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
40	24, 39	syl 17	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝐼‘((2 · 𝑛) + 1)) ∈ ℝ⁺)
41	38, 40	rerpdivcld 13068	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) ∈ ℝ)
42	3, 41	fmpti 7093	. . . . . 6 ⊢ 𝐺:ℕ⟶ℝ
43	42	a1i 11	. . . . 5 ⊢ (⊤ → 𝐺:ℕ⟶ℝ)
44	43	ffvelcdmda 7065	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ∈ ℝ)
45	18	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ₀)
46		nnnn0 12488	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ₀)
47	45, 46	nn0mulcld 12547	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ₀)
48	2	wallispilem3 46638	. . . . . . . . . 10 ⊢ ((2 · 𝑘) ∈ ℕ₀ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
49	47, 48	syl 17	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ⁺)
50	49	rpred 13037	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ∈ ℝ)
51		2nn 12291	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
52	51	a1i 11	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℕ)
53		id 22	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℕ)
54	52, 53	nnmulcld 12266	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℕ)
55		nnm1nn0 12522	. . . . . . . . . . 11 ⊢ ((2 · 𝑘) ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
56	54, 55	syl 17	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) ∈ ℕ₀)
57	2	wallispilem3 46638	. . . . . . . . . 10 ⊢ (((2 · 𝑘) − 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
58	56, 57	syl 17	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ⁺)
59	58	rpred 13037	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℝ)
60	22	a1i 11	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℕ₀)
61	47, 60	nn0addcld 12546	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ₀)
62	2	wallispilem3 46638	. . . . . . . . 9 ⊢ (((2 · 𝑘) + 1) ∈ ℕ₀ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
63	61, 62	syl 17	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ⁺)
64		2cnd 12296	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℂ)
65		nncn 12218	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
66	64, 65	mulcld 11202	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℂ)
67		1cnd 11175	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℂ)
68	66, 67	npcand 11546	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) − 1) + 1) = (2 · 𝑘))
69	68	fveq2d 6871	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) = (𝐼‘(2 · 𝑘)))
70	2, 56	wallispilem1 46636	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) − 1) + 1)) ≤ (𝐼‘((2 · 𝑘) − 1)))
71	69, 70	eqbrtrrd 5124	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘(2 · 𝑘)) ≤ (𝐼‘((2 · 𝑘) − 1)))
72	50, 59, 63, 71	lediv1dd 13095	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
73	66, 67	addcld 11201	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℂ)
74	10	a1i 11	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 2 ≠ 0)
75		nnne0 12247	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
76	64, 65, 74, 75	mulne0d 11839	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ≠ 0)
77	73, 66, 76	divcld 11967	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) ∈ ℂ)
78	63	rpcnd 13039	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℂ)
79	63	rpne0d 13042	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≠ 0)
80	77, 78, 79	divcan4d 11973	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
81		2re 12292	. . . . . . . . . . . . . . . 16 ⊢ 2 ∈ ℝ
82	81	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℝ)
83		nnre 12217	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ)
84	82, 83	remulcld 11212	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) ∈ ℝ)
85		1red 11182	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 ∈ ℝ)
86	84, 85	readdcld 11211	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℝ)
87	45	nn0ge0d 12545	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 0 ≤ 2)
88		nnge1 12241	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 ∈ ℕ → 1 ≤ 𝑘)
89	82, 83, 87, 88	lemulge11d 12129	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 2 ≤ (2 · 𝑘))
90	84	ltp1d 12122	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → (2 · 𝑘) < ((2 · 𝑘) + 1))
91	82, 84, 86, 89, 90	lelttrd 11341	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 < ((2 · 𝑘) + 1))
92	82, 86, 91	ltled 11331	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → 2 ≤ ((2 · 𝑘) + 1))
93	45	nn0zd 12593	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → 2 ∈ ℤ)
94	61	nn0zd 12593	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℤ)
95		eluz 12853	. . . . . . . . . . . . . . 15 ⊢ ((2 ∈ ℤ ∧ ((2 · 𝑘) + 1) ∈ ℤ) → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
96	93, 94, 95	syl2anc 593	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) ∈ (ℤ_≥‘2) ↔ 2 ≤ ((2 · 𝑘) + 1)))
97	92, 96	mpbird 259	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ (ℤ_≥‘2))
98	2, 97	itgsinexp 46526	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))))
99	66, 67	pncand 11543	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 1) = (2 · 𝑘))
100	99	oveq1d 7411	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) = ((2 · 𝑘) / ((2 · 𝑘) + 1)))
101		1e2m1 12344	. . . . . . . . . . . . . . . . 17 ⊢ 1 = (2 − 1)
102	101	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 1 = (2 − 1))
103	102	oveq2d 7412	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − 1) = ((2 · 𝑘) − (2 − 1)))
104	66, 64, 67	subsub3d 11572	. . . . . . . . . . . . . . 15 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) − (2 − 1)) = (((2 · 𝑘) + 1) − 2))
105	103, 104	eqtr2d 2798	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) − 2) = ((2 · 𝑘) − 1))
106	105	fveq2d 6871	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐼‘(((2 · 𝑘) + 1) − 2)) = (𝐼‘((2 · 𝑘) − 1)))
107	100, 106	oveq12d 7414	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) − 1) / ((2 · 𝑘) + 1)) · (𝐼‘(((2 · 𝑘) + 1) − 2))) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
108	98, 107	eqtrd 2797	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) = (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1))))
109	108	oveq2d 7412	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
110	54	peano2nnd 12227	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ∈ ℕ)
111	110	nnne0d 12263	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) + 1) ≠ 0)
112	66, 73, 111	divcld 11967	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → ((2 · 𝑘) / ((2 · 𝑘) + 1)) ∈ ℂ)
113	58	rpcnd 13039	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) − 1)) ∈ ℂ)
114	77, 112, 113	mulassd 11205	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (((2 · 𝑘) / ((2 · 𝑘) + 1)) · (𝐼‘((2 · 𝑘) − 1)))))
115	73, 66, 111, 76	divcan6d 11986	. . . . . . . . . . . 12 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) = 1)
116	115	oveq1d 7411	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (1 · (𝐼‘((2 · 𝑘) − 1))))
117	113	mullidd 11200	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ → (1 · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
118	116, 117	eqtrd 2797	. . . . . . . . . 10 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · ((2 · 𝑘) / ((2 · 𝑘) + 1))) · (𝐼‘((2 · 𝑘) − 1))) = (𝐼‘((2 · 𝑘) − 1)))
119	109, 114, 118	3eqtr2d 2803	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → ((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) = (𝐼‘((2 · 𝑘) − 1)))
120	119	oveq1d 7411	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (((((2 · 𝑘) + 1) / (2 · 𝑘)) · (𝐼‘((2 · 𝑘) + 1))) / (𝐼‘((2 · 𝑘) + 1))) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
121	80, 120	eqtr3d 2799	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → (((2 · 𝑘) + 1) / (2 · 𝑘)) = ((𝐼‘((2 · 𝑘) − 1)) / (𝐼‘((2 · 𝑘) + 1))))
122	72, 121	breqtrrd 5128	. . . . . 6 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ≤ (((2 · 𝑘) + 1) / (2 · 𝑘)))
123	49, 63	rpdivcld 13054	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺)
124		nfcv 2924	. . . . . . . 8 ⊢ Ⅎ𝑛𝑘
125		nfmpt1 5199	. . . . . . . . . . 11 ⊢ Ⅎ𝑛(𝑛 ∈ ℕ₀ ↦ ∫(0(,)π)((sin‘𝑥)↑𝑛) d𝑥)
126	2, 125	nfcxfr 2922	. . . . . . . . . 10 ⊢ Ⅎ𝑛𝐼
127		nfcv 2924	. . . . . . . . . 10 ⊢ Ⅎ𝑛(2 · 𝑘)
128	126, 127	nffv 6877	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘(2 · 𝑘))
129		nfcv 2924	. . . . . . . . 9 ⊢ Ⅎ𝑛 /
130		nfcv 2924	. . . . . . . . . 10 ⊢ Ⅎ𝑛((2 · 𝑘) + 1)
131	126, 130	nffv 6877	. . . . . . . . 9 ⊢ Ⅎ𝑛(𝐼‘((2 · 𝑘) + 1))
132	128, 129, 131	nfov 7426	. . . . . . . 8 ⊢ Ⅎ𝑛((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1)))
133		oveq2 7404	. . . . . . . . . 10 ⊢ (𝑛 = 𝑘 → (2 · 𝑛) = (2 · 𝑘))
134	133	fveq2d 6871	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘(2 · 𝑛)) = (𝐼‘(2 · 𝑘)))
135	133	fvoveq1d 7418	. . . . . . . . 9 ⊢ (𝑛 = 𝑘 → (𝐼‘((2 · 𝑛) + 1)) = (𝐼‘((2 · 𝑘) + 1)))
136	134, 135	oveq12d 7414	. . . . . . . 8 ⊢ (𝑛 = 𝑘 → ((𝐼‘(2 · 𝑛)) / (𝐼‘((2 · 𝑛) + 1))) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
137	124, 132, 136, 3	fvmptf 6997	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))) ∈ ℝ⁺) → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
138	123, 137	mpdan 697	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) = ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
139	8	a1i 11	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝐿 = (𝑛 ∈ ℕ ↦ (((2 · 𝑛) + 1) / (2 · 𝑛))))
140		simpr 488	. . . . . . . . . 10 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → 𝑛 = 𝑘)
141	140	oveq2d 7412	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (2 · 𝑛) = (2 · 𝑘))
142	141	oveq1d 7411	. . . . . . . 8 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → ((2 · 𝑛) + 1) = ((2 · 𝑘) + 1))
143	142, 141	oveq12d 7414	. . . . . . 7 ⊢ ((𝑘 ∈ ℕ ∧ 𝑛 = 𝑘) → (((2 · 𝑛) + 1) / (2 · 𝑛)) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
144	139, 143, 53, 77	fvmptd 6983	. . . . . 6 ⊢ (𝑘 ∈ ℕ → (𝐿‘𝑘) = (((2 · 𝑘) + 1) / (2 · 𝑘)))
145	122, 138, 144	3brtr4d 5132	. . . . 5 ⊢ (𝑘 ∈ ℕ → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
146	145	adantl 485	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → (𝐺‘𝑘) ≤ (𝐿‘𝑘))
147	78, 79	dividd 11965	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) = 1)
148	63	rpred 13037	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ∈ ℝ)
149	2, 47	wallispilem1 46636	. . . . . . . 8 ⊢ (𝑘 ∈ ℕ → (𝐼‘((2 · 𝑘) + 1)) ≤ (𝐼‘(2 · 𝑘)))
150	148, 50, 63, 149	lediv1dd 13095	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → ((𝐼‘((2 · 𝑘) + 1)) / (𝐼‘((2 · 𝑘) + 1))) ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
151	147, 150	eqbrtrrd 5124	. . . . . 6 ⊢ (𝑘 ∈ ℕ → 1 ≤ ((𝐼‘(2 · 𝑘)) / (𝐼‘((2 · 𝑘) + 1))))
152	151, 138	breqtrrd 5128	. . . . 5 ⊢ (𝑘 ∈ ℕ → 1 ≤ (𝐺‘𝑘))
153	152	adantl 485	. . . 4 ⊢ ((⊤ ∧ 𝑘 ∈ ℕ) → 1 ≤ (𝐺‘𝑘))
154	6, 7, 13, 17, 35, 44, 146, 153	climsqz2 15669	. . 3 ⊢ (⊤ → 𝐺 ⇝ 1)
155	154	mptru 1567	. 2 ⊢ 𝐺 ⇝ 1
156	5, 155	eqbrtrri 5123	1 ⊢ 𝐻 ⇝ 1

Colors of variables: wff setvar class

Syntax hints: ↔ wb 208 ∧ wa 399 = wceq 1560 ⊤wtru 1561 ∈ wcel 2142 ≠ wne 2957 Vcvv 3454 class class class wbr 5100 ↦ cmpt 5181 ⟶wf 6517 ‘cfv 6521 (class class class)co 7396 ℂcc 11071 ℝcr 11072 0cc0 11073 1c1 11074 + caddc 11076 · cmul 11078 ≤ cle 11217 − cmin 11414 / cdiv 11844 ℕcn 12210 2c2 12272 ℕ₀cn0 12481 ℤcz 12568 ℤ_≥cuz 12839 ℝ⁺crp 12993 (,)cioo 13349 seqcseq 14014 ↑cexp 14074 ⇝ cli 15511 sincsin 16093 πcpi 16096 ∫citg 25677

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1815 ax-4 1829 ax-5 1930 ax-6 1987 ax-7 2028 ax-8 2144 ax-9 2152 ax-10 2175 ax-11 2191 ax-12 2212 ax-ext 2734 ax-rep 5227 ax-sep 5246 ax-nul 5256 ax-pow 5322 ax-pr 5390 ax-un 7718 ax-inf2 9596 ax-cc 10392 ax-cnex 11129 ax-resscn 11130 ax-1cn 11131 ax-icn 11132 ax-addcl 11133 ax-addrcl 11134 ax-mulcl 11135 ax-mulrcl 11136 ax-mulcom 11137 ax-addass 11138 ax-mulass 11139 ax-distr 11140 ax-i2m1 11141 ax-1ne0 11142 ax-1rid 11143 ax-rnegex 11144 ax-rrecex 11145 ax-cnre 11146 ax-pre-lttri 11147 ax-pre-lttrn 11148 ax-pre-ltadd 11149 ax-pre-mulgt0 11150 ax-pre-sup 11151 ax-addf 11152

This theorem depends on definitions: df-bi 209 df-an 400 df-or 859 df-3or 1099 df-3an 1100 df-tru 1563 df-fal 1573 df-ex 1800 df-nf 1804 df-sb 2091 df-mo 2566 df-eu 2596 df-clab 2741 df-cleq 2754 df-clel 2837 df-nfc 2911 df-ne 2958 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3367 df-reu 3368 df-rab 3415 df-v 3456 df-sbc 3745 df-csb 3853 df-dif 3907 df-un 3909 df-in 3911 df-ss 3921 df-pss 3924 df-symdif 4205 df-nul 4286 df-if 4481 df-pw 4557 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-uni 4866 df-int 4906 df-iun 4951 df-iin 4952 df-disj 5068 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5542 df-eprel 5547 df-po 5555 df-so 5556 df-fr 5600 df-se 5601 df-we 5602 df-xp 5653 df-rel 5654 df-cnv 5655 df-co 5656 df-dm 5657 df-rn 5658 df-res 5659 df-ima 5660 df-pred 6288 df-ord 6349 df-on 6350 df-lim 6351 df-suc 6352 df-iota 6477 df-fun 6523 df-fn 6524 df-f 6525 df-f1 6526 df-fo 6527 df-f1o 6528 df-fv 6529 df-isom 6530 df-riota 7353 df-ov 7399 df-oprab 7400 df-mpo 7401 df-of 7660 df-ofr 7661 df-om 7847 df-1st 7970 df-2nd 7971 df-supp 8141 df-frecs 8262 df-wrecs 8293 df-recs 8342 df-rdg 8381 df-1o 8437 df-2o 8438 df-oadd 8441 df-omul 8442 df-er 8678 df-map 8810 df-pm 8811 df-ixp 8880 df-en 8928 df-dom 8929 df-sdom 8930 df-fin 8931 df-fsupp 9308 df-fi 9357 df-sup 9388 df-inf 9389 df-oi 9458 df-dju 9859 df-card 9897 df-acn 9900 df-pnf 11218 df-mnf 11219 df-xr 11220 df-ltxr 11221 df-le 11222 df-sub 11416 df-neg 11417 df-div 11845 df-nn 12211 df-2 12280 df-3 12281 df-4 12282 df-5 12283 df-6 12284 df-7 12285 df-8 12286 df-9 12287 df-n0 12482 df-z 12569 df-dec 12689 df-uz 12840 df-q 12950 df-rp 12994 df-xneg 13114 df-xadd 13115 df-xmul 13116 df-ioo 13353 df-ioc 13354 df-ico 13355 df-icc 13356 df-fz 13513 df-fzo 13660 df-fl 13802 df-mod 13880 df-seq 14015 df-exp 14075 df-fac 14287 df-bc 14316 df-hash 14344 df-shft 15080 df-cj 15126 df-re 15127 df-im 15128 df-sqrt 15262 df-abs 15263 df-limsup 15498 df-clim 15515 df-rlim 15516 df-sum 15714 df-ef 16097 df-sin 16099 df-cos 16100 df-pi 16102 df-struct 17183 df-sets 17200 df-slot 17218 df-ndx 17230 df-base 17246 df-ress 17267 df-plusg 17299 df-mulr 17300 df-starv 17301 df-sca 17302 df-vsca 17303 df-ip 17304 df-tset 17305 df-ple 17306 df-ds 17308 df-unif 17309 df-hom 17310 df-cco 17311 df-rest 17451 df-topn 17452 df-0g 17470 df-gsum 17471 df-topgen 17472 df-pt 17473 df-prds 17476 df-xrs 17532 df-qtop 17537 df-imas 17538 df-xps 17540 df-mre 17614 df-mrc 17615 df-acs 17617 df-mgm 18674 df-sgrp 18753 df-mnd 18769 df-submnd 18818 df-mulg 19110 df-cntz 19357 df-cmn 19822 df-psmet 21413 df-xmet 21414 df-met 21415 df-bl 21416 df-mopn 21417 df-fbas 21418 df-fg 21419 df-cnfld 21422 df-top 22951 df-topon 22968 df-topsp 22990 df-bases 23003 df-cld 23076 df-ntr 23077 df-cls 23078 df-nei 23155 df-lp 23193 df-perf 23194 df-cn 23284 df-cnp 23285 df-haus 23372 df-cmp 23444 df-tx 23619 df-hmeo 23812 df-fil 23903 df-fm 23995 df-flim 23996 df-flf 23997 df-xms 24377 df-ms 24378 df-tms 24379 df-cncf 24937 df-ovol 25523 df-vol 25524 df-mbf 25678 df-itg1 25679 df-itg2 25680 df-ibl 25681 df-itg 25682 df-0p 25729 df-limc 25925 df-dv 25926

This theorem is referenced by: wallispi 46641

W3C validator