theorem
  vect(a,b) = vect(a,c) implies b = c
proof
  assume vect(a,b) = vect(a,c);
  then a,b @@ a,b & a,b @@ a,c by Th20,Th28;
  hence thesis by Th16;
end;
