reserve r,s,t,u for Real;
reserve V for RealLinearSpace,
  v,w for Point of V;
reserve x1,x2,x3,x4,y1,y2 for Element of V;

theorem Th74:
  y1 in Line(x1,x2) & y2 in Line(x1,x2) implies Line(y1,y2) c= Line(x1,x2)
proof
  assume y1 in Line(x1,x2);
  then consider t such that
A1: y1 = (1-t)*x1 + t*x2;
  assume y2 in Line(x1,x2);
  then consider s such that
A2: y2 = (1-s)*x1 + s*x2;
    let z be object;
    assume z in Line(y1,y2);
    then consider u such that
A3: z = (1-u)*y1 + u*y2;
    z = ((1-u)*((1-t)*x1)+(1-u)*(t*x2))+u*((1-s)*x1+s*x2)
      by A1,A2,A3,RLVECT_1:def 5
      .= ((1-u)*((1-t)*x1)+(1-u)*(t*x2))+(u*((1-s)*x1)+u*(s*x2))
        by RLVECT_1:def 5
      .= (((1-u)*(1-t))*x1+(1-u)*(t*x2))+(u*((1-s)*x1)+u*(s*x2))
        by RLVECT_1:def 7
      .= (((1-u)*(1-t))*x1+((1-u)*t)*x2)+(u*((1-s)*x1)+u*(s*x2))
        by RLVECT_1:def 7
      .= (((1-u)*(1-t))*x1+((1-u)*t)*x2)+((u*(1-s))*x1+u*(s*x2))
        by RLVECT_1:def 7
      .= (((1-u)*(1-t))*x1+((1-u)*t)*x2)+((u*(1-s))*x1+(u*s)*x2)
        by RLVECT_1:def 7
      .= ((1-u)*(1-t))*x1+(((1-u)*t)*x2+((u*(1-s))*x1+(u*s)*x2))
        by RLVECT_1:def 3
      .= ((1-u)*(1-t))*x1+((u*(1-s))*x1+(((1-u)*t)*x2+(u*s)*x2))
        by RLVECT_1:def 3
      .= (((1-u)*(1-t))*x1+(u*(1-s))*x1)+(((1-u)*t)*x2+(u*s)*x2)
       by RLVECT_1:def 3
      .= ((1-u)*(1-t)+u*(1-s))*x1+(((1-u)*t)*x2+(u*s)*x2) by RLVECT_1:def 6
      .= (1-(1*t-u*t+u*s))*x1+(1*t-u*t+u*s)*x2 by RLVECT_1:def 6;
    hence z in Line(x1,x2);
end;
