Theorem psmetge0

Description: The distance function of a pseudometric space is nonnegative. (Contributed by Thierry Arnoux, 7-Feb-2018)

	Ref	Expression
Assertion	psmetge0	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> 0 <_ ( A D B ) )

Proof

Step	Hyp	Ref	Expression
1		simp1	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> D e. ( PsMet ` X ) )
2		simp2	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> A e. X )
3		simp3	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> B e. X )
4		psmettri2	|- ( ( D e. ( PsMet ` X ) /\ ( A e. X /\ B e. X /\ B e. X ) ) -> ( B D B ) <_ ( ( A D B ) +e ( A D B ) ) )
5	1 2 3 3 4	syl13anc	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( B D B ) <_ ( ( A D B ) +e ( A D B ) ) )
6		2re	|- 2 e. RR
7		rexr	|- ( 2 e. RR -> 2 e. RR* )
8		xmul01	|- ( 2 e. RR* -> ( 2 *e 0 ) = 0 )
9	6 7 8	mp2b	|- ( 2 *e 0 ) = 0
10		psmet0	|- ( ( D e. ( PsMet ` X ) /\ B e. X ) -> ( B D B ) = 0 )
11	10	3adant2	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( B D B ) = 0 )
12	9 11	eqtr4id	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( 2 *e 0 ) = ( B D B ) )
13		psmetcl	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( A D B ) e. RR* )
14		x2times	|- ( ( A D B ) e. RR* -> ( 2 *e ( A D B ) ) = ( ( A D B ) +e ( A D B ) ) )
15	13 14	syl	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( 2 *e ( A D B ) ) = ( ( A D B ) +e ( A D B ) ) )
16	5 12 15	3brtr4d	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( 2 *e 0 ) <_ ( 2 *e ( A D B ) ) )
17		0xr	|- 0 e. RR*
18		2rp	|- 2 e. RR+
19	18	a1i	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> 2 e. RR+ )
20		xlemul2	|- ( ( 0 e. RR* /\ ( A D B ) e. RR* /\ 2 e. RR+ ) -> ( 0 <_ ( A D B ) <-> ( 2 *e 0 ) <_ ( 2 *e ( A D B ) ) ) )
21	17 13 19 20	mp3an2i	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> ( 0 <_ ( A D B ) <-> ( 2 *e 0 ) <_ ( 2 *e ( A D B ) ) ) )
22	16 21	mpbird	|- ( ( D e. ( PsMet ` X ) /\ A e. X /\ B e. X ) -> 0 <_ ( A D B ) )