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

Theorem stoweidlem42 43908
Description: This lemma is used to prove that 𝑥 built as in Lemma 2 of [BrosowskiDeutsh] p. 91, is such that x > 1 - ε on B. Here 𝑋 is used to represent 𝑥 in the paper, and E is used to represent ε in the paper. (Contributed by Glauco Siliprandi, 20-Apr-2017.)
Hypotheses
Ref Expression
stoweidlem42.1 𝑖𝜑
stoweidlem42.2 𝑡𝜑
stoweidlem42.3 𝑡𝑌
stoweidlem42.4 𝑃 = (𝑓𝑌, 𝑔𝑌 ↦ (𝑡𝑇 ↦ ((𝑓𝑡) · (𝑔𝑡))))
stoweidlem42.5 𝑋 = (seq1(𝑃, 𝑈)‘𝑀)
stoweidlem42.6 𝐹 = (𝑡𝑇 ↦ (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)))
stoweidlem42.7 𝑍 = (𝑡𝑇 ↦ (seq1( · , (𝐹𝑡))‘𝑀))
stoweidlem42.8 (𝜑𝑀 ∈ ℕ)
stoweidlem42.9 (𝜑𝑈:(1...𝑀)⟶𝑌)
stoweidlem42.10 ((𝜑𝑖 ∈ (1...𝑀)) → ∀𝑡𝐵 (1 − (𝐸 / 𝑀)) < ((𝑈𝑖)‘𝑡))
stoweidlem42.11 (𝜑𝐸 ∈ ℝ+)
stoweidlem42.12 (𝜑𝐸 < (1 / 3))
stoweidlem42.13 ((𝜑𝑓𝑌) → 𝑓:𝑇⟶ℝ)
stoweidlem42.14 ((𝜑𝑓𝑌𝑔𝑌) → (𝑡𝑇 ↦ ((𝑓𝑡) · (𝑔𝑡))) ∈ 𝑌)
stoweidlem42.15 (𝜑𝑇 ∈ V)
stoweidlem42.16 (𝜑𝐵𝑇)
Assertion
Ref Expression
stoweidlem42 (𝜑 → ∀𝑡𝐵 (1 − 𝐸) < (𝑋𝑡))
Distinct variable groups:   𝑡,𝑖   𝐵,𝑖   𝑖,𝑀   𝑓,𝑔,𝑡,𝑇   𝑓,𝑖,𝑇   𝑓,𝐹,𝑔   𝑓,𝑀,𝑔   𝑈,𝑓,𝑔,𝑡   𝑓,𝑌,𝑔   𝜑,𝑓,𝑔   𝑖,𝐸   𝑈,𝑖
Allowed substitution hints:   𝜑(𝑡,𝑖)   𝐵(𝑡,𝑓,𝑔)   𝑃(𝑡,𝑓,𝑔,𝑖)   𝐸(𝑡,𝑓,𝑔)   𝐹(𝑡,𝑖)   𝑀(𝑡)   𝑋(𝑡,𝑓,𝑔,𝑖)   𝑌(𝑡,𝑖)   𝑍(𝑡,𝑓,𝑔,𝑖)

