reserve a,b,r for non unit non zero Real;
reserve X for non empty set,
        x for Tuple of 4,X;
reserve V             for RealLinearSpace,
        A,B,C,P,Q,R,S for Element of V;
reserve x           for Tuple of 4,the carrier of V,
        P9,Q9,R9,S9 for Element of V;

theorem
  cross-ratio(P,Q,S,R) = 1 / cross-ratio(P,Q,R,S) by XCMPLX_1:57;
