reserve V for RealLinearSpace;
reserve p,q,u,v,w,y for VECTOR of V;
reserve a,b,c,d for Real;

theorem Th8:
  u,v // u,v
proof
  jj*(v-u)=jj*(v-u);
  hence thesis;
end;
