reserve MS for non empty MidStr;
reserve a, b for Element of MS;
reserve M for MidSp;
reserve a,b,c,d,a9,b9,c9,d9,x,y,x9 for Element of M;
reserve p,q,r,p9,q9 for Element of [:the carrier of M,the carrier of M:];
reserve u,v,w,u9,w9 for Vector of M;

theorem
  vect(a,a@b) + vect(a,a@b) = vect(a,b)
proof
  vect(a,a@b) + vect(a,a@b) = vect(a,a@b) + vect(a@b,b) by Th27,Th41
    .= vect(a,b) by Th40;
  hence thesis;
end;
