Metamath Proof Explorer


Theorem ovolicc2

Description: The measure of a closed interval is upper bounded by its length. (Contributed by Mario Carneiro, 14-Jun-2014)

Ref Expression
Hypotheses ovolicc.1 φA
ovolicc.2 φB
ovolicc.3 φAB
ovolicc2.m M=y*|f2ABran.fy=supranseq1+absf*<
Assertion ovolicc2 φBAvol*AB

Proof

Step Hyp Ref Expression
1 ovolicc.1 φA
2 ovolicc.2 φB
3 ovolicc.3 φAB
4 ovolicc2.m M=y*|f2ABran.fy=supranseq1+absf*<
5 4 elovolm zMf2ABran.fz=supranseq1+absf*<
6 simprr φf2ABran.fABran.f
7 unieq u=ran.fu=ran.f
8 7 sseq2d u=ran.fABuABran.f
9 pweq u=ran.f𝒫u=𝒫ran.f
10 9 ineq1d u=ran.f𝒫uFin=𝒫ran.fFin
11 10 rexeqdv u=ran.fv𝒫uFinABvv𝒫ran.fFinABv
12 8 11 imbi12d u=ran.fABuv𝒫uFinABvABran.fv𝒫ran.fFinABv
13 eqid topGenran.=topGenran.
14 eqid topGenran.𝑡AB=topGenran.𝑡AB
15 13 14 icccmp ABtopGenran.𝑡ABComp
16 1 2 15 syl2anc φtopGenran.𝑡ABComp
17 retop topGenran.Top
18 iccssre ABAB
19 1 2 18 syl2anc φAB
20 uniretop =topGenran.
21 20 cmpsub topGenran.TopABtopGenran.𝑡ABCompu𝒫topGenran.ABuv𝒫uFinABv
22 17 19 21 sylancr φtopGenran.𝑡ABCompu𝒫topGenran.ABuv𝒫uFinABv
23 16 22 mpbid φu𝒫topGenran.ABuv𝒫uFinABv
24 23 adantr φf2ABran.fu𝒫topGenran.ABuv𝒫uFinABv
25 ioof .:*×*𝒫
26 ffn .:*×*𝒫.Fn*×*
27 25 26 ax-mp .Fn*×*
28 dffn3 .Fn*×*.:*×*ran.
29 27 28 mpbi .:*×*ran.
30 simpr φf2f2
31 elovolmlem f2f:2
32 30 31 sylib φf2f:2
33 inss2 22
34 rexpssxrxp 2*×*
35 33 34 sstri 2*×*
36 fss f:22*×*f:*×*
37 32 35 36 sylancl φf2f:*×*
38 fco .:*×*ran.f:*×*.f:ran.
39 29 37 38 sylancr φf2.f:ran.
40 39 adantrr φf2ABran.f.f:ran.
41 40 frnd φf2ABran.fran.fran.
42 retopbas ran.TopBases
43 bastg ran.TopBasesran.topGenran.
44 42 43 ax-mp ran.topGenran.
45 41 44 sstrdi φf2ABran.fran.ftopGenran.
46 fvex topGenran.V
47 46 elpw2 ran.f𝒫topGenran.ran.ftopGenran.
48 45 47 sylibr φf2ABran.fran.f𝒫topGenran.
49 12 24 48 rspcdva φf2ABran.fABran.fv𝒫ran.fFinABv
50 6 49 mpd φf2ABran.fv𝒫ran.fFinABv
51 simprl φf2v𝒫ran.fFinABvv𝒫ran.fFin
52 elin v𝒫ran.fFinv𝒫ran.fvFin
53 51 52 sylib φf2v𝒫ran.fFinABvv𝒫ran.fvFin
54 53 simprd φf2v𝒫ran.fFinABvvFin
55 53 simpld φf2v𝒫ran.fFinABvv𝒫ran.f
56 55 elpwid φf2v𝒫ran.fFinABvvran.f
57 56 sseld φf2v𝒫ran.fFinABvtvtran.f
58 39 ffnd φf2.fFn
59 58 adantr φf2v𝒫ran.fFinABv.fFn
60 fvelrnb .fFntran.fk.fk=t
61 59 60 syl φf2v𝒫ran.fFinABvtran.fk.fk=t
62 57 61 sylibd φf2v𝒫ran.fFinABvtvk.fk=t
63 62 ralrimiv φf2v𝒫ran.fFinABvtvk.fk=t
64 fveqeq2 k=gt.fk=t.fgt=t
65 64 ac6sfi vFintvk.fk=tgg:vtv.fgt=t
66 54 63 65 syl2anc φf2v𝒫ran.fFinABvgg:vtv.fgt=t
67 1 ad2antrr φf2v𝒫ran.fFinABvg:vtv.fgt=tA
68 2 ad2antrr φf2v𝒫ran.fFinABvg:vtv.fgt=tB
69 3 ad2antrr φf2v𝒫ran.fFinABvg:vtv.fgt=tAB
70 eqid seq1+absf=seq1+absf
71 32 adantr φf2v𝒫ran.fFinABvg:vtv.fgt=tf:2
72 simprll φf2v𝒫ran.fFinABvg:vtv.fgt=tv𝒫ran.fFin
73 simprlr φf2v𝒫ran.fFinABvg:vtv.fgt=tABv
74 simprrl φf2v𝒫ran.fFinABvg:vtv.fgt=tg:v
75 simprrr φf2v𝒫ran.fFinABvg:vtv.fgt=ttv.fgt=t
76 2fveq3 t=x.fgt=.fgx
77 id t=xt=x
78 76 77 eqeq12d t=x.fgt=t.fgx=x
79 78 rspccva tv.fgt=txv.fgx=x
80 75 79 sylan φf2v𝒫ran.fFinABvg:vtv.fgt=txv.fgx=x
81 eqid uv|uAB=uv|uAB
82 67 68 69 70 71 72 73 74 80 81 ovolicc2lem5 φf2v𝒫ran.fFinABvg:vtv.fgt=tBAsupranseq1+absf*<
83 82 expr φf2v𝒫ran.fFinABvg:vtv.fgt=tBAsupranseq1+absf*<
84 83 exlimdv φf2v𝒫ran.fFinABvgg:vtv.fgt=tBAsupranseq1+absf*<
85 66 84 mpd φf2v𝒫ran.fFinABvBAsupranseq1+absf*<
86 85 rexlimdvaa φf2v𝒫ran.fFinABvBAsupranseq1+absf*<
87 86 adantrr φf2ABran.fv𝒫ran.fFinABvBAsupranseq1+absf*<
88 50 87 mpd φf2ABran.fBAsupranseq1+absf*<
89 breq2 z=supranseq1+absf*<BAzBAsupranseq1+absf*<
90 88 89 syl5ibrcom φf2ABran.fz=supranseq1+absf*<BAz
91 90 expr φf2ABran.fz=supranseq1+absf*<BAz
92 91 impd φf2ABran.fz=supranseq1+absf*<BAz
93 92 rexlimdva φf2ABran.fz=supranseq1+absf*<BAz
94 5 93 biimtrid φzMBAz
95 94 ralrimiv φzMBAz
96 4 ssrab3 M*
97 2 1 resubcld φBA
98 97 rexrd φBA*
99 infxrgelb M*BA*BAsupM*<zMBAz
100 96 98 99 sylancr φBAsupM*<zMBAz
101 95 100 mpbird φBAsupM*<
102 4 ovolval ABvol*AB=supM*<
103 19 102 syl φvol*AB=supM*<
104 101 103 breqtrrd φBAvol*AB