let S be non empty Reflexive symmetric triangle MetrStruct ; for p, q, r being Element of S st q is_between p,r holds
q is_between r,p
let p, q, r be Element of S; ( q is_between p,r implies q is_between r,p )
assume A1:
q is_between p,r
; q is_between r,p
hence
( r <> q & r <> p & q <> p )
; METRIC_1:def 22 dist (r,p) = (dist (r,q)) + (dist (q,p))
dist (p,r) = (dist (p,q)) + (dist (q,r))
by A1;
hence
dist (r,p) = (dist (r,q)) + (dist (q,p))
; verum