Metamath Proof Explorer

Theorem xmetgt0

Description: The distance function of an extended metric space is positive for unequal points. (Contributed by Mario Carneiro, 20-Aug-2015)

Ref Expression
Assertion xmetgt0 
|- ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( A =/= B <-> 0 < ( A D B ) ) )

Proof

Step Hyp Ref Expression
1 xmetge0 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> 0 <_ ( A D B ) )
2 1 biantrud 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( ( A D B ) <_ 0 <-> ( ( A D B ) <_ 0 /\ 0 <_ ( A D B ) ) ) )
3 xmetcl 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( A D B ) e. RR* )
4 0xr 
 |-  0 e. RR*
5 xrletri3 
 |-  ( ( ( A D B ) e. RR* /\ 0 e. RR* ) -> ( ( A D B ) = 0 <-> ( ( A D B ) <_ 0 /\ 0 <_ ( A D B ) ) ) )
6 3 4 5 sylancl 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( ( A D B ) = 0 <-> ( ( A D B ) <_ 0 /\ 0 <_ ( A D B ) ) ) )
7 2 6 bitr4d 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( ( A D B ) <_ 0 <-> ( A D B ) = 0 ) )
8 xrlenlt 
 |-  ( ( ( A D B ) e. RR* /\ 0 e. RR* ) -> ( ( A D B ) <_ 0 <-> -. 0 < ( A D B ) ) )
9 3 4 8 sylancl 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( ( A D B ) <_ 0 <-> -. 0 < ( A D B ) ) )
10 xmeteq0 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( ( A D B ) = 0 <-> A = B ) )
11 7 9 10 3bitr3d 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( -. 0 < ( A D B ) <-> A = B ) )
12 11 necon1abid 
 |-  ( ( D e. ( *Met ` X ) /\ A e. X /\ B e. X ) -> ( A =/= B <-> 0 < ( A D B ) ) )