theorem Th13: :: ANPROJ10:20

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