theorem Th26:
  the_midpoint_of_the_segment(A,B) = B implies A=B
  proof
    assume the_midpoint_of_the_segment(A,B) = B;
    then the_midpoint_of_the_segment(B,A) = B by Th23;
    hence thesis by Th25;
end;
