Metamath Proof Explorer

Theorem stoweidlem56

Description: This theorem proves Lemma 1 in BrosowskiDeutsh p. 90. Here Z is used to represent t_0 in the paper, v is used to represent V in the paper, and e is used to represent ε. (Contributed by Glauco Siliprandi, 20-Apr-2017)

Ref Expression
Hypotheses stoweidlem56.1 
|- F/_ t U
stoweidlem56.2 
|- F/ t ph
stoweidlem56.3 
|- K = ( topGen ` ran (,) )
stoweidlem56.4 
|- ( ph -> J e. Comp )
stoweidlem56.5 
|- T = U. J
stoweidlem56.6 
|- C = ( J Cn K )
stoweidlem56.7 
|- ( ph -> A C_ C )
stoweidlem56.8 
|- ( ( ph /\ f e. A /\ g e. A ) -> ( t e. T |-> ( ( f ` t ) + ( g ` t ) ) ) e. A )
stoweidlem56.9 
|- ( ( ph /\ f e. A /\ g e. A ) -> ( t e. T |-> ( ( f ` t ) x. ( g ` t ) ) ) e. A )
stoweidlem56.10 
|- ( ( ph /\ y e. RR ) -> ( t e. T |-> y ) e. A )
stoweidlem56.11 
|- ( ( ph /\ ( r e. T /\ t e. T /\ r =/= t ) ) -> E. q e. A ( q ` r ) =/= ( q ` t ) )
stoweidlem56.12 
|- ( ph -> U e. J )
stoweidlem56.13 
|- ( ph -> Z e. U )
Assertion stoweidlem56 
|- ( ph -> E. v e. J ( ( Z e. v /\ v C_ U ) /\ A. e e. RR+ E. x e. A ( A. t e. T ( 0 <_ ( x ` t ) /\ ( x ` t ) <_ 1 ) /\ A. t e. v ( x ` t ) < e /\ A. t e. ( T \ U ) ( 1 - e ) < ( x ` t ) ) ) )

Proof

Step Hyp Ref Expression
1 stoweidlem56.1 
 |-  F/_ t U
2 stoweidlem56.2 
 |-  F/ t ph
3 stoweidlem56.3 
 |-  K = ( topGen ` ran (,) )
4 stoweidlem56.4 
 |-  ( ph -> J e. Comp )
5 stoweidlem56.5 
 |-  T = U. J
6 stoweidlem56.6 
 |-  C = ( J Cn K )
7 stoweidlem56.7 
 |-  ( ph -> A C_ C )
8 stoweidlem56.8 
 |-  ( ( ph /\ f e. A /\ g e. A ) -> ( t e. T |-> ( ( f ` t ) + ( g ` t ) ) ) e. A )
9 stoweidlem56.9 
 |-  ( ( ph /\ f e. A /\ g e. A ) -> ( t e. T |-> ( ( f ` t ) x. ( g ` t ) ) ) e. A )
10 stoweidlem56.10 
 |-  ( ( ph /\ y e. RR ) -> ( t e. T |-> y ) e. A )
11 stoweidlem56.11 
 |-  ( ( ph /\ ( r e. T /\ t e. T /\ r =/= t ) ) -> E. q e. A ( q ` r ) =/= ( q ` t ) )
12 stoweidlem56.12 
 |-  ( ph -> U e. J )
13 stoweidlem56.13 
 |-  ( ph -> Z e. U )
14 eqid 
 |-  { h e. A | ( ( h ` Z ) = 0 /\ A. t e. T ( 0 <_ ( h ` t ) /\ ( h ` t ) <_ 1 ) ) } = { h e. A | ( ( h ` Z ) = 0 /\ A. t e. T ( 0 <_ ( h ` t ) /\ ( h ` t ) <_ 1 ) ) }
15 eqid 
 |-  { w e. J | E. h e. { h e. A | ( ( h ` Z ) = 0 /\ A. t e. T ( 0 <_ ( h ` t ) /\ ( h ` t ) <_ 1 ) ) } w = { t e. T | 0 < ( h ` t ) } } = { w e. J | E. h e. { h e. A | ( ( h ` Z ) = 0 /\ A. t e. T ( 0 <_ ( h ` t ) /\ ( h ` t ) <_ 1 ) ) } w = { t e. T | 0 < ( h ` t ) } }
16 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 stoweidlem55 
 |-  ( ph -> E. p e. A ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) )
17 df-rex 
 |-  ( E. p e. A ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) <-> E. p ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) )
18 16 17 sylib 
 |-  ( ph -> E. p ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) )
19 simpl 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> ph )
20 simprl 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> p e. A )
21 simprr3 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> A. t e. ( T \ U ) 0 < ( p ` t ) )
22 nfv 
 |-  F/ t p e. A
23 nfra1 
 |-  F/ t A. t e. ( T \ U ) 0 < ( p ` t )
24 2 22 23 nf3an 
 |-  F/ t ( ph /\ p e. A /\ A. t e. ( T \ U ) 0 < ( p ` t ) )
25 4 3ad2ant1 
 |-  ( ( ph /\ p e. A /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) -> J e. Comp )
26 7 sselda 
 |-  ( ( ph /\ p e. A ) -> p e. C )
27 26 6 eleqtrdi 
 |-  ( ( ph /\ p e. A ) -> p e. ( J Cn K ) )
28 27 3adant3 
 |-  ( ( ph /\ p e. A /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) -> p e. ( J Cn K ) )
29 simp3 
 |-  ( ( ph /\ p e. A /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) -> A. t e. ( T \ U ) 0 < ( p ` t ) )
