ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  xmetresbl Unicode version

Theorem xmetresbl 12368
Description: An extended metric restricted to any ball (in particular the infinity ball) is a proper metric. Together with xmetec 12365, this shows that any extended metric space can be "factored" into the disjoint union of proper metric spaces, with points in the same region measured by that region's metric, and points in different regions being distance +oo from each other. (Contributed by Mario Carneiro, 23-Aug-2015.)
Hypothesis
Ref Expression
xmetresbl.1  |-  B  =  ( P ( ball `  D ) R )
Assertion
Ref Expression
xmetresbl  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( D  |`  ( B  X.  B ) )  e.  ( Met `  B
) )

Proof of Theorem xmetresbl
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simp1 949 . . 3  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  D  e.  ( *Met `  X ) )
2 xmetresbl.1 . . . 4  |-  B  =  ( P ( ball `  D ) R )
3 blssm 12349 . . . 4  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( P ( ball `  D ) R ) 
C_  X )
42, 3syl5eqss 3093 . . 3  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  B  C_  X )
5 xmetres2 12307 . . 3  |-  ( ( D  e.  ( *Met `  X )  /\  B  C_  X
)  ->  ( D  |`  ( B  X.  B
) )  e.  ( *Met `  B
) )
61, 4, 5syl2anc 406 . 2  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( D  |`  ( B  X.  B ) )  e.  ( *Met `  B ) )
7 xmetf 12278 . . . . . 6  |-  ( D  e.  ( *Met `  X )  ->  D : ( X  X.  X ) --> RR* )
81, 7syl 14 . . . . 5  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  D : ( X  X.  X ) --> RR* )
9 xpss12 4584 . . . . . 6  |-  ( ( B  C_  X  /\  B  C_  X )  -> 
( B  X.  B
)  C_  ( X  X.  X ) )
104, 4, 9syl2anc 406 . . . . 5  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( B  X.  B
)  C_  ( X  X.  X ) )
118, 10fssresd 5235 . . . 4  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( D  |`  ( B  X.  B ) ) : ( B  X.  B ) --> RR* )
1211ffnd 5209 . . 3  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( D  |`  ( B  X.  B ) )  Fn  ( B  X.  B ) )
13 ovres 5842 . . . . . 6  |-  ( ( x  e.  B  /\  y  e.  B )  ->  ( x ( D  |`  ( B  X.  B
) ) y )  =  ( x D y ) )
1413adantl 273 . . . . 5  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( x ( D  |`  ( B  X.  B
) ) y )  =  ( x D y ) )
15 simpl1 952 . . . . . . . . 9  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  ->  D  e.  ( *Met `  X ) )
16 eqid 2100 . . . . . . . . . 10  |-  ( `' D " RR )  =  ( `' D " RR )
1716xmeter 12364 . . . . . . . . 9  |-  ( D  e.  ( *Met `  X )  ->  ( `' D " RR )  Er  X )
1815, 17syl 14 . . . . . . . 8  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( `' D " RR )  Er  X
)
1916blssec 12366 . . . . . . . . . . . 12  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( P ( ball `  D ) R ) 
C_  [ P ]
( `' D " RR ) )
202, 19syl5eqss 3093 . . . . . . . . . . 11  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  B  C_  [ P ] ( `' D " RR ) )
2120sselda 3047 . . . . . . . . . 10  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  x  e.  B
)  ->  x  e.  [ P ] ( `' D " RR ) )
2221adantrr 466 . . . . . . . . 9  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  ->  x  e.  [ P ] ( `' D " RR ) )
23 simpl2 953 . . . . . . . . . 10  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  ->  P  e.  X )
24 elecg 6397 . . . . . . . . . 10  |-  ( ( x  e.  [ P ] ( `' D " RR )  /\  P  e.  X )  ->  (
x  e.  [ P ] ( `' D " RR )  <->  P ( `' D " RR ) x ) )
2522, 23, 24syl2anc 406 . . . . . . . . 9  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( x  e.  [ P ] ( `' D " RR )  <->  P ( `' D " RR ) x ) )
2622, 25mpbid 146 . . . . . . . 8  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  ->  P ( `' D " RR ) x )
2720sselda 3047 . . . . . . . . . 10  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  y  e.  B
)  ->  y  e.  [ P ] ( `' D " RR ) )
2827adantrl 465 . . . . . . . . 9  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
y  e.  [ P ] ( `' D " RR ) )
29 elecg 6397 . . . . . . . . . 10  |-  ( ( y  e.  [ P ] ( `' D " RR )  /\  P  e.  X )  ->  (
y  e.  [ P ] ( `' D " RR )  <->  P ( `' D " RR ) y ) )
3028, 23, 29syl2anc 406 . . . . . . . . 9  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( y  e.  [ P ] ( `' D " RR )  <->  P ( `' D " RR ) y ) )
3128, 30mpbid 146 . . . . . . . 8  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  ->  P ( `' D " RR ) y )
3218, 26, 31ertr3d 6377 . . . . . . 7  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  ->  x ( `' D " RR ) y )
3316xmeterval 12363 . . . . . . . 8  |-  ( D  e.  ( *Met `  X )  ->  (
x ( `' D " RR ) y  <->  ( x  e.  X  /\  y  e.  X  /\  (
x D y )  e.  RR ) ) )
3415, 33syl 14 . . . . . . 7  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( x ( `' D " RR ) y  <->  ( x  e.  X  /\  y  e.  X  /\  ( x D y )  e.  RR ) ) )
3532, 34mpbid 146 . . . . . 6  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( x  e.  X  /\  y  e.  X  /\  ( x D y )  e.  RR ) )
3635simp3d 963 . . . . 5  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( x D y )  e.  RR )
3714, 36eqeltrd 2176 . . . 4  |-  ( ( ( D  e.  ( *Met `  X
)  /\  P  e.  X  /\  R  e.  RR* )  /\  ( x  e.  B  /\  y  e.  B ) )  -> 
( x ( D  |`  ( B  X.  B
) ) y )  e.  RR )
3837ralrimivva 2473 . . 3  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  A. x  e.  B  A. y  e.  B  ( x ( D  |`  ( B  X.  B
) ) y )  e.  RR )
39 ffnov 5807 . . 3  |-  ( ( D  |`  ( B  X.  B ) ) : ( B  X.  B
) --> RR  <->  ( ( D  |`  ( B  X.  B ) )  Fn  ( B  X.  B
)  /\  A. x  e.  B  A. y  e.  B  ( x
( D  |`  ( B  X.  B ) ) y )  e.  RR ) )
4012, 38, 39sylanbrc 411 . 2  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( D  |`  ( B  X.  B ) ) : ( B  X.  B ) --> RR )
41 ismet2 12282 . 2  |-  ( ( D  |`  ( B  X.  B ) )  e.  ( Met `  B
)  <->  ( ( D  |`  ( B  X.  B
) )  e.  ( *Met `  B
)  /\  ( D  |`  ( B  X.  B
) ) : ( B  X.  B ) --> RR ) )
426, 40, 41sylanbrc 411 1  |-  ( ( D  e.  ( *Met `  X )  /\  P  e.  X  /\  R  e.  RR* )  ->  ( D  |`  ( B  X.  B ) )  e.  ( Met `  B
) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 103    <-> wb 104    /\ w3a 930    = wceq 1299    e. wcel 1448   A.wral 2375    C_ wss 3021   class class class wbr 3875    X. cxp 4475   `'ccnv 4476    |` cres 4479   "cima 4480    Fn wfn 5054   -->wf 5055   ` cfv 5059  (class class class)co 5706    Er wer 6356   [cec 6357   RRcr 7499   RR*cxr 7671   *Metcxmet 11931   Metcmet 11932   ballcbl 11933
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 584  ax-in2 585  ax-io 671  ax-5 1391  ax-7 1392  ax-gen 1393  ax-ie1 1437  ax-ie2 1438  ax-8 1450  ax-10 1451  ax-11 1452  ax-i12 1453  ax-bndl 1454  ax-4 1455  ax-13 1459  ax-14 1460  ax-17 1474  ax-i9 1478  ax-ial 1482  ax-i5r 1483  ax-ext 2082  ax-sep 3986  ax-pow 4038  ax-pr 4069  ax-un 4293  ax-setind 4390  ax-cnex 7586  ax-resscn 7587  ax-1cn 7588  ax-1re 7589  ax-icn 7590  ax-addcl 7591  ax-addrcl 7592  ax-mulcl 7593  ax-mulrcl 7594  ax-addcom 7595  ax-mulcom 7596  ax-addass 7597  ax-mulass 7598  ax-distr 7599  ax-i2m1 7600  ax-0lt1 7601  ax-1rid 7602  ax-0id 7603  ax-rnegex 7604  ax-precex 7605  ax-cnre 7606  ax-pre-ltirr 7607  ax-pre-ltwlin 7608  ax-pre-lttrn 7609  ax-pre-apti 7610  ax-pre-ltadd 7611  ax-pre-mulgt0 7612
This theorem depends on definitions:  df-bi 116  df-dc 787  df-3or 931  df-3an 932  df-tru 1302  df-fal 1305  df-nf 1405  df-sb 1704  df-eu 1963  df-mo 1964  df-clab 2087  df-cleq 2093  df-clel 2096  df-nfc 2229  df-ne 2268  df-nel 2363  df-ral 2380  df-rex 2381  df-reu 2382  df-rab 2384  df-v 2643  df-sbc 2863  df-csb 2956  df-dif 3023  df-un 3025  df-in 3027  df-ss 3034  df-if 3422  df-pw 3459  df-sn 3480  df-pr 3481  df-op 3483  df-uni 3684  df-iun 3762  df-br 3876  df-opab 3930  df-mpt 3931  df-id 4153  df-po 4156  df-iso 4157  df-xp 4483  df-rel 4484  df-cnv 4485  df-co 4486  df-dm 4487  df-rn 4488  df-res 4489  df-ima 4490  df-iota 5024  df-fun 5061  df-fn 5062  df-f 5063  df-fv 5067  df-riota 5662  df-ov 5709  df-oprab 5710  df-mpo 5711  df-1st 5969  df-2nd 5970  df-er 6359  df-ec 6361  df-map 6474  df-pnf 7674  df-mnf 7675  df-xr 7676  df-ltxr 7677  df-le 7678  df-sub 7806  df-neg 7807  df-2 8637  df-xneg 9400  df-xadd 9401  df-psmet 11938  df-xmet 11939  df-met 11940  df-bl 11941
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator