theorem Th21: :: EUCLID12:28
for A, B being Point of (TOP-REAL 2) holds the_midpoint_of_the_segment (A,B) in LSeg (A,B)