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