Metamath Proof Explorer


Theorem ovolval5lem2

Description: |- ( ( ph /\ n e. NN ) -> <. ( ( 1st( Fn ) ) - ( W / ( 2 ^ n ) ) ) , ( 2nd( Fn ) ) >. e. ( RR X. RR ) ) . (Contributed by Glauco Siliprandi, 3-Mar-2021)

Ref Expression
Hypotheses ovolval5lem2.q 𝑄 = { 𝑧 ∈ ℝ* ∣ ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑧 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) }
ovolval5lem2.y ( 𝜑𝑌 = ( Σ^ ‘ ( ( vol ∘ [,) ) ∘ 𝐹 ) ) )
ovolval5lem2.z 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) )
ovolval5lem2.f ( 𝜑𝐹 : ℕ ⟶ ( ℝ × ℝ ) )
ovolval5lem2.s ( 𝜑𝐴 ran ( [,) ∘ 𝐹 ) )
ovolval5lem2.w ( 𝜑𝑊 ∈ ℝ+ )
ovolval5lem2.g 𝐺 = ( 𝑛 ∈ ℕ ↦ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
Assertion ovolval5lem2 ( 𝜑 → ∃ 𝑧𝑄 𝑧 ≤ ( 𝑌 +𝑒 𝑊 ) )

Proof

Step Hyp Ref Expression
1 ovolval5lem2.q 𝑄 = { 𝑧 ∈ ℝ* ∣ ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑧 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) }
2 ovolval5lem2.y ( 𝜑𝑌 = ( Σ^ ‘ ( ( vol ∘ [,) ) ∘ 𝐹 ) ) )
3 ovolval5lem2.z 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) )
4 ovolval5lem2.f ( 𝜑𝐹 : ℕ ⟶ ( ℝ × ℝ ) )
5 ovolval5lem2.s ( 𝜑𝐴 ran ( [,) ∘ 𝐹 ) )
6 ovolval5lem2.w ( 𝜑𝑊 ∈ ℝ+ )
7 ovolval5lem2.g 𝐺 = ( 𝑛 ∈ ℕ ↦ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
8 3 a1i ( 𝜑𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) )
9 nnex ℕ ∈ V
10 9 a1i ( 𝜑 → ℕ ∈ V )
11 volioof ( vol ∘ (,) ) : ( ℝ* × ℝ* ) ⟶ ( 0 [,] +∞ )
12 11 a1i ( 𝜑 → ( vol ∘ (,) ) : ( ℝ* × ℝ* ) ⟶ ( 0 [,] +∞ ) )
13 rexpssxrxp ( ℝ × ℝ ) ⊆ ( ℝ* × ℝ* )
14 13 a1i ( 𝜑 → ( ℝ × ℝ ) ⊆ ( ℝ* × ℝ* ) )
15 4 ffvelrnda ( ( 𝜑𝑛 ∈ ℕ ) → ( 𝐹𝑛 ) ∈ ( ℝ × ℝ ) )
16 xp1st ( ( 𝐹𝑛 ) ∈ ( ℝ × ℝ ) → ( 1st ‘ ( 𝐹𝑛 ) ) ∈ ℝ )
17 15 16 syl ( ( 𝜑𝑛 ∈ ℕ ) → ( 1st ‘ ( 𝐹𝑛 ) ) ∈ ℝ )
18 6 rpred ( 𝜑𝑊 ∈ ℝ )
19 18 adantr ( ( 𝜑𝑛 ∈ ℕ ) → 𝑊 ∈ ℝ )
20 2nn 2 ∈ ℕ
21 20 a1i ( 𝑛 ∈ ℕ → 2 ∈ ℕ )
22 nnnn0 ( 𝑛 ∈ ℕ → 𝑛 ∈ ℕ0 )
23 21 22 nnexpcld ( 𝑛 ∈ ℕ → ( 2 ↑ 𝑛 ) ∈ ℕ )
24 23 nnred ( 𝑛 ∈ ℕ → ( 2 ↑ 𝑛 ) ∈ ℝ )
25 24 adantl ( ( 𝜑𝑛 ∈ ℕ ) → ( 2 ↑ 𝑛 ) ∈ ℝ )
26 23 nnne0d ( 𝑛 ∈ ℕ → ( 2 ↑ 𝑛 ) ≠ 0 )
27 26 adantl ( ( 𝜑𝑛 ∈ ℕ ) → ( 2 ↑ 𝑛 ) ≠ 0 )
28 19 25 27 redivcld ( ( 𝜑𝑛 ∈ ℕ ) → ( 𝑊 / ( 2 ↑ 𝑛 ) ) ∈ ℝ )
29 17 28 resubcld ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) ∈ ℝ )
30 xp2nd ( ( 𝐹𝑛 ) ∈ ( ℝ × ℝ ) → ( 2nd ‘ ( 𝐹𝑛 ) ) ∈ ℝ )
31 15 30 syl ( ( 𝜑𝑛 ∈ ℕ ) → ( 2nd ‘ ( 𝐹𝑛 ) ) ∈ ℝ )
32 29 31 opelxpd ( ( 𝜑𝑛 ∈ ℕ ) → ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ∈ ( ℝ × ℝ ) )
33 32 7 fmptd ( 𝜑𝐺 : ℕ ⟶ ( ℝ × ℝ ) )
34 12 14 33 fcoss ( 𝜑 → ( ( vol ∘ (,) ) ∘ 𝐺 ) : ℕ ⟶ ( 0 [,] +∞ ) )
35 10 34 sge0xrcl ( 𝜑 → ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) ∈ ℝ* )
36 8 35 eqeltrd ( 𝜑𝑍 ∈ ℝ* )
37 reex ℝ ∈ V
38 37 37 xpex ( ℝ × ℝ ) ∈ V
39 38 a1i ( 𝜑 → ( ℝ × ℝ ) ∈ V )
40 39 10 elmapd ( 𝜑 → ( 𝐺 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ↔ 𝐺 : ℕ ⟶ ( ℝ × ℝ ) ) )
41 33 40 mpbird ( 𝜑𝐺 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) )
42 33 ffvelrnda ( ( 𝜑𝑛 ∈ ℕ ) → ( 𝐺𝑛 ) ∈ ( ℝ × ℝ ) )
43 xp1st ( ( 𝐺𝑛 ) ∈ ( ℝ × ℝ ) → ( 1st ‘ ( 𝐺𝑛 ) ) ∈ ℝ )
44 42 43 syl ( ( 𝜑𝑛 ∈ ℕ ) → ( 1st ‘ ( 𝐺𝑛 ) ) ∈ ℝ )
45 44 rexrd ( ( 𝜑𝑛 ∈ ℕ ) → ( 1st ‘ ( 𝐺𝑛 ) ) ∈ ℝ* )
46 xp2nd ( ( 𝐺𝑛 ) ∈ ( ℝ × ℝ ) → ( 2nd ‘ ( 𝐺𝑛 ) ) ∈ ℝ )
47 42 46 syl ( ( 𝜑𝑛 ∈ ℕ ) → ( 2nd ‘ ( 𝐺𝑛 ) ) ∈ ℝ )
48 47 rexrd ( ( 𝜑𝑛 ∈ ℕ ) → ( 2nd ‘ ( 𝐺𝑛 ) ) ∈ ℝ* )
49 6 adantr ( ( 𝜑𝑛 ∈ ℕ ) → 𝑊 ∈ ℝ+ )
50 23 nnrpd ( 𝑛 ∈ ℕ → ( 2 ↑ 𝑛 ) ∈ ℝ+ )
51 50 adantl ( ( 𝜑𝑛 ∈ ℕ ) → ( 2 ↑ 𝑛 ) ∈ ℝ+ )
52 49 51 rpdivcld ( ( 𝜑𝑛 ∈ ℕ ) → ( 𝑊 / ( 2 ↑ 𝑛 ) ) ∈ ℝ+ )
53 17 52 ltsubrpd ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) < ( 1st ‘ ( 𝐹𝑛 ) ) )
54 id ( 𝑛 ∈ ℕ → 𝑛 ∈ ℕ )
55 opex ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ∈ V
56 55 a1i ( 𝑛 ∈ ℕ → ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ∈ V )
57 7 fvmpt2 ( ( 𝑛 ∈ ℕ ∧ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ∈ V ) → ( 𝐺𝑛 ) = ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
58 54 56 57 syl2anc ( 𝑛 ∈ ℕ → ( 𝐺𝑛 ) = ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
59 58 fveq2d ( 𝑛 ∈ ℕ → ( 1st ‘ ( 𝐺𝑛 ) ) = ( 1st ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) )
60 ovex ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) ∈ V
61 fvex ( 2nd ‘ ( 𝐹𝑛 ) ) ∈ V
62 op1stg ( ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) ∈ V ∧ ( 2nd ‘ ( 𝐹𝑛 ) ) ∈ V ) → ( 1st ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) = ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) )
63 60 61 62 mp2an ( 1st ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) = ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) )
64 63 a1i ( 𝑛 ∈ ℕ → ( 1st ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) = ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) )
65 59 64 eqtrd ( 𝑛 ∈ ℕ → ( 1st ‘ ( 𝐺𝑛 ) ) = ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) )
66 65 adantl ( ( 𝜑𝑛 ∈ ℕ ) → ( 1st ‘ ( 𝐺𝑛 ) ) = ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) )
67 66 breq1d ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐺𝑛 ) ) < ( 1st ‘ ( 𝐹𝑛 ) ) ↔ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) < ( 1st ‘ ( 𝐹𝑛 ) ) ) )
68 53 67 mpbird ( ( 𝜑𝑛 ∈ ℕ ) → ( 1st ‘ ( 𝐺𝑛 ) ) < ( 1st ‘ ( 𝐹𝑛 ) ) )
69 58 fveq2d ( 𝑛 ∈ ℕ → ( 2nd ‘ ( 𝐺𝑛 ) ) = ( 2nd ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) )
70 60 61 op2nd ( 2nd ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) = ( 2nd ‘ ( 𝐹𝑛 ) )
71 70 a1i ( 𝑛 ∈ ℕ → ( 2nd ‘ ⟨ ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) = ( 2nd ‘ ( 𝐹𝑛 ) ) )
72 69 71 eqtrd ( 𝑛 ∈ ℕ → ( 2nd ‘ ( 𝐺𝑛 ) ) = ( 2nd ‘ ( 𝐹𝑛 ) ) )
73 72 adantl ( ( 𝜑𝑛 ∈ ℕ ) → ( 2nd ‘ ( 𝐺𝑛 ) ) = ( 2nd ‘ ( 𝐹𝑛 ) ) )
74 73 eqcomd ( ( 𝜑𝑛 ∈ ℕ ) → ( 2nd ‘ ( 𝐹𝑛 ) ) = ( 2nd ‘ ( 𝐺𝑛 ) ) )
75 31 74 eqled ( ( 𝜑𝑛 ∈ ℕ ) → ( 2nd ‘ ( 𝐹𝑛 ) ) ≤ ( 2nd ‘ ( 𝐺𝑛 ) ) )
76 icossioo ( ( ( ( 1st ‘ ( 𝐺𝑛 ) ) ∈ ℝ* ∧ ( 2nd ‘ ( 𝐺𝑛 ) ) ∈ ℝ* ) ∧ ( ( 1st ‘ ( 𝐺𝑛 ) ) < ( 1st ‘ ( 𝐹𝑛 ) ) ∧ ( 2nd ‘ ( 𝐹𝑛 ) ) ≤ ( 2nd ‘ ( 𝐺𝑛 ) ) ) ) → ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ⊆ ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) )
77 45 48 68 75 76 syl22anc ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ⊆ ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) )
78 1st2nd2 ( ( 𝐹𝑛 ) ∈ ( ℝ × ℝ ) → ( 𝐹𝑛 ) = ⟨ ( 1st ‘ ( 𝐹𝑛 ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
79 15 78 syl ( ( 𝜑𝑛 ∈ ℕ ) → ( 𝐹𝑛 ) = ⟨ ( 1st ‘ ( 𝐹𝑛 ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
80 79 fveq2d ( ( 𝜑𝑛 ∈ ℕ ) → ( [,) ‘ ( 𝐹𝑛 ) ) = ( [,) ‘ ⟨ ( 1st ‘ ( 𝐹𝑛 ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) )
81 df-ov ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) = ( [,) ‘ ⟨ ( 1st ‘ ( 𝐹𝑛 ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ )
82 81 a1i ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) = ( [,) ‘ ⟨ ( 1st ‘ ( 𝐹𝑛 ) ) , ( 2nd ‘ ( 𝐹𝑛 ) ) ⟩ ) )
83 80 82 eqtr4d ( ( 𝜑𝑛 ∈ ℕ ) → ( [,) ‘ ( 𝐹𝑛 ) ) = ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) )
84 1st2nd2 ( ( 𝐺𝑛 ) ∈ ( ℝ × ℝ ) → ( 𝐺𝑛 ) = ⟨ ( 1st ‘ ( 𝐺𝑛 ) ) , ( 2nd ‘ ( 𝐺𝑛 ) ) ⟩ )
85 42 84 syl ( ( 𝜑𝑛 ∈ ℕ ) → ( 𝐺𝑛 ) = ⟨ ( 1st ‘ ( 𝐺𝑛 ) ) , ( 2nd ‘ ( 𝐺𝑛 ) ) ⟩ )
86 85 fveq2d ( ( 𝜑𝑛 ∈ ℕ ) → ( (,) ‘ ( 𝐺𝑛 ) ) = ( (,) ‘ ⟨ ( 1st ‘ ( 𝐺𝑛 ) ) , ( 2nd ‘ ( 𝐺𝑛 ) ) ⟩ ) )
87 df-ov ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) = ( (,) ‘ ⟨ ( 1st ‘ ( 𝐺𝑛 ) ) , ( 2nd ‘ ( 𝐺𝑛 ) ) ⟩ )
88 87 a1i ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) = ( (,) ‘ ⟨ ( 1st ‘ ( 𝐺𝑛 ) ) , ( 2nd ‘ ( 𝐺𝑛 ) ) ⟩ ) )
89 86 88 eqtr4d ( ( 𝜑𝑛 ∈ ℕ ) → ( (,) ‘ ( 𝐺𝑛 ) ) = ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) )
90 83 89 sseq12d ( ( 𝜑𝑛 ∈ ℕ ) → ( ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ ( (,) ‘ ( 𝐺𝑛 ) ) ↔ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ⊆ ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) ) )
91 77 90 mpbird ( ( 𝜑𝑛 ∈ ℕ ) → ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ ( (,) ‘ ( 𝐺𝑛 ) ) )
92 91 ralrimiva ( 𝜑 → ∀ 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ ( (,) ‘ ( 𝐺𝑛 ) ) )
93 ss2iun ( ∀ 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ ( (,) ‘ ( 𝐺𝑛 ) ) → 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) )
94 92 93 syl ( 𝜑 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) )
95 fvex ( [,) ‘ ( 𝐹𝑛 ) ) ∈ V
96 95 rgenw 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ∈ V
97 96 a1i ( 𝜑 → ∀ 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ∈ V )
98 dfiun3g ( ∀ 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ∈ V → 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) = ran ( 𝑛 ∈ ℕ ↦ ( [,) ‘ ( 𝐹𝑛 ) ) ) )
99 97 98 syl ( 𝜑 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) = ran ( 𝑛 ∈ ℕ ↦ ( [,) ‘ ( 𝐹𝑛 ) ) ) )
100 icof [,) : ( ℝ* × ℝ* ) ⟶ 𝒫 ℝ*
101 100 a1i ( 𝜑 → [,) : ( ℝ* × ℝ* ) ⟶ 𝒫 ℝ* )
102 4 14 101 fcomptss ( 𝜑 → ( [,) ∘ 𝐹 ) = ( 𝑛 ∈ ℕ ↦ ( [,) ‘ ( 𝐹𝑛 ) ) ) )
103 102 eqcomd ( 𝜑 → ( 𝑛 ∈ ℕ ↦ ( [,) ‘ ( 𝐹𝑛 ) ) ) = ( [,) ∘ 𝐹 ) )
104 103 rneqd ( 𝜑 → ran ( 𝑛 ∈ ℕ ↦ ( [,) ‘ ( 𝐹𝑛 ) ) ) = ran ( [,) ∘ 𝐹 ) )
105 104 unieqd ( 𝜑 ran ( 𝑛 ∈ ℕ ↦ ( [,) ‘ ( 𝐹𝑛 ) ) ) = ran ( [,) ∘ 𝐹 ) )
106 99 105 eqtr2d ( 𝜑 ran ( [,) ∘ 𝐹 ) = 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) )
107 fvex ( (,) ‘ ( 𝐺𝑛 ) ) ∈ V
108 107 rgenw 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) ∈ V
109 108 a1i ( 𝜑 → ∀ 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) ∈ V )
110 dfiun3g ( ∀ 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) ∈ V → 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) = ran ( 𝑛 ∈ ℕ ↦ ( (,) ‘ ( 𝐺𝑛 ) ) ) )
111 109 110 syl ( 𝜑 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) = ran ( 𝑛 ∈ ℕ ↦ ( (,) ‘ ( 𝐺𝑛 ) ) ) )
112 ioof (,) : ( ℝ* × ℝ* ) ⟶ 𝒫 ℝ
113 112 a1i ( 𝜑 → (,) : ( ℝ* × ℝ* ) ⟶ 𝒫 ℝ )
114 33 14 113 fcomptss ( 𝜑 → ( (,) ∘ 𝐺 ) = ( 𝑛 ∈ ℕ ↦ ( (,) ‘ ( 𝐺𝑛 ) ) ) )
115 114 eqcomd ( 𝜑 → ( 𝑛 ∈ ℕ ↦ ( (,) ‘ ( 𝐺𝑛 ) ) ) = ( (,) ∘ 𝐺 ) )
116 115 rneqd ( 𝜑 → ran ( 𝑛 ∈ ℕ ↦ ( (,) ‘ ( 𝐺𝑛 ) ) ) = ran ( (,) ∘ 𝐺 ) )
117 116 unieqd ( 𝜑 ran ( 𝑛 ∈ ℕ ↦ ( (,) ‘ ( 𝐺𝑛 ) ) ) = ran ( (,) ∘ 𝐺 ) )
118 111 117 eqtr2d ( 𝜑 ran ( (,) ∘ 𝐺 ) = 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) )
119 106 118 sseq12d ( 𝜑 → ( ran ( [,) ∘ 𝐹 ) ⊆ ran ( (,) ∘ 𝐺 ) ↔ 𝑛 ∈ ℕ ( [,) ‘ ( 𝐹𝑛 ) ) ⊆ 𝑛 ∈ ℕ ( (,) ‘ ( 𝐺𝑛 ) ) ) )
120 94 119 mpbird ( 𝜑 ran ( [,) ∘ 𝐹 ) ⊆ ran ( (,) ∘ 𝐺 ) )
121 5 120 sstrd ( 𝜑𝐴 ran ( (,) ∘ 𝐺 ) )
122 121 8 jca ( 𝜑 → ( 𝐴 ran ( (,) ∘ 𝐺 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) ) )
123 coeq2 ( 𝑓 = 𝐺 → ( (,) ∘ 𝑓 ) = ( (,) ∘ 𝐺 ) )
124 123 rneqd ( 𝑓 = 𝐺 → ran ( (,) ∘ 𝑓 ) = ran ( (,) ∘ 𝐺 ) )
125 124 unieqd ( 𝑓 = 𝐺 ran ( (,) ∘ 𝑓 ) = ran ( (,) ∘ 𝐺 ) )
126 125 sseq2d ( 𝑓 = 𝐺 → ( 𝐴 ran ( (,) ∘ 𝑓 ) ↔ 𝐴 ran ( (,) ∘ 𝐺 ) ) )
127 coeq2 ( 𝑓 = 𝐺 → ( ( vol ∘ (,) ) ∘ 𝑓 ) = ( ( vol ∘ (,) ) ∘ 𝐺 ) )
128 127 fveq2d ( 𝑓 = 𝐺 → ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) )
129 128 eqeq2d ( 𝑓 = 𝐺 → ( 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ↔ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) ) )
130 126 129 anbi12d ( 𝑓 = 𝐺 → ( ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ↔ ( 𝐴 ran ( (,) ∘ 𝐺 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) ) ) )
131 130 rspcev ( ( 𝐺 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ∧ ( 𝐴 ran ( (,) ∘ 𝐺 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) ) ) → ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) )
132 41 122 131 syl2anc ( 𝜑 → ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) )
133 36 132 jca ( 𝜑 → ( 𝑍 ∈ ℝ* ∧ ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ) )
134 eqeq1 ( 𝑧 = 𝑍 → ( 𝑧 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ↔ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) )
135 134 anbi2d ( 𝑧 = 𝑍 → ( ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑧 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ↔ ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ) )
136 135 rexbidv ( 𝑧 = 𝑍 → ( ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑧 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ↔ ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ) )
137 136 1 elrab2 ( 𝑍𝑄 ↔ ( 𝑍 ∈ ℝ* ∧ ∃ 𝑓 ∈ ( ( ℝ × ℝ ) ↑m ℕ ) ( 𝐴 ran ( (,) ∘ 𝑓 ) ∧ 𝑍 = ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝑓 ) ) ) ) )
138 133 137 sylibr ( 𝜑𝑍𝑄 )
139 2fveq3 ( 𝑚 = 𝑛 → ( 1st ‘ ( 𝐹𝑚 ) ) = ( 1st ‘ ( 𝐹𝑛 ) ) )
140 2fveq3 ( 𝑚 = 𝑛 → ( 2nd ‘ ( 𝐹𝑚 ) ) = ( 2nd ‘ ( 𝐹𝑛 ) ) )
141 139 140 breq12d ( 𝑚 = 𝑛 → ( ( 1st ‘ ( 𝐹𝑚 ) ) < ( 2nd ‘ ( 𝐹𝑚 ) ) ↔ ( 1st ‘ ( 𝐹𝑛 ) ) < ( 2nd ‘ ( 𝐹𝑛 ) ) ) )
142 141 cbvrabv { 𝑚 ∈ ℕ ∣ ( 1st ‘ ( 𝐹𝑚 ) ) < ( 2nd ‘ ( 𝐹𝑚 ) ) } = { 𝑛 ∈ ℕ ∣ ( 1st ‘ ( 𝐹𝑛 ) ) < ( 2nd ‘ ( 𝐹𝑛 ) ) }
143 17 31 6 142 ovolval5lem1 ( 𝜑 → ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) ≤ ( ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) +𝑒 𝑊 ) )
144 nfcv 𝑛 𝐺
145 33 14 fssd ( 𝜑𝐺 : ℕ ⟶ ( ℝ* × ℝ* ) )
146 144 145 volioofmpt ( 𝜑 → ( ( vol ∘ (,) ) ∘ 𝐺 ) = ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) ) ) )
147 66 73 oveq12d ( ( 𝜑𝑛 ∈ ℕ ) → ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) = ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) )
148 147 fveq2d ( ( 𝜑𝑛 ∈ ℕ ) → ( vol ‘ ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) ) = ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) )
149 148 mpteq2dva ( 𝜑 → ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐺𝑛 ) ) (,) ( 2nd ‘ ( 𝐺𝑛 ) ) ) ) ) = ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) )
150 146 149 eqtrd ( 𝜑 → ( ( vol ∘ (,) ) ∘ 𝐺 ) = ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) )
151 150 fveq2d ( 𝜑 → ( Σ^ ‘ ( ( vol ∘ (,) ) ∘ 𝐺 ) ) = ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) )
152 8 151 eqtrd ( 𝜑𝑍 = ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) )
153 nfcv 𝑛 𝐹
154 ressxr ℝ ⊆ ℝ*
155 xpss2 ( ℝ ⊆ ℝ* → ( ℝ × ℝ ) ⊆ ( ℝ × ℝ* ) )
156 154 155 ax-mp ( ℝ × ℝ ) ⊆ ( ℝ × ℝ* )
157 156 a1i ( 𝜑 → ( ℝ × ℝ ) ⊆ ( ℝ × ℝ* ) )
158 4 157 fssd ( 𝜑𝐹 : ℕ ⟶ ( ℝ × ℝ* ) )
159 153 158 volicofmpt ( 𝜑 → ( ( vol ∘ [,) ) ∘ 𝐹 ) = ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) )
160 159 fveq2d ( 𝜑 → ( Σ^ ‘ ( ( vol ∘ [,) ) ∘ 𝐹 ) ) = ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) )
161 2 160 eqtrd ( 𝜑𝑌 = ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) )
162 161 oveq1d ( 𝜑 → ( 𝑌 +𝑒 𝑊 ) = ( ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) +𝑒 𝑊 ) )
163 152 162 breq12d ( 𝜑 → ( 𝑍 ≤ ( 𝑌 +𝑒 𝑊 ) ↔ ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( ( 1st ‘ ( 𝐹𝑛 ) ) − ( 𝑊 / ( 2 ↑ 𝑛 ) ) ) (,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) ≤ ( ( Σ^ ‘ ( 𝑛 ∈ ℕ ↦ ( vol ‘ ( ( 1st ‘ ( 𝐹𝑛 ) ) [,) ( 2nd ‘ ( 𝐹𝑛 ) ) ) ) ) ) +𝑒 𝑊 ) ) )
164 143 163 mpbird ( 𝜑𝑍 ≤ ( 𝑌 +𝑒 𝑊 ) )
165 breq1 ( 𝑧 = 𝑍 → ( 𝑧 ≤ ( 𝑌 +𝑒 𝑊 ) ↔ 𝑍 ≤ ( 𝑌 +𝑒 𝑊 ) ) )
166 165 rspcev ( ( 𝑍𝑄𝑍 ≤ ( 𝑌 +𝑒 𝑊 ) ) → ∃ 𝑧𝑄 𝑧 ≤ ( 𝑌 +𝑒 𝑊 ) )
167 138 164 166 syl2anc ( 𝜑 → ∃ 𝑧𝑄 𝑧 ≤ ( 𝑌 +𝑒 𝑊 ) )