for V being RealLinearSpace
for P, Q, R, S being Element of V st P,Q,R,S are_collinear & P <> S & R <> Q & S <> Q holds
cross-ratio (P,Q,R,S) = cross-ratio (R,S,P,Q)