Proof of Theorem stoweidlem42
Dummy variables 𝑎 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 stoweidlem42.2 . 2 𝑡𝜑
2 1red 11069 . . . . . . . 8 (𝜑 → 1 ∈ ℝ)
3 stoweidlem42.11 . . . . . . . . 9 (𝜑𝐸 ∈ ℝ+)
43rpred 12865 . . . . . . . 8 (𝜑𝐸 ∈ ℝ)
52, 4resubcld 11496 . . . . . . 7 (𝜑 → (1 − 𝐸) ∈ ℝ)
65adantr 481 . . . . . 6 ((𝜑𝑡𝐵) → (1 − 𝐸) ∈ ℝ)
7 stoweidlem42.8 . . . . . . . . . 10 (𝜑𝑀 ∈ ℕ)
84, 7nndivred 12120 . . . . . . . . 9 (𝜑 → (𝐸 / 𝑀) ∈ ℝ)
92, 8resubcld 11496 . . . . . . . 8 (𝜑 → (1 − (𝐸 / 𝑀)) ∈ ℝ)
109adantr 481 . . . . . . 7 ((𝜑𝑡𝐵) → (1 − (𝐸 / 𝑀)) ∈ ℝ)
117nnnn0d 12386 . . . . . . . 8 (𝜑𝑀 ∈ ℕ0)
1211adantr 481 . . . . . . 7 ((𝜑𝑡𝐵) → 𝑀 ∈ ℕ0)
1310, 12reexpcld 13974 . . . . . 6 ((𝜑𝑡𝐵) → ((1 − (𝐸 / 𝑀))↑𝑀) ∈ ℝ)
14 elnnuz 12715 . . . . . . . . 9 (𝑀 ∈ ℕ ↔ 𝑀 ∈ (ℤ‘1))
157, 14sylib 217 . . . . . . . 8 (𝜑𝑀 ∈ (ℤ‘1))
1615adantr 481 . . . . . . 7 ((𝜑𝑡𝐵) → 𝑀 ∈ (ℤ‘1))
17 stoweidlem42.1 . . . . . . . . . . 11 𝑖𝜑
18 nfv 1916 . . . . . . . . . . 11 𝑖 𝑡𝐵
1917, 18nfan 1901 . . . . . . . . . 10 𝑖(𝜑𝑡𝐵)
20 nfv 1916 . . . . . . . . . 10 𝑖 𝑎 ∈ (1...𝑀)
2119, 20nfan 1901 . . . . . . . . 9 𝑖((𝜑𝑡𝐵) ∧ 𝑎 ∈ (1...𝑀))
22 stoweidlem42.6 . . . . . . . . . . . . 13 𝐹 = (𝑡𝑇 ↦ (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)))
23 nfcv 2904 . . . . . . . . . . . . . 14 𝑖𝑇
24 nfmpt1 5197 . . . . . . . . . . . . . 14 𝑖(𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡))
2523, 24nfmpt 5196 . . . . . . . . . . . . 13 𝑖(𝑡𝑇 ↦ (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)))
2622, 25nfcxfr 2902 . . . . . . . . . . . 12 𝑖𝐹
27 nfcv 2904 . . . . . . . . . . . 12 𝑖𝑡
2826, 27nffv 6829 . . . . . . . . . . 11 𝑖(𝐹𝑡)
29 nfcv 2904 . . . . . . . . . . 11 𝑖𝑎
3028, 29nffv 6829 . . . . . . . . . 10 𝑖((𝐹𝑡)‘𝑎)
3130nfel1 2920 . . . . . . . . 9 𝑖((𝐹𝑡)‘𝑎) ∈ ℝ
3221, 31nfim 1898 . . . . . . . 8 𝑖(((𝜑𝑡𝐵) ∧ 𝑎 ∈ (1...𝑀)) → ((𝐹𝑡)‘𝑎) ∈ ℝ)
33 eleq1 2824 . . . . . . . . . 10 (𝑖 = 𝑎 → (𝑖 ∈ (1...𝑀) ↔ 𝑎 ∈ (1...𝑀)))
3433anbi2d 629 . . . . . . . . 9 (𝑖 = 𝑎 → (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) ↔ ((𝜑𝑡𝐵) ∧ 𝑎 ∈ (1...𝑀))))
35 fveq2 6819 . . . . . . . . . 10 (𝑖 = 𝑎 → ((𝐹𝑡)‘𝑖) = ((𝐹𝑡)‘𝑎))
3635eleq1d 2821 . . . . . . . . 9 (𝑖 = 𝑎 → (((𝐹𝑡)‘𝑖) ∈ ℝ ↔ ((𝐹𝑡)‘𝑎) ∈ ℝ))
3734, 36imbi12d 344 . . . . . . . 8 (𝑖 = 𝑎 → ((((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐹𝑡)‘𝑖) ∈ ℝ) ↔ (((𝜑𝑡𝐵) ∧ 𝑎 ∈ (1...𝑀)) → ((𝐹𝑡)‘𝑎) ∈ ℝ)))
38 stoweidlem42.16 . . . . . . . . . . . 12 (𝜑𝐵𝑇)
3938sselda 3931 . . . . . . . . . . 11 ((𝜑𝑡𝐵) → 𝑡𝑇)
40 ovex 7362 . . . . . . . . . . . 12 (1...𝑀) ∈ V
41 mptexg 7147 . . . . . . . . . . . 12 ((1...𝑀) ∈ V → (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)) ∈ V)
4240, 41mp1i 13 . . . . . . . . . . 11 ((𝜑𝑡𝐵) → (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)) ∈ V)
4322fvmpt2 6936 . . . . . . . . . . 11 ((𝑡𝑇 ∧ (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)) ∈ V) → (𝐹𝑡) = (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)))
4439, 42, 43syl2anc 584 . . . . . . . . . 10 ((𝜑𝑡𝐵) → (𝐹𝑡) = (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)))
45 stoweidlem42.9 . . . . . . . . . . . . . 14 (𝜑𝑈:(1...𝑀)⟶𝑌)
4645ffvelcdmda 7011 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (1...𝑀)) → (𝑈𝑖) ∈ 𝑌)
47 simpl 483 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (1...𝑀)) → 𝜑)
4847, 46jca 512 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (1...𝑀)) → (𝜑 ∧ (𝑈𝑖) ∈ 𝑌))
49 eleq1 2824 . . . . . . . . . . . . . . . 16 (𝑓 = (𝑈𝑖) → (𝑓𝑌 ↔ (𝑈𝑖) ∈ 𝑌))
5049anbi2d 629 . . . . . . . . . . . . . . 15 (𝑓 = (𝑈𝑖) → ((𝜑𝑓𝑌) ↔ (𝜑 ∧ (𝑈𝑖) ∈ 𝑌)))
51 feq1 6626 . . . . . . . . . . . . . . 15 (𝑓 = (𝑈𝑖) → (𝑓:𝑇⟶ℝ ↔ (𝑈𝑖):𝑇⟶ℝ))
5250, 51imbi12d 344 . . . . . . . . . . . . . 14 (𝑓 = (𝑈𝑖) → (((𝜑𝑓𝑌) → 𝑓:𝑇⟶ℝ) ↔ ((𝜑 ∧ (𝑈𝑖) ∈ 𝑌) → (𝑈𝑖):𝑇⟶ℝ)))
53 stoweidlem42.13 . . . . . . . . . . . . . 14 ((𝜑𝑓𝑌) → 𝑓:𝑇⟶ℝ)
5452, 53vtoclg 3514 . . . . . . . . . . . . 13 ((𝑈𝑖) ∈ 𝑌 → ((𝜑 ∧ (𝑈𝑖) ∈ 𝑌) → (𝑈𝑖):𝑇⟶ℝ))
5546, 48, 54sylc 65 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (1...𝑀)) → (𝑈𝑖):𝑇⟶ℝ)
5655adantlr 712 . . . . . . . . . . 11 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → (𝑈𝑖):𝑇⟶ℝ)
5739adantr 481 . . . . . . . . . . 11 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → 𝑡𝑇)
5856, 57ffvelcdmd 7012 . . . . . . . . . 10 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → ((𝑈𝑖)‘𝑡) ∈ ℝ)
5944, 58fvmpt2d 6938 . . . . . . . . 9 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐹𝑡)‘𝑖) = ((𝑈𝑖)‘𝑡))
6059, 58eqeltrd 2837 . . . . . . . 8 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → ((𝐹𝑡)‘𝑖) ∈ ℝ)
6132, 37, 60chvarfv 2232 . . . . . . 7 (((𝜑𝑡𝐵) ∧ 𝑎 ∈ (1...𝑀)) → ((𝐹𝑡)‘𝑎) ∈ ℝ)
62 remulcl 11049 . . . . . . . 8 ((𝑎 ∈ ℝ ∧ 𝑗 ∈ ℝ) → (𝑎 · 𝑗) ∈ ℝ)
6362adantl 482 . . . . . . 7 (((𝜑𝑡𝐵) ∧ (𝑎 ∈ ℝ ∧ 𝑗 ∈ ℝ)) → (𝑎 · 𝑗) ∈ ℝ)
6416, 61, 63seqcl 13836 . . . . . 6 ((𝜑𝑡𝐵) → (seq1( · , (𝐹𝑡))‘𝑀) ∈ ℝ)
653rpcnd 12867 . . . . . . . . . . . 12 (𝜑𝐸 ∈ ℂ)
667nncnd 12082 . . . . . . . . . . . 12 (𝜑𝑀 ∈ ℂ)
677nnne0d 12116 . . . . . . . . . . . 12 (𝜑𝑀 ≠ 0)
6865, 66, 67divcan1d 11845 . . . . . . . . . . 11 (𝜑 → ((𝐸 / 𝑀) · 𝑀) = 𝐸)
6968eqcomd 2742 . . . . . . . . . 10 (𝜑𝐸 = ((𝐸 / 𝑀) · 𝑀))
7069oveq2d 7345 . . . . . . . . 9 (𝜑 → (1 − 𝐸) = (1 − ((𝐸 / 𝑀) · 𝑀)))
71 1cnd 11063 . . . . . . . . . 10 (𝜑 → 1 ∈ ℂ)
7265, 66, 67divcld 11844 . . . . . . . . . . 11 (𝜑 → (𝐸 / 𝑀) ∈ ℂ)
7372, 66mulcld 11088 . . . . . . . . . 10 (𝜑 → ((𝐸 / 𝑀) · 𝑀) ∈ ℂ)
7471, 73negsubd 11431 . . . . . . . . 9 (𝜑 → (1 + -((𝐸 / 𝑀) · 𝑀)) = (1 − ((𝐸 / 𝑀) · 𝑀)))
7572, 66mulneg1d 11521 . . . . . . . . . . 11 (𝜑 → (-(𝐸 / 𝑀) · 𝑀) = -((𝐸 / 𝑀) · 𝑀))
7675eqcomd 2742 . . . . . . . . . 10 (𝜑 → -((𝐸 / 𝑀) · 𝑀) = (-(𝐸 / 𝑀) · 𝑀))
7776oveq2d 7345 . . . . . . . . 9 (𝜑 → (1 + -((𝐸 / 𝑀) · 𝑀)) = (1 + (-(𝐸 / 𝑀) · 𝑀)))
7870, 74, 773eqtr2d 2782 . . . . . . . 8 (𝜑 → (1 − 𝐸) = (1 + (-(𝐸 / 𝑀) · 𝑀)))
798renegcld 11495 . . . . . . . . . 10 (𝜑 → -(𝐸 / 𝑀) ∈ ℝ)
807nnred 12081 . . . . . . . . . . . . . 14 (𝜑𝑀 ∈ ℝ)
81 3re 12146 . . . . . . . . . . . . . . . . . 18 3 ∈ ℝ
8281a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → 3 ∈ ℝ)
83 3ne0 12172 . . . . . . . . . . . . . . . . . 18 3 ≠ 0
8483a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑 → 3 ≠ 0)
8582, 84rereccld 11895 . . . . . . . . . . . . . . . 16 (𝜑 → (1 / 3) ∈ ℝ)
86 stoweidlem42.12 . . . . . . . . . . . . . . . 16 (𝜑𝐸 < (1 / 3))
87 1lt3 12239 . . . . . . . . . . . . . . . . . . 19 1 < 3
8887a1i 11 . . . . . . . . . . . . . . . . . 18 (𝜑 → 1 < 3)
89 0lt1 11590 . . . . . . . . . . . . . . . . . . . 20 0 < 1
9089a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝜑 → 0 < 1)
91 3pos 12171 . . . . . . . . . . . . . . . . . . . 20 0 < 3
9291a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝜑 → 0 < 3)
93 ltdiv2 11954 . . . . . . . . . . . . . . . . . . 19 (((1 ∈ ℝ ∧ 0 < 1) ∧ (3 ∈ ℝ ∧ 0 < 3) ∧ (1 ∈ ℝ ∧ 0 < 1)) → (1 < 3 ↔ (1 / 3) < (1 / 1)))
942, 90, 82, 92, 2, 90, 93syl222anc 1385 . . . . . . . . . . . . . . . . . 18 (𝜑 → (1 < 3 ↔ (1 / 3) < (1 / 1)))
9588, 94mpbid 231 . . . . . . . . . . . . . . . . 17 (𝜑 → (1 / 3) < (1 / 1))
96 1div1e1 11758 . . . . . . . . . . . . . . . . 17 (1 / 1) = 1
9795, 96breqtrdi 5130 . . . . . . . . . . . . . . . 16 (𝜑 → (1 / 3) < 1)
984, 85, 2, 86, 97lttrd 11229 . . . . . . . . . . . . . . 15 (𝜑𝐸 < 1)
997nnge1d 12114 . . . . . . . . . . . . . . 15 (𝜑 → 1 ≤ 𝑀)
1004, 2, 80, 98, 99ltletrd 11228 . . . . . . . . . . . . . 14 (𝜑𝐸 < 𝑀)
1014, 80, 100ltled 11216 . . . . . . . . . . . . 13 (𝜑𝐸𝑀)
1023rpregt0d 12871 . . . . . . . . . . . . . 14 (𝜑 → (𝐸 ∈ ℝ ∧ 0 < 𝐸))
1037nngt0d 12115 . . . . . . . . . . . . . 14 (𝜑 → 0 < 𝑀)
104 lediv2 11958 . . . . . . . . . . . . . 14 (((𝐸 ∈ ℝ ∧ 0 < 𝐸) ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀) ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) → (𝐸𝑀 ↔ (𝐸 / 𝑀) ≤ (𝐸 / 𝐸)))
105102, 80, 103, 102, 104syl121anc 1374 . . . . . . . . . . . . 13 (𝜑 → (𝐸𝑀 ↔ (𝐸 / 𝑀) ≤ (𝐸 / 𝐸)))
106101, 105mpbid 231 . . . . . . . . . . . 12 (𝜑 → (𝐸 / 𝑀) ≤ (𝐸 / 𝐸))
1073rpcnne0d 12874 . . . . . . . . . . . . 13 (𝜑 → (𝐸 ∈ ℂ ∧ 𝐸 ≠ 0))
108 divid 11755 . . . . . . . . . . . . 13 ((𝐸 ∈ ℂ ∧ 𝐸 ≠ 0) → (𝐸 / 𝐸) = 1)
109107, 108syl 17 . . . . . . . . . . . 12 (𝜑 → (𝐸 / 𝐸) = 1)
110106, 109breqtrd 5115 . . . . . . . . . . 11 (𝜑 → (𝐸 / 𝑀) ≤ 1)
1118, 2lenegd 11647 . . . . . . . . . . 11 (𝜑 → ((𝐸 / 𝑀) ≤ 1 ↔ -1 ≤ -(𝐸 / 𝑀)))
112110, 111mpbid 231 . . . . . . . . . 10 (𝜑 → -1 ≤ -(𝐸 / 𝑀))
113 bernneq 14037 . . . . . . . . . 10 ((-(𝐸 / 𝑀) ∈ ℝ ∧ 𝑀 ∈ ℕ0 ∧ -1 ≤ -(𝐸 / 𝑀)) → (1 + (-(𝐸 / 𝑀) · 𝑀)) ≤ ((1 + -(𝐸 / 𝑀))↑𝑀))
11479, 11, 112, 113syl3anc 1370 . . . . . . . . 9 (𝜑 → (1 + (-(𝐸 / 𝑀) · 𝑀)) ≤ ((1 + -(𝐸 / 𝑀))↑𝑀))
11571, 72negsubd 11431 . . . . . . . . . 10 (𝜑 → (1 + -(𝐸 / 𝑀)) = (1 − (𝐸 / 𝑀)))
116115oveq1d 7344 . . . . . . . . 9 (𝜑 → ((1 + -(𝐸 / 𝑀))↑𝑀) = ((1 − (𝐸 / 𝑀))↑𝑀))
117114, 116breqtrd 5115 . . . . . . . 8 (𝜑 → (1 + (-(𝐸 / 𝑀) · 𝑀)) ≤ ((1 − (𝐸 / 𝑀))↑𝑀))
11878, 117eqbrtrd 5111 . . . . . . 7 (𝜑 → (1 − 𝐸) ≤ ((1 − (𝐸 / 𝑀))↑𝑀))
119118adantr 481 . . . . . 6 ((𝜑𝑡𝐵) → (1 − 𝐸) ≤ ((1 − (𝐸 / 𝑀))↑𝑀))
120 eqid 2736 . . . . . . 7 seq1( · , (𝐹𝑡)) = seq1( · , (𝐹𝑡))
1217adantr 481 . . . . . . 7 ((𝜑𝑡𝐵) → 𝑀 ∈ ℕ)
122 eqid 2736 . . . . . . . . 9 (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)) = (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡))
12319, 58, 122fmptdf 7041 . . . . . . . 8 ((𝜑𝑡𝐵) → (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)):(1...𝑀)⟶ℝ)
12444feq1d 6630 . . . . . . . 8 ((𝜑𝑡𝐵) → ((𝐹𝑡):(1...𝑀)⟶ℝ ↔ (𝑖 ∈ (1...𝑀) ↦ ((𝑈𝑖)‘𝑡)):(1...𝑀)⟶ℝ))
125123, 124mpbird 256 . . . . . . 7 ((𝜑𝑡𝐵) → (𝐹𝑡):(1...𝑀)⟶ℝ)
126 stoweidlem42.10 . . . . . . . . . 10 ((𝜑𝑖 ∈ (1...𝑀)) → ∀𝑡𝐵 (1 − (𝐸 / 𝑀)) < ((𝑈𝑖)‘𝑡))
127126r19.21bi 3230 . . . . . . . . 9 (((𝜑𝑖 ∈ (1...𝑀)) ∧ 𝑡𝐵) → (1 − (𝐸 / 𝑀)) < ((𝑈𝑖)‘𝑡))
128127an32s 649 . . . . . . . 8 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → (1 − (𝐸 / 𝑀)) < ((𝑈𝑖)‘𝑡))
129128, 59breqtrrd 5117 . . . . . . 7 (((𝜑𝑡𝐵) ∧ 𝑖 ∈ (1...𝑀)) → (1 − (𝐸 / 𝑀)) < ((𝐹𝑡)‘𝑖))
13072addid2d 11269 . . . . . . . . . . 11 (𝜑 → (0 + (𝐸 / 𝑀)) = (𝐸 / 𝑀))
131 lediv2 11958 . . . . . . . . . . . . . . 15 (((1 ∈ ℝ ∧ 0 < 1) ∧ (𝑀 ∈ ℝ ∧ 0 < 𝑀) ∧ (𝐸 ∈ ℝ ∧ 0 < 𝐸)) → (1 ≤ 𝑀 ↔ (𝐸 / 𝑀) ≤ (𝐸 / 1)))
1322, 90, 80, 103, 102, 131syl221anc 1380 . . . . . . . . . . . . . 14 (𝜑 → (1 ≤ 𝑀 ↔ (𝐸 / 𝑀) ≤ (𝐸 / 1)))
13399, 132mpbid 231 . . . . . . . . . . . . 13 (𝜑 → (𝐸 / 𝑀) ≤ (𝐸 / 1))
13465div1d 11836 . . . . . . . . . . . . 13 (𝜑 → (𝐸 / 1) = 𝐸)
135133, 134breqtrd 5115 . . . . . . . . . . . 12 (𝜑 → (𝐸 / 𝑀) ≤ 𝐸)
1368, 4, 2, 135, 98lelttrd 11226 . . . . . . . . . . 11 (𝜑 → (𝐸 / 𝑀) < 1)
137130, 136eqbrtrd 5111 . . . . . . . . . 10 (𝜑 → (0 + (𝐸 / 𝑀)) < 1)
138 0red 11071 . . . . . . . . . . 11 (𝜑 → 0 ∈ ℝ)
139138, 8, 2ltaddsubd 11668 . . . . . . . . . 10 (𝜑 → ((0 + (𝐸 / 𝑀)) < 1 ↔ 0 < (1 − (𝐸 / 𝑀))))
140137, 139mpbid 231 . . . . . . . . 9 (𝜑 → 0 < (1 − (𝐸 / 𝑀)))
1419, 140elrpd 12862 . . . . . . . 8 (𝜑 → (1 − (𝐸 / 𝑀)) ∈ ℝ+)
142141adantr 481 . . . . . . 7 ((𝜑𝑡𝐵) → (1 − (𝐸 / 𝑀)) ∈ ℝ+)
14328, 19, 120, 121, 125, 129, 142stoweidlem3 43869 . . . . . 6 ((𝜑𝑡𝐵) → ((1 − (𝐸 / 𝑀))↑𝑀) < (seq1( · , (𝐹𝑡))‘𝑀))
1446, 13, 64, 119, 143lelttrd 11226 . . . . 5 ((𝜑𝑡𝐵) → (1 − 𝐸) < (seq1( · , (𝐹𝑡))‘𝑀))
145 stoweidlem42.7 . . . . . . 7 𝑍 = (𝑡𝑇 ↦ (seq1( · , (𝐹𝑡))‘𝑀))
146145fvmpt2 6936 . . . . . 6 ((𝑡𝑇 ∧ (seq1( · , (𝐹𝑡))‘𝑀) ∈ ℝ) → (𝑍𝑡) = (seq1( · , (𝐹𝑡))‘𝑀))
14739, 64, 146syl2anc 584 . . . . 5 ((𝜑𝑡𝐵) → (𝑍𝑡) = (seq1( · , (𝐹𝑡))‘𝑀))
148144, 147breqtrrd 5117 . . . 4 ((𝜑𝑡𝐵) → (1 − 𝐸) < (𝑍𝑡))
149 simpl 483 . . . . 5 ((𝜑𝑡𝐵) → 𝜑)
150 stoweidlem42.3 . . . . . 6 𝑡𝑌
151 stoweidlem42.4 . . . . . 6 𝑃 = (𝑓𝑌, 𝑔𝑌 ↦ (𝑡𝑇 ↦ ((𝑓𝑡) · (𝑔𝑡))))
152 stoweidlem42.5 . . . . . 6 𝑋 = (seq1(𝑃, 𝑈)‘𝑀)
153 stoweidlem42.15 . . . . . 6 (𝜑𝑇 ∈ V)
154 stoweidlem42.14 . . . . . 6 ((𝜑𝑓𝑌𝑔𝑌) → (𝑡𝑇 ↦ ((𝑓𝑡) · (𝑔𝑡))) ∈ 𝑌)
15517, 150, 151, 152, 22, 145, 153, 7, 45, 53, 154fmuldfeq 43449 . . . . 5 ((𝜑𝑡𝑇) → (𝑋𝑡) = (𝑍𝑡))
156149, 39, 155syl2anc 584 . . . 4 ((𝜑𝑡𝐵) → (𝑋𝑡) = (𝑍𝑡))
157148, 156breqtrrd 5117 . . 3 ((𝜑𝑡𝐵) → (1 − 𝐸) < (𝑋𝑡))
158157ex 413 . 2 (𝜑 → (𝑡𝐵 → (1 − 𝐸) < (𝑋𝑡)))
1591, 158ralrimi 3236 1 (𝜑 → ∀𝑡𝐵 (1 − 𝐸) < (𝑋𝑡))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1540  wnf 1784  wcel 2105  wnfc 2884  wne 2940  wral 3061  Vcvv 3441  wss 3897   class class class wbr 5089  cmpt 5172  wf 6469  cfv 6473  (class class class)co 7329  cmpo 7331  cc 10962  cr 10963  0cc0 10964  1c1 10965   + caddc 10967   · cmul 10969   < clt 11102  cle 11103  cmin 11298  -cneg 11299   / cdiv 11725  cn 12066  3c3 12122  0cn0 12326  cuz 12675  +crp 12823  ...cfz 13332  seqcseq 13814  cexp 13875
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5226  ax-sep 5240  ax-nul 5247  ax-pow 5305  ax-pr 5369  ax-un 7642  ax-cnex 11020  ax-resscn 11021  ax-1cn 11022  ax-icn 11023  ax-addcl 11024  ax-addrcl 11025  ax-mulcl 11026  ax-mulrcl 11027  ax-mulcom 11028  ax-addass 11029  ax-mulass 11030  ax-distr 11031  ax-i2m1 11032  ax-1ne0 11033  ax-1rid 11034  ax-rnegex 11035  ax-rrecex 11036  ax-cnre 11037  ax-pre-lttri 11038  ax-pre-lttrn 11039  ax-pre-ltadd 11040  ax-pre-mulgt0 11041
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3443  df-sbc 3727  df-csb 3843  df-dif 3900  df-un 3902  df-in 3904  df-ss 3914  df-pss 3916  df-nul 4269  df-if 4473  df-pw 4548  df-sn 4573  df-pr 4575  df-op 4579  df-uni 4852  df-iun 4940  df-br 5090  df-opab 5152  df-mpt 5173  df-tr 5207  df-id 5512  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5569  df-we 5571  df-xp 5620  df-rel 5621  df-cnv 5622  df-co 5623  df-dm 5624  df-rn 5625  df-res 5626  df-ima 5627  df-pred 6232  df-ord 6299  df-on 6300  df-lim 6301  df-suc 6302  df-iota 6425  df-fun 6475  df-fn 6476  df-f 6477  df-f1 6478  df-fo 6479  df-f1o 6480  df-fv 6481  df-riota 7286  df-ov 7332  df-oprab 7333  df-mpo 7334  df-om 7773  df-1st 7891  df-2nd 7892  df-frecs 8159  df-wrecs 8190  df-recs 8264  df-rdg 8303  df-er 8561  df-en 8797  df-dom 8798  df-sdom 8799  df-pnf 11104  df-mnf 11105  df-xr 11106  df-ltxr 11107  df-le 11108  df-sub 11300  df-neg 11301  df-div 11726  df-nn 12067  df-2 12129  df-3 12130  df-n0 12327  df-z 12413  df-uz 12676  df-rp 12824  df-fz 13333  df-fzo 13476  df-seq 13815  df-exp 13876
This theorem is referenced by:  stoweidlem51  43917
  Copyright terms: Public domain W3C validator