theorem Th26:
  q in halfline(p,q)
proof
  (1-1)*p + 1 * q = 0 * p + q by RLVECT_1:def 8
    .= 0.V + q by RLVECT_1:10
    .= q by RLVECT_1:4;
  hence thesis;
end;
