theorem Th23:
  p@q = r iff vect(p,r) = vect(r,q)
proof
  p@q = r iff p@q = r@r by MIDSP_1:def 3;
  hence thesis by Th22;
