:: deftheorem defines |{ EUCLID_8:def 6 :
for p1, p2, p3 being Element of REAL 3 holds |{p1,p2,p3}| = |(p1,(p2 <X> p3))|;