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 Th47:
  u + v = u + w implies v = w
proof
  assume
A1: u + v = u + w;
  consider u9 such that
A2: u + u9 = ID(M) by Th45;
  v = v + ID(M) by Th44
    .= (u + u9) + v by A2,Th46
    .= (u9 + u) + v by Th46
    .= u9 + (u + w) by A1,Th43
    .= (u9 + u) + w by Th43
    .= ID(M) + w by A2,Th46
    .= w + ID(M) by Th46;
  hence thesis by Th44;
end;
