stoweidlem1 - Mathbox for Glauco Siliprandi

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

Theorem stoweidlem1 41005

Description: Lemma for stoweid 41067. This lemma is used by Lemma 1 in [BrosowskiDeutsh] p. 90; the key step uses Bernoulli's inequality bernneq 13284. (Contributed by Glauco Siliprandi, 20-Apr-2017.)

**Hypotheses**
Ref	Expression
stoweidlem1.1	⊢ (𝜑 → 𝑁 ∈ ℕ)
stoweidlem1.2	⊢ (𝜑 → 𝐾 ∈ ℕ)
stoweidlem1.3	⊢ (𝜑 → 𝐷 ∈ ℝ⁺)
stoweidlem1.5	⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
stoweidlem1.6	⊢ (𝜑 → 0 ≤ 𝐴)
stoweidlem1.7	⊢ (𝜑 → 𝐴 ≤ 1)
stoweidlem1.8	⊢ (𝜑 → 𝐷 ≤ 𝐴)

**Assertion**
Ref	Expression
stoweidlem1	⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ≤ (1 / ((𝐾 · 𝐷)↑𝑁)))

**Proof of Theorem stoweidlem1**
Step	Hyp	Ref	Expression
1		1re 10356	. . . . 5 ⊢ 1 ∈ ℝ
2	1	a1i 11	. . . 4 ⊢ (𝜑 → 1 ∈ ℝ)
3		stoweidlem1.5	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
4	3	rpred 12156	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℝ)
5		stoweidlem1.1	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ)
6	5	nnnn0d 11678	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ ℕ₀)
7	4, 6	reexpcld 13319	. . . 4 ⊢ (𝜑 → (𝐴↑𝑁) ∈ ℝ)
8	2, 7	resubcld 10782	. . 3 ⊢ (𝜑 → (1 − (𝐴↑𝑁)) ∈ ℝ)
9		stoweidlem1.2	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ ℕ)
10	9	nnnn0d 11678	. . . 4 ⊢ (𝜑 → 𝐾 ∈ ℕ₀)
11	10, 6	nn0expcld 13327	. . 3 ⊢ (𝜑 → (𝐾↑𝑁) ∈ ℕ₀)
12	8, 11	reexpcld 13319	. 2 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ∈ ℝ)
13		2nn0 11637	. . . . . . . 8 ⊢ 2 ∈ ℕ₀
14	13	a1i 11	. . . . . . 7 ⊢ (𝜑 → 2 ∈ ℕ₀)
15	14, 6	nn0mulcld 11683	. . . . . 6 ⊢ (𝜑 → (2 · 𝑁) ∈ ℕ₀)
16	4, 15	reexpcld 13319	. . . . 5 ⊢ (𝜑 → (𝐴↑(2 · 𝑁)) ∈ ℝ)
17	2, 16	resubcld 10782	. . . 4 ⊢ (𝜑 → (1 − (𝐴↑(2 · 𝑁))) ∈ ℝ)
18	17, 11	reexpcld 13319	. . 3 ⊢ (𝜑 → ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ∈ ℝ)
19	9	nnred 11367	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ ℝ)
20	19, 4	remulcld 10387	. . . 4 ⊢ (𝜑 → (𝐾 · 𝐴) ∈ ℝ)
21	20, 6	reexpcld 13319	. . 3 ⊢ (𝜑 → ((𝐾 · 𝐴)↑𝑁) ∈ ℝ)
22	9	nncnd 11368	. . . . 5 ⊢ (𝜑 → 𝐾 ∈ ℂ)
23	3	rpcnd 12158	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ ℂ)
24	9	nnne0d 11401	. . . . 5 ⊢ (𝜑 → 𝐾 ≠ 0)
25	3	rpne0d 12161	. . . . 5 ⊢ (𝜑 → 𝐴 ≠ 0)
26	22, 23, 24, 25	mulne0d 11004	. . . 4 ⊢ (𝜑 → (𝐾 · 𝐴) ≠ 0)
27	22, 23	mulcld 10377	. . . . 5 ⊢ (𝜑 → (𝐾 · 𝐴) ∈ ℂ)
28		expne0 13185	. . . . 5 ⊢ (((𝐾 · 𝐴) ∈ ℂ ∧ 𝑁 ∈ ℕ) → (((𝐾 · 𝐴)↑𝑁) ≠ 0 ↔ (𝐾 · 𝐴) ≠ 0))
29	27, 5, 28	syl2anc 579	. . . 4 ⊢ (𝜑 → (((𝐾 · 𝐴)↑𝑁) ≠ 0 ↔ (𝐾 · 𝐴) ≠ 0))
30	26, 29	mpbird 249	. . 3 ⊢ (𝜑 → ((𝐾 · 𝐴)↑𝑁) ≠ 0)
31	18, 21, 30	redivcld 11179	. 2 ⊢ (𝜑 → (((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)) ∈ ℝ)
32		stoweidlem1.3	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ ℝ⁺)
33	32	rpred 12156	. . . . 5 ⊢ (𝜑 → 𝐷 ∈ ℝ)
34	19, 33	remulcld 10387	. . . 4 ⊢ (𝜑 → (𝐾 · 𝐷) ∈ ℝ)
35	34, 6	reexpcld 13319	. . 3 ⊢ (𝜑 → ((𝐾 · 𝐷)↑𝑁) ∈ ℝ)
36	32	rpcnd 12158	. . . . 5 ⊢ (𝜑 → 𝐷 ∈ ℂ)
37	32	rpne0d 12161	. . . . 5 ⊢ (𝜑 → 𝐷 ≠ 0)
38	22, 36, 24, 37	mulne0d 11004	. . . 4 ⊢ (𝜑 → (𝐾 · 𝐷) ≠ 0)
39	22, 36	mulcld 10377	. . . . 5 ⊢ (𝜑 → (𝐾 · 𝐷) ∈ ℂ)
40		expne0 13185	. . . . 5 ⊢ (((𝐾 · 𝐷) ∈ ℂ ∧ 𝑁 ∈ ℕ) → (((𝐾 · 𝐷)↑𝑁) ≠ 0 ↔ (𝐾 · 𝐷) ≠ 0))
41	39, 5, 40	syl2anc 579	. . . 4 ⊢ (𝜑 → (((𝐾 · 𝐷)↑𝑁) ≠ 0 ↔ (𝐾 · 𝐷) ≠ 0))
42	38, 41	mpbird 249	. . 3 ⊢ (𝜑 → ((𝐾 · 𝐷)↑𝑁) ≠ 0)
43	2, 35, 42	redivcld 11179	. 2 ⊢ (𝜑 → (1 / ((𝐾 · 𝐷)↑𝑁)) ∈ ℝ)
44	19, 6	reexpcld 13319	. . . . . . . 8 ⊢ (𝜑 → (𝐾↑𝑁) ∈ ℝ)
45	44, 7	remulcld 10387	. . . . . . 7 ⊢ (𝜑 → ((𝐾↑𝑁) · (𝐴↑𝑁)) ∈ ℝ)
46	2, 45	readdcld 10386	. . . . . 6 ⊢ (𝜑 → (1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) ∈ ℝ)
47	12, 46	remulcld 10387	. . . . 5 ⊢ (𝜑 → (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) ∈ ℝ)
48	47, 21, 30	redivcld 11179	. . . 4 ⊢ (𝜑 → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) / ((𝐾 · 𝐴)↑𝑁)) ∈ ℝ)
49	2, 7	readdcld 10386	. . . . . . 7 ⊢ (𝜑 → (1 + (𝐴↑𝑁)) ∈ ℝ)
50	49, 11	reexpcld 13319	. . . . . 6 ⊢ (𝜑 → ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁)) ∈ ℝ)
51	12, 50	remulcld 10387	. . . . 5 ⊢ (𝜑 → (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) ∈ ℝ)
52	51, 21, 30	redivcld 11179	. . . 4 ⊢ (𝜑 → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)) ∈ ℝ)
53	46, 21, 30	redivcld 11179	. . . . . 6 ⊢ (𝜑 → ((1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)) ∈ ℝ)
54		stoweidlem1.6	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ 𝐴)
55		stoweidlem1.7	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ≤ 1)
56		exple1 13214	. . . . . . . . 9 ⊢ (((𝐴 ∈ ℝ ∧ 0 ≤ 𝐴 ∧ 𝐴 ≤ 1) ∧ 𝑁 ∈ ℕ₀) → (𝐴↑𝑁) ≤ 1)
57	4, 54, 55, 6, 56	syl31anc 1496	. . . . . . . 8 ⊢ (𝜑 → (𝐴↑𝑁) ≤ 1)
58	2, 7	subge0d 10942	. . . . . . . 8 ⊢ (𝜑 → (0 ≤ (1 − (𝐴↑𝑁)) ↔ (𝐴↑𝑁) ≤ 1))
59	57, 58	mpbird 249	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (1 − (𝐴↑𝑁)))
60	8, 11, 59	expge0d 13320	. . . . . 6 ⊢ (𝜑 → 0 ≤ ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)))
61	27, 6	expcld 13302	. . . . . . . . 9 ⊢ (𝜑 → ((𝐾 · 𝐴)↑𝑁) ∈ ℂ)
62	61, 30	dividd 11125	. . . . . . . 8 ⊢ (𝜑 → (((𝐾 · 𝐴)↑𝑁) / ((𝐾 · 𝐴)↑𝑁)) = 1)
63	61	addid2d 10556	. . . . . . . . . 10 ⊢ (𝜑 → (0 + ((𝐾 · 𝐴)↑𝑁)) = ((𝐾 · 𝐴)↑𝑁))
64		0red 10360	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ∈ ℝ)
65		0le1 10875	. . . . . . . . . . . 12 ⊢ 0 ≤ 1
66	65	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ 1)
67	64, 2, 21, 66	leadd1dd 10966	. . . . . . . . . 10 ⊢ (𝜑 → (0 + ((𝐾 · 𝐴)↑𝑁)) ≤ (1 + ((𝐾 · 𝐴)↑𝑁)))
68	63, 67	eqbrtrrd 4897	. . . . . . . . 9 ⊢ (𝜑 → ((𝐾 · 𝐴)↑𝑁) ≤ (1 + ((𝐾 · 𝐴)↑𝑁)))
69	2, 21	readdcld 10386	. . . . . . . . . 10 ⊢ (𝜑 → (1 + ((𝐾 · 𝐴)↑𝑁)) ∈ ℝ)
70	5	nnzd 11809	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℤ)
71	9	nngt0d 11400	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝐾)
72	3	rpgt0d 12159	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝐴)
73	19, 4, 71, 72	mulgt0d 10511	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < (𝐾 · 𝐴))
74		expgt0 13187	. . . . . . . . . . 11 ⊢ (((𝐾 · 𝐴) ∈ ℝ ∧ 𝑁 ∈ ℤ ∧ 0 < (𝐾 · 𝐴)) → 0 < ((𝐾 · 𝐴)↑𝑁))
75	20, 70, 73, 74	syl3anc 1494	. . . . . . . . . 10 ⊢ (𝜑 → 0 < ((𝐾 · 𝐴)↑𝑁))
76		lediv1 11218	. . . . . . . . . 10 ⊢ ((((𝐾 · 𝐴)↑𝑁) ∈ ℝ ∧ (1 + ((𝐾 · 𝐴)↑𝑁)) ∈ ℝ ∧ (((𝐾 · 𝐴)↑𝑁) ∈ ℝ ∧ 0 < ((𝐾 · 𝐴)↑𝑁))) → (((𝐾 · 𝐴)↑𝑁) ≤ (1 + ((𝐾 · 𝐴)↑𝑁)) ↔ (((𝐾 · 𝐴)↑𝑁) / ((𝐾 · 𝐴)↑𝑁)) ≤ ((1 + ((𝐾 · 𝐴)↑𝑁)) / ((𝐾 · 𝐴)↑𝑁))))
77	21, 69, 21, 75, 76	syl112anc 1497	. . . . . . . . 9 ⊢ (𝜑 → (((𝐾 · 𝐴)↑𝑁) ≤ (1 + ((𝐾 · 𝐴)↑𝑁)) ↔ (((𝐾 · 𝐴)↑𝑁) / ((𝐾 · 𝐴)↑𝑁)) ≤ ((1 + ((𝐾 · 𝐴)↑𝑁)) / ((𝐾 · 𝐴)↑𝑁))))
78	68, 77	mpbid 224	. . . . . . . 8 ⊢ (𝜑 → (((𝐾 · 𝐴)↑𝑁) / ((𝐾 · 𝐴)↑𝑁)) ≤ ((1 + ((𝐾 · 𝐴)↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)))
79	62, 78	eqbrtrrd 4897	. . . . . . 7 ⊢ (𝜑 → 1 ≤ ((1 + ((𝐾 · 𝐴)↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)))
80	22, 23, 6	mulexpd 13317	. . . . . . . . 9 ⊢ (𝜑 → ((𝐾 · 𝐴)↑𝑁) = ((𝐾↑𝑁) · (𝐴↑𝑁)))
81	80	oveq2d 6921	. . . . . . . 8 ⊢ (𝜑 → (1 + ((𝐾 · 𝐴)↑𝑁)) = (1 + ((𝐾↑𝑁) · (𝐴↑𝑁))))
82	81	oveq1d 6920	. . . . . . 7 ⊢ (𝜑 → ((1 + ((𝐾 · 𝐴)↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)) = ((1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)))
83	79, 82	breqtrd 4899	. . . . . 6 ⊢ (𝜑 → 1 ≤ ((1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)))
84	12, 53, 60, 83	lemulge11d 11291	. . . . 5 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ≤ (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) / ((𝐾 · 𝐴)↑𝑁))))
85		1cnd 10351	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℂ)
86	23, 6	expcld 13302	. . . . . . . 8 ⊢ (𝜑 → (𝐴↑𝑁) ∈ ℂ)
87	85, 86	subcld 10713	. . . . . . 7 ⊢ (𝜑 → (1 − (𝐴↑𝑁)) ∈ ℂ)
88	87, 11	expcld 13302	. . . . . 6 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ∈ ℂ)
89	22, 6	expcld 13302	. . . . . . . 8 ⊢ (𝜑 → (𝐾↑𝑁) ∈ ℂ)
90	89, 86	mulcld 10377	. . . . . . 7 ⊢ (𝜑 → ((𝐾↑𝑁) · (𝐴↑𝑁)) ∈ ℂ)
91	85, 90	addcld 10376	. . . . . 6 ⊢ (𝜑 → (1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) ∈ ℂ)
92	88, 91, 61, 30	divassd 11162	. . . . 5 ⊢ (𝜑 → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) / ((𝐾 · 𝐴)↑𝑁)) = (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) / ((𝐾 · 𝐴)↑𝑁))))
93	84, 92	breqtrrd 4901	. . . 4 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ≤ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) / ((𝐾 · 𝐴)↑𝑁)))
94	89, 86	mulcomd 10378	. . . . . . . 8 ⊢ (𝜑 → ((𝐾↑𝑁) · (𝐴↑𝑁)) = ((𝐴↑𝑁) · (𝐾↑𝑁)))
95	94	oveq2d 6921	. . . . . . 7 ⊢ (𝜑 → (1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) = (1 + ((𝐴↑𝑁) · (𝐾↑𝑁))))
96	2	renegcld 10781	. . . . . . . . 9 ⊢ (𝜑 → -1 ∈ ℝ)
97		le0neg2 10861	. . . . . . . . . . . 12 ⊢ (1 ∈ ℝ → (0 ≤ 1 ↔ -1 ≤ 0))
98	1, 97	ax-mp 5	. . . . . . . . . . 11 ⊢ (0 ≤ 1 ↔ -1 ≤ 0)
99	65, 98	mpbi 222	. . . . . . . . . 10 ⊢ -1 ≤ 0
100	99	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → -1 ≤ 0)
101	4, 6, 54	expge0d 13320	. . . . . . . . 9 ⊢ (𝜑 → 0 ≤ (𝐴↑𝑁))
102	96, 64, 7, 100, 101	letrd 10513	. . . . . . . 8 ⊢ (𝜑 → -1 ≤ (𝐴↑𝑁))
103		bernneq 13284	. . . . . . . 8 ⊢ (((𝐴↑𝑁) ∈ ℝ ∧ (𝐾↑𝑁) ∈ ℕ₀ ∧ -1 ≤ (𝐴↑𝑁)) → (1 + ((𝐴↑𝑁) · (𝐾↑𝑁))) ≤ ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁)))
104	7, 11, 102, 103	syl3anc 1494	. . . . . . 7 ⊢ (𝜑 → (1 + ((𝐴↑𝑁) · (𝐾↑𝑁))) ≤ ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁)))
105	95, 104	eqbrtrd 4895	. . . . . 6 ⊢ (𝜑 → (1 + ((𝐾↑𝑁) · (𝐴↑𝑁))) ≤ ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁)))
106	46, 50, 12, 60, 105	lemul2ad 11294	. . . . 5 ⊢ (𝜑 → (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) ≤ (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))))
107		lediv1 11218	. . . . . 6 ⊢ (((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) ∈ ℝ ∧ (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) ∈ ℝ ∧ (((𝐾 · 𝐴)↑𝑁) ∈ ℝ ∧ 0 < ((𝐾 · 𝐴)↑𝑁))) → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) ≤ (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) ↔ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) / ((𝐾 · 𝐴)↑𝑁)) ≤ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) / ((𝐾 · 𝐴)↑𝑁))))
108	47, 51, 21, 75, 107	syl112anc 1497	. . . . 5 ⊢ (𝜑 → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) ≤ (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) ↔ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) / ((𝐾 · 𝐴)↑𝑁)) ≤ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) / ((𝐾 · 𝐴)↑𝑁))))
109	106, 108	mpbid 224	. . . 4 ⊢ (𝜑 → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · (1 + ((𝐾↑𝑁) · (𝐴↑𝑁)))) / ((𝐾 · 𝐴)↑𝑁)) ≤ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)))
110	12, 48, 52, 93, 109	letrd 10513	. . 3 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ≤ ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)))
111	85, 86	addcld 10376	. . . . . . 7 ⊢ (𝜑 → (1 + (𝐴↑𝑁)) ∈ ℂ)
112	87, 111	mulcomd 10378	. . . . . 6 ⊢ (𝜑 → ((1 − (𝐴↑𝑁)) · (1 + (𝐴↑𝑁))) = ((1 + (𝐴↑𝑁)) · (1 − (𝐴↑𝑁))))
113	112	oveq1d 6920	. . . . 5 ⊢ (𝜑 → (((1 − (𝐴↑𝑁)) · (1 + (𝐴↑𝑁)))↑(𝐾↑𝑁)) = (((1 + (𝐴↑𝑁)) · (1 − (𝐴↑𝑁)))↑(𝐾↑𝑁)))
114	87, 111, 11	mulexpd 13317	. . . . 5 ⊢ (𝜑 → (((1 − (𝐴↑𝑁)) · (1 + (𝐴↑𝑁)))↑(𝐾↑𝑁)) = (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))))
115		subsq 13266	. . . . . . . 8 ⊢ ((1 ∈ ℂ ∧ (𝐴↑𝑁) ∈ ℂ) → ((1↑2) − ((𝐴↑𝑁)↑2)) = ((1 + (𝐴↑𝑁)) · (1 − (𝐴↑𝑁))))
116	85, 86, 115	syl2anc 579	. . . . . . 7 ⊢ (𝜑 → ((1↑2) − ((𝐴↑𝑁)↑2)) = ((1 + (𝐴↑𝑁)) · (1 − (𝐴↑𝑁))))
117		sq1 13252	. . . . . . . . 9 ⊢ (1↑2) = 1
118	117	a1i 11	. . . . . . . 8 ⊢ (𝜑 → (1↑2) = 1)
119	23, 14, 6	expmuld 13305	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑(𝑁 · 2)) = ((𝐴↑𝑁)↑2))
120	5	nncnd 11368	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 ∈ ℂ)
121		2cnd 11429	. . . . . . . . . . 11 ⊢ (𝜑 → 2 ∈ ℂ)
122	120, 121	mulcomd 10378	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 · 2) = (2 · 𝑁))
123	122	oveq2d 6921	. . . . . . . . 9 ⊢ (𝜑 → (𝐴↑(𝑁 · 2)) = (𝐴↑(2 · 𝑁)))
124	119, 123	eqtr3d 2863	. . . . . . . 8 ⊢ (𝜑 → ((𝐴↑𝑁)↑2) = (𝐴↑(2 · 𝑁)))
125	118, 124	oveq12d 6923	. . . . . . 7 ⊢ (𝜑 → ((1↑2) − ((𝐴↑𝑁)↑2)) = (1 − (𝐴↑(2 · 𝑁))))
126	116, 125	eqtr3d 2863	. . . . . 6 ⊢ (𝜑 → ((1 + (𝐴↑𝑁)) · (1 − (𝐴↑𝑁))) = (1 − (𝐴↑(2 · 𝑁))))
127	126	oveq1d 6920	. . . . 5 ⊢ (𝜑 → (((1 + (𝐴↑𝑁)) · (1 − (𝐴↑𝑁)))↑(𝐾↑𝑁)) = ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)))
128	113, 114, 127	3eqtr3d 2869	. . . 4 ⊢ (𝜑 → (((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) = ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)))
129	128	oveq1d 6920	. . 3 ⊢ (𝜑 → ((((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) · ((1 + (𝐴↑𝑁))↑(𝐾↑𝑁))) / ((𝐾 · 𝐴)↑𝑁)) = (((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)))
130	110, 129	breqtrd 4899	. 2 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ≤ (((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)))
131	18, 2	jca 507	. . . 4 ⊢ (𝜑 → (((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ∈ ℝ ∧ 1 ∈ ℝ))
132		exple1 13214	. . . . . . 7 ⊢ (((𝐴 ∈ ℝ ∧ 0 ≤ 𝐴 ∧ 𝐴 ≤ 1) ∧ (2 · 𝑁) ∈ ℕ₀) → (𝐴↑(2 · 𝑁)) ≤ 1)
133	4, 54, 55, 15, 132	syl31anc 1496	. . . . . 6 ⊢ (𝜑 → (𝐴↑(2 · 𝑁)) ≤ 1)
134	2, 16	subge0d 10942	. . . . . 6 ⊢ (𝜑 → (0 ≤ (1 − (𝐴↑(2 · 𝑁))) ↔ (𝐴↑(2 · 𝑁)) ≤ 1))
135	133, 134	mpbird 249	. . . . 5 ⊢ (𝜑 → 0 ≤ (1 − (𝐴↑(2 · 𝑁))))
136	17, 11, 135	expge0d 13320	. . . 4 ⊢ (𝜑 → 0 ≤ ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)))
137		1m1e0 11423	. . . . . . 7 ⊢ (1 − 1) = 0
138	4, 15, 54	expge0d 13320	. . . . . . 7 ⊢ (𝜑 → 0 ≤ (𝐴↑(2 · 𝑁)))
139	137, 138	syl5eqbr 4908	. . . . . 6 ⊢ (𝜑 → (1 − 1) ≤ (𝐴↑(2 · 𝑁)))
140	2, 2, 16, 139	subled 10955	. . . . 5 ⊢ (𝜑 → (1 − (𝐴↑(2 · 𝑁))) ≤ 1)
141		exple1 13214	. . . . 5 ⊢ ((((1 − (𝐴↑(2 · 𝑁))) ∈ ℝ ∧ 0 ≤ (1 − (𝐴↑(2 · 𝑁))) ∧ (1 − (𝐴↑(2 · 𝑁))) ≤ 1) ∧ (𝐾↑𝑁) ∈ ℕ₀) → ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ≤ 1)
142	17, 135, 140, 11, 141	syl31anc 1496	. . . 4 ⊢ (𝜑 → ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ≤ 1)
143	131, 136, 142	jca32 511	. . 3 ⊢ (𝜑 → ((((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ∈ ℝ ∧ 1 ∈ ℝ) ∧ (0 ≤ ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ∧ ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ≤ 1)))
144	35, 21	jca 507	. . 3 ⊢ (𝜑 → (((𝐾 · 𝐷)↑𝑁) ∈ ℝ ∧ ((𝐾 · 𝐴)↑𝑁) ∈ ℝ))
145	32	rpgt0d 12159	. . . . . 6 ⊢ (𝜑 → 0 < 𝐷)
146	19, 33, 71, 145	mulgt0d 10511	. . . . 5 ⊢ (𝜑 → 0 < (𝐾 · 𝐷))
147		expgt0 13187	. . . . 5 ⊢ (((𝐾 · 𝐷) ∈ ℝ ∧ 𝑁 ∈ ℤ ∧ 0 < (𝐾 · 𝐷)) → 0 < ((𝐾 · 𝐷)↑𝑁))
148	34, 70, 146, 147	syl3anc 1494	. . . 4 ⊢ (𝜑 → 0 < ((𝐾 · 𝐷)↑𝑁))
149	64, 19, 71	ltled 10504	. . . . . 6 ⊢ (𝜑 → 0 ≤ 𝐾)
150	64, 33, 145	ltled 10504	. . . . . 6 ⊢ (𝜑 → 0 ≤ 𝐷)
151	19, 33, 149, 150	mulge0d 10929	. . . . 5 ⊢ (𝜑 → 0 ≤ (𝐾 · 𝐷))
152		stoweidlem1.8	. . . . . 6 ⊢ (𝜑 → 𝐷 ≤ 𝐴)
153	33, 4, 19, 149, 152	lemul2ad 11294	. . . . 5 ⊢ (𝜑 → (𝐾 · 𝐷) ≤ (𝐾 · 𝐴))
154		leexp1a 13213	. . . . 5 ⊢ ((((𝐾 · 𝐷) ∈ ℝ ∧ (𝐾 · 𝐴) ∈ ℝ ∧ 𝑁 ∈ ℕ₀) ∧ (0 ≤ (𝐾 · 𝐷) ∧ (𝐾 · 𝐷) ≤ (𝐾 · 𝐴))) → ((𝐾 · 𝐷)↑𝑁) ≤ ((𝐾 · 𝐴)↑𝑁))
155	34, 20, 6, 151, 153, 154	syl32anc 1501	. . . 4 ⊢ (𝜑 → ((𝐾 · 𝐷)↑𝑁) ≤ ((𝐾 · 𝐴)↑𝑁))
156	148, 155	jca 507	. . 3 ⊢ (𝜑 → (0 < ((𝐾 · 𝐷)↑𝑁) ∧ ((𝐾 · 𝐷)↑𝑁) ≤ ((𝐾 · 𝐴)↑𝑁)))
157		lediv12a 11246	. . 3 ⊢ ((((((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ∈ ℝ ∧ 1 ∈ ℝ) ∧ (0 ≤ ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ∧ ((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) ≤ 1)) ∧ ((((𝐾 · 𝐷)↑𝑁) ∈ ℝ ∧ ((𝐾 · 𝐴)↑𝑁) ∈ ℝ) ∧ (0 < ((𝐾 · 𝐷)↑𝑁) ∧ ((𝐾 · 𝐷)↑𝑁) ≤ ((𝐾 · 𝐴)↑𝑁)))) → (((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)) ≤ (1 / ((𝐾 · 𝐷)↑𝑁)))
158	143, 144, 156, 157	syl12anc 870	. 2 ⊢ (𝜑 → (((1 − (𝐴↑(2 · 𝑁)))↑(𝐾↑𝑁)) / ((𝐾 · 𝐴)↑𝑁)) ≤ (1 / ((𝐾 · 𝐷)↑𝑁)))
159	12, 31, 43, 130, 158	letrd 10513	1 ⊢ (𝜑 → ((1 − (𝐴↑𝑁))↑(𝐾↑𝑁)) ≤ (1 / ((𝐾 · 𝐷)↑𝑁)))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 198 ∧ wa 386 = wceq 1656 ∈ wcel 2164 ≠ wne 2999 class class class wbr 4873 (class class class)co 6905 ℂcc 10250 ℝcr 10251 0cc0 10252 1c1 10253 + caddc 10255 · cmul 10257 < clt 10391 ≤ cle 10392 − cmin 10585 -cneg 10586 / cdiv 11009 ℕcn 11350 2c2 11406 ℕ₀cn0 11618 ℤcz 11704 ℝ⁺crp 12112 ↑cexp 13154

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1894 ax-4 1908 ax-5 2009 ax-6 2075 ax-7 2112 ax-8 2166 ax-9 2173 ax-10 2192 ax-11 2207 ax-12 2220 ax-13 2389 ax-ext 2803 ax-sep 5005 ax-nul 5013 ax-pow 5065 ax-pr 5127 ax-un 7209 ax-cnex 10308 ax-resscn 10309 ax-1cn 10310 ax-icn 10311 ax-addcl 10312 ax-addrcl 10313 ax-mulcl 10314 ax-mulrcl 10315 ax-mulcom 10316 ax-addass 10317 ax-mulass 10318 ax-distr 10319 ax-i2m1 10320 ax-1ne0 10321 ax-1rid 10322 ax-rnegex 10323 ax-rrecex 10324 ax-cnre 10325 ax-pre-lttri 10326 ax-pre-lttrn 10327 ax-pre-ltadd 10328 ax-pre-mulgt0 10329

This theorem depends on definitions: df-bi 199 df-an 387 df-or 879 df-3or 1112 df-3an 1113 df-tru 1660 df-ex 1879 df-nf 1883 df-sb 2068 df-mo 2605 df-eu 2640 df-clab 2812 df-cleq 2818 df-clel 2821 df-nfc 2958 df-ne 3000 df-nel 3103 df-ral 3122 df-rex 3123 df-reu 3124 df-rmo 3125 df-rab 3126 df-v 3416 df-sbc 3663 df-csb 3758 df-dif 3801 df-un 3803 df-in 3805 df-ss 3812 df-pss 3814 df-nul 4145 df-if 4307 df-pw 4380 df-sn 4398 df-pr 4400 df-tp 4402 df-op 4404 df-uni 4659 df-iun 4742 df-br 4874 df-opab 4936 df-mpt 4953 df-tr 4976 df-id 5250 df-eprel 5255 df-po 5263 df-so 5264 df-fr 5301 df-we 5303 df-xp 5348 df-rel 5349 df-cnv 5350 df-co 5351 df-dm 5352 df-rn 5353 df-res 5354 df-ima 5355 df-pred 5920 df-ord 5966 df-on 5967 df-lim 5968 df-suc 5969 df-iota 6086 df-fun 6125 df-fn 6126 df-f 6127 df-f1 6128 df-fo 6129 df-f1o 6130 df-fv 6131 df-riota 6866 df-ov 6908 df-oprab 6909 df-mpt2 6910 df-om 7327 df-2nd 7429 df-wrecs 7672 df-recs 7734 df-rdg 7772 df-er 8009 df-en 8223 df-dom 8224 df-sdom 8225 df-pnf 10393 df-mnf 10394 df-xr 10395 df-ltxr 10396 df-le 10397 df-sub 10587 df-neg 10588 df-div 11010 df-nn 11351 df-2 11414 df-n0 11619 df-z 11705 df-uz 11969 df-rp 12113 df-seq 13096 df-exp 13155

This theorem is referenced by: stoweidlem25 41029

W3C validator