Metamath Proof Explorer


Theorem stoweidlem52

Description: There exists a neighborhood V as in Lemma 1 of BrosowskiDeutsh p. 90. Here Z is used to represent t_0 in the paper, and v is used to represent V in the paper. (Contributed by Glauco Siliprandi, 20-Apr-2017)

Ref Expression
Hypotheses stoweidlem52.1 ⊢ Ⅎ _ t U
stoweidlem52.2 ⊢ Ⅎ t φ
stoweidlem52.3 ⊢ Ⅎ _ t P
stoweidlem52.4 ⊢ K = topGen ⁡ ran ⁡ .
stoweidlem52.5 ⊢ V = t ∈ T | P ⁡ t < D 2
stoweidlem52.7 ⊢ T = ⋃ J
stoweidlem52.8 ⊢ C = J Cn K
stoweidlem52.9 ⊢ φ → A ⊆ C
stoweidlem52.10 ⊢ φ ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t + g ⁡ t ∈ A
stoweidlem52.11 ⊢ φ ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t ⁢ g ⁡ t ∈ A
stoweidlem52.12 ⊢ φ ∧ a ∈ ℝ → t ∈ T ⟼ a ∈ A
stoweidlem52.13 ⊢ φ → D ∈ ℝ +
stoweidlem52.14 ⊢ φ → D < 1
stoweidlem52.15 ⊢ φ → U ∈ J
stoweidlem52.16 ⊢ φ → Z ∈ U
stoweidlem52.17 ⊢ φ → P ∈ A
stoweidlem52.18 ⊢ φ → ∀ t ∈ T 0 ≤ P ⁡ t ∧ P ⁡ t ≤ 1
stoweidlem52.19 ⊢ φ → P ⁡ Z = 0
stoweidlem52.20 ⊢ φ → ∀ t ∈ T ∖ U D ≤ P ⁡ t
Assertion stoweidlem52 ⊢ φ → ∃ v ∈ J Z ∈ v ∧ v ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t

Proof