30 12 3ad2ant1 
 |-  ( ( ph /\ p e. A /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) -> U e. J )
31 1 24 3 5 25 28 29 30 stoweidlem28 
 |-  ( ( ph /\ p e. A /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) -> E. d ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) )
32 19 20 21 31 syl3anc 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> E. d ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) )
33 simpr1 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> d e. RR+ )
34 simpr2 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> d < 1 )
35 simplrl 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> p e. A )
36 simprr1 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) )
37 36 adantr 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) )
38 simprr2 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> ( p ` Z ) = 0 )
39 38 adantr 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> ( p ` Z ) = 0 )
40 simpr3 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> A. t e. ( T \ U ) d <_ ( p ` t ) )
41 37 39 40 3jca 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) )
42 35 41 jca 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) )
43 33 34 42 3jca 
 |-  ( ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) /\ ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) -> ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) )
44 43 ex 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> ( ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) -> ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) )
45 44 eximdv 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> ( E. d ( d e. RR+ /\ d < 1 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) -> E. d ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) )
46 32 45 mpd 
 |-  ( ( ph /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) ) -> E. d ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) )
47 46 ex 
 |-  ( ph -> ( ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) -> E. d ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) )
48 47 eximdv 
 |-  ( ph -> ( E. p ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) 0 < ( p ` t ) ) ) -> E. p E. d ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) )
49 18 48 mpd 
 |-  ( ph -> E. p E. d ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) )
50 nfv 
 |-  F/ t d e. RR+
51 nfv 
 |-  F/ t d < 1
52 nfra1 
 |-  F/ t A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 )
53 nfv 
 |-  F/ t ( p ` Z ) = 0
54 nfra1 
 |-  F/ t A. t e. ( T \ U ) d <_ ( p ` t )
55 52 53 54 nf3an 
 |-  F/ t ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) )
56 22 55 nfan 
 |-  F/ t ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) )
57 50 51 56 nf3an 
 |-  F/ t ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) )
58 2 57 nfan 
 |-  F/ t ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) )
59 nfcv 
 |-  F/_ t p
60 eqid 
 |-  { t e. T | ( p ` t ) < ( d / 2 ) } = { t e. T | ( p ` t ) < ( d / 2 ) }
61 7 adantr 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> A C_ C )
62 8 3adant1r 
 |-  ( ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) /\ f e. A /\ g e. A ) -> ( t e. T |-> ( ( f ` t ) + ( g ` t ) ) ) e. A )
63 9 3adant1r 
 |-  ( ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) /\ f e. A /\ g e. A ) -> ( t e. T |-> ( ( f ` t ) x. ( g ` t ) ) ) e. A )
64 10 adantlr 
 |-  ( ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) /\ y e. RR ) -> ( t e. T |-> y ) e. A )
65 simpr1 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> d e. RR+ )
66 simpr2 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> d < 1 )
67 12 adantr 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> U e. J )
68 13 adantr 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> Z e. U )
69 simpr3l 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> p e. A )
70 simp3r1 
 |-  ( ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) -> A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) )
71 70 adantl 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) )
72 simp3r2 
 |-  ( ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) -> ( p ` Z ) = 0 )
73 72 adantl 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> ( p ` Z ) = 0 )
74 simp3r3 
 |-  ( ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) -> A. t e. ( T \ U ) d <_ ( p ` t ) )
75 74 adantl 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> A. t e. ( T \ U ) d <_ ( p ` t ) )
76 1 58 59 3 60 5 6 61 62 63 64 65 66 67 68 69 71 73 75 stoweidlem52 
 |-  ( ( ph /\ ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) ) -> E. v e. J ( ( Z e. v /\ v C_ U ) /\ A. e e. RR+ E. x e. A ( A. t e. T ( 0 <_ ( x ` t ) /\ ( x ` t ) <_ 1 ) /\ A. t e. v ( x ` t ) < e /\ A. t e. ( T \ U ) ( 1 - e ) < ( x ` t ) ) ) )
77 76 ex 
 |-  ( ph -> ( ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) -> E. v e. J ( ( Z e. v /\ v C_ U ) /\ A. e e. RR+ E. x e. A ( A. t e. T ( 0 <_ ( x ` t ) /\ ( x ` t ) <_ 1 ) /\ A. t e. v ( x ` t ) < e /\ A. t e. ( T \ U ) ( 1 - e ) < ( x ` t ) ) ) ) )
78 77 exlimdvv 
 |-  ( ph -> ( E. p E. d ( d e. RR+ /\ d < 1 /\ ( p e. A /\ ( A. t e. T ( 0 <_ ( p ` t ) /\ ( p ` t ) <_ 1 ) /\ ( p ` Z ) = 0 /\ A. t e. ( T \ U ) d <_ ( p ` t ) ) ) ) -> E. v e. J ( ( Z e. v /\ v C_ U ) /\ A. e e. RR+ E. x e. A ( A. t e. T ( 0 <_ ( x ` t ) /\ ( x ` t ) <_ 1 ) /\ A. t e. v ( x ` t ) < e /\ A. t e. ( T \ U ) ( 1 - e ) < ( x ` t ) ) ) ) )
79 49 78 mpd 
 |-  ( ph -> E. v e. J ( ( Z e. v /\ v C_ U ) /\ A. e e. RR+ E. x e. A ( A. t e. T ( 0 <_ ( x ` t ) /\ ( x ` t ) <_ 1 ) /\ A. t e. v ( x ` t ) < e /\ A. t e. ( T \ U ) ( 1 - e ) < ( x ` t ) ) ) )