reserve V for RealLinearSpace;
reserve x,y for VECTOR of V;
reserve AS for Oriented_Orthogonality_Space;
reserve u,u1,u2,u3,v,v1,v2,v3,w,w1 for Element of AS;

theorem
  u,u1 // v,v1 implies v,v1 // u,u1;