Step Hyp Ref Expression
1 stoweidlem52.1 ⊢ Ⅎ _ t U
2 stoweidlem52.2 ⊢ Ⅎ t φ
3 stoweidlem52.3 ⊢ Ⅎ _ t P
4 stoweidlem52.4 ⊢ K = topGen ⁡ ran ⁡ .
5 stoweidlem52.5 ⊢ V = t ∈ T | P ⁡ t < D 2
6 stoweidlem52.7 ⊢ T = ⋃ J
7 stoweidlem52.8 ⊢ C = J Cn K
8 stoweidlem52.9 ⊢ φ → A ⊆ C
9 stoweidlem52.10 ⊢ φ ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t + g ⁡ t ∈ A
10 stoweidlem52.11 ⊢ φ ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t ⁢ g ⁡ t ∈ A
11 stoweidlem52.12 ⊢ φ ∧ a ∈ ℝ → t ∈ T ⟼ a ∈ A
12 stoweidlem52.13 ⊢ φ → D ∈ ℝ +
13 stoweidlem52.14 ⊢ φ → D < 1
14 stoweidlem52.15 ⊢ φ → U ∈ J
15 stoweidlem52.16 ⊢ φ → Z ∈ U
16 stoweidlem52.17 ⊢ φ → P ∈ A
17 stoweidlem52.18 ⊢ φ → ∀ t ∈ T 0 ≤ P ⁡ t ∧ P ⁡ t ≤ 1
18 stoweidlem52.19 ⊢ φ → P ⁡ Z = 0
19 stoweidlem52.20 ⊢ φ → ∀ t ∈ T ∖ U D ≤ P ⁡ t
20 nfcv ⊢ Ⅎ _ t D 2
21 12 rpred ⊢ φ → D ∈ ℝ
22 21 rehalfcld ⊢ φ → D 2 ∈ ℝ
23 22 rexrd ⊢ φ → D 2 ∈ ℝ *
24 8 7 sseqtrdi ⊢ φ → A ⊆ J Cn K
25 24 16 sseldd ⊢ φ → P ∈ J Cn K
26 20 3 2 4 6 5 23 25 rfcnpre2 ⊢ φ → V ∈ J
27 elssuni ⊢ U ∈ J → U ⊆ ⋃ J
28 14 27 syl ⊢ φ → U ⊆ ⋃ J
29 28 6 sseqtrrdi ⊢ φ → U ⊆ T
30 29 15 sseldd ⊢ φ → Z ∈ T
31 2re ⊢ 2 ∈ ℝ
32 31 a1i ⊢ φ → 2 ∈ ℝ
33 12 rpgt0d ⊢ φ → 0 < D
34 2pos ⊢ 0 < 2
35 34 a1i ⊢ φ → 0 < 2
36 21 32 33 35 divgt0d ⊢ φ → 0 < D 2
37 18 36 eqbrtrd ⊢ φ → P ⁡ Z < D 2
38 nfcv ⊢ Ⅎ _ t Z
39 nfcv ⊢ Ⅎ _ t T
40 3 38 nffv ⊢ Ⅎ _ t P ⁡ Z
41 nfcv ⊢ Ⅎ _ t <
42 40 41 20 nfbr ⊢ Ⅎ t P ⁡ Z < D 2
43 fveq2 ⊢ t = Z → P ⁡ t = P ⁡ Z
44 43 breq1d ⊢ t = Z → P ⁡ t < D 2 ↔ P ⁡ Z < D 2
45 38 39 42 44 elrabf ⊢ Z ∈ t ∈ T | P ⁡ t < D 2 ↔ Z ∈ T ∧ P ⁡ Z < D 2
46 30 37 45 sylanbrc ⊢ φ → Z ∈ t ∈ T | P ⁡ t < D 2
47 46 5 eleqtrrdi ⊢ φ → Z ∈ V
48 nfrab1 ⊢ Ⅎ _ t t ∈ T | P ⁡ t < D 2
49 5 48 nfcxfr ⊢ Ⅎ _ t V
50 8 16 sseldd ⊢ φ → P ∈ C
51 4 6 7 50 fcnre ⊢ φ → P : T ⟶ ℝ
52 51 adantr ⊢ φ ∧ t ∈ V → P : T ⟶ ℝ
53 5 reqabi ⊢ t ∈ V ↔ t ∈ T ∧ P ⁡ t < D 2
54 53 bilani ⊢ φ ∧ t ∈ V → t ∈ T ∧ P ⁡ t < D 2
55 54 simpld ⊢ φ ∧ t ∈ V → t ∈ T
56 52 55 ffvelcdmd ⊢ φ ∧ t ∈ V → P ⁡ t ∈ ℝ
57 22 adantr ⊢ φ ∧ t ∈ V → D 2 ∈ ℝ
58 21 adantr ⊢ φ ∧ t ∈ V → D ∈ ℝ
59 54 simprd ⊢ φ ∧ t ∈ V → P ⁡ t < D 2
60 halfpos ⊢ D ∈ ℝ → 0 < D ↔ D 2 < D
61 21 60 syl ⊢ φ → 0 < D ↔ D 2 < D
62 33 61 mpbid ⊢ φ → D 2 < D
63 62 adantr ⊢ φ ∧ t ∈ V → D 2 < D
64 56 57 58 59 63 lttrd ⊢ φ ∧ t ∈ V → P ⁡ t < D
65 64 adantr ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → P ⁡ t < D
66 21 ad2antrr ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → D ∈ ℝ
67 56 adantr ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → P ⁡ t ∈ ℝ
68 19 ad2antrr ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → ∀ t ∈ T ∖ U D ≤ P ⁡ t
69 55 anim1i ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → t ∈ T ∧ ¬ t ∈ U
70 eldif ⊢ t ∈ T ∖ U ↔ t ∈ T ∧ ¬ t ∈ U
71 69 70 sylibr ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → t ∈ T ∖ U
72 rsp ⊢ ∀ t ∈ T ∖ U D ≤ P ⁡ t → t ∈ T ∖ U → D ≤ P ⁡ t
73 68 71 72 sylc ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → D ≤ P ⁡ t
74 66 67 73 lensymd ⊢ φ ∧ t ∈ V ∧ ¬ t ∈ U → ¬ P ⁡ t < D
75 65 74 condan ⊢ φ ∧ t ∈ V → t ∈ U
76 75 ex ⊢ φ → t ∈ V → t ∈ U
77 2 49 1 76 ssrd ⊢ φ → V ⊆ U
78 nfv ⊢ Ⅎ t e ∈ ℝ +
79 2 78 nfan ⊢ Ⅎ t φ ∧ e ∈ ℝ +
80 nfv ⊢ Ⅎ t y ∈ A
81 79 80 nfan ⊢ Ⅎ t φ ∧ e ∈ ℝ + ∧ y ∈ A
82 nfra1 ⊢ Ⅎ t ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1
83 nfra1 ⊢ Ⅎ t ∀ t ∈ V 1 − e < y ⁡ t
84 nfra1 ⊢ Ⅎ t ∀ t ∈ T ∖ U y ⁡ t < e
85 82 83 84 nf3an ⊢ Ⅎ t ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e
86 81 85 nfan ⊢ Ⅎ t φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e
87 eqid ⊢ t ∈ T ⟼ 1 − y ⁡ t = t ∈ T ⟼ 1 − y ⁡ t
88 eqid ⊢ t ∈ T ⟼ 1 = t ∈ T ⟼ 1
89 ssrab2 ⊢ t ∈ T | P ⁡ t < D 2 ⊆ T
90 5 89 eqsstri ⊢ V ⊆ T
91 simplr ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → y ∈ A
92 simplll ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → φ
93 8 sselda ⊢ φ ∧ y ∈ A → y ∈ C
94 4 6 7 93 fcnre ⊢ φ ∧ y ∈ A → y : T ⟶ ℝ
95 92 91 94 syl2anc ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → y : T ⟶ ℝ
96 8 sselda ⊢ φ ∧ f ∈ A → f ∈ C
97 4 6 7 96 fcnre ⊢ φ ∧ f ∈ A → f : T ⟶ ℝ
98 92 97 sylan ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e ∧ f ∈ A → f : T ⟶ ℝ
99 92 9 syl3an1 ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t + g ⁡ t ∈ A
100 92 10 syl3an1 ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t ⁢ g ⁡ t ∈ A
101 92 11 sylan ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e ∧ a ∈ ℝ → t ∈ T ⟼ a ∈ A
102 simpllr ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → e ∈ ℝ +
103 simpr1 ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1
104 simpr2 ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → ∀ t ∈ V 1 − e < y ⁡ t
105 simpr3 ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → ∀ t ∈ T ∖ U y ⁡ t < e
106 86 87 88 90 91 95 98 99 100 101 102 103 104 105 stoweidlem41 ⊢ φ ∧ e ∈ ℝ + ∧ y ∈ A ∧ ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e → ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
107 12 adantr ⊢ φ ∧ e ∈ ℝ + → D ∈ ℝ +
108 13 adantr ⊢ φ ∧ e ∈ ℝ + → D < 1
109 16 adantr ⊢ φ ∧ e ∈ ℝ + → P ∈ A
110 51 adantr ⊢ φ ∧ e ∈ ℝ + → P : T ⟶ ℝ
111 17 adantr ⊢ φ ∧ e ∈ ℝ + → ∀ t ∈ T 0 ≤ P ⁡ t ∧ P ⁡ t ≤ 1
112 19 adantr ⊢ φ ∧ e ∈ ℝ + → ∀ t ∈ T ∖ U D ≤ P ⁡ t
113 97 adantlr ⊢ φ ∧ e ∈ ℝ + ∧ f ∈ A → f : T ⟶ ℝ
114 9 3adant1r ⊢ φ ∧ e ∈ ℝ + ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t + g ⁡ t ∈ A
115 10 3adant1r ⊢ φ ∧ e ∈ ℝ + ∧ f ∈ A ∧ g ∈ A → t ∈ T ⟼ f ⁡ t ⁢ g ⁡ t ∈ A
116 11 adantlr ⊢ φ ∧ e ∈ ℝ + ∧ a ∈ ℝ → t ∈ T ⟼ a ∈ A
117 simpr ⊢ φ ∧ e ∈ ℝ + → e ∈ ℝ +
118 3 79 5 107 108 109 110 111 112 113 114 115 116 117 stoweidlem49 ⊢ φ ∧ e ∈ ℝ + → ∃ y ∈ A ∀ t ∈ T 0 ≤ y ⁡ t ∧ y ⁡ t ≤ 1 ∧ ∀ t ∈ V 1 − e < y ⁡ t ∧ ∀ t ∈ T ∖ U y ⁡ t < e
119 106 118 r19.29a ⊢ φ ∧ e ∈ ℝ + → ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
120 119 ralrimiva ⊢ φ → ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
121 47 77 120 jca31 ⊢ φ → Z ∈ V ∧ V ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
122 eleq2 ⊢ v = V → Z ∈ v ↔ Z ∈ V
123 sseq1 ⊢ v = V → v ⊆ U ↔ V ⊆ U
124 122 123 anbi12d ⊢ v = V → Z ∈ v ∧ v ⊆ U ↔ Z ∈ V ∧ V ⊆ U
125 nfcv ⊢ Ⅎ _ t v
126 125 49 raleqf ⊢ v = V → ∀ t ∈ v x ⁡ t < e ↔ ∀ t ∈ V x ⁡ t < e
127 126 3anbi2d ⊢ v = V → ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t ↔ ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
128 127 rexbidv ⊢ v = V → ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t ↔ ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
129 128 ralbidv ⊢ v = V → ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t ↔ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
130 124 129 anbi12d ⊢ v = V → Z ∈ v ∧ v ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t ↔ Z ∈ V ∧ V ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
131 130 rspcev ⊢ V ∈ J ∧ Z ∈ V ∧ V ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ V x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t → ∃ v ∈ J Z ∈ v ∧ v ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t
132 26 121 131 syl2anc ⊢ φ → ∃ v ∈ J Z ∈ v ∧ v ⊆ U ∧ ∀ e ∈ ℝ + ∃ x ∈ A ∀ t ∈ T 0 ≤ x ⁡ t ∧ x ⁡ t ≤ 1 ∧ ∀ t ∈ v x ⁡ t < e ∧ ∀ t ∈ T ∖ U 1 − e < x ⁡ t