let FdSp be FanodesSp; :: thesis: for a, b, c, d being Element of FdSp st a,b,c is_collinear & a,c,d is_collinear & a <> c holds
b,c,d is_collinear

let a, b, c, d be Element of FdSp; :: thesis: ( a,b,c is_collinear & a,c,d is_collinear & a <> c implies b,c,d is_collinear )
assume ( a,b,c is_collinear & a,c,d is_collinear & a <> c ) ; :: thesis: b,c,d is_collinear
then ( a <> c & a,c,b is_collinear & a,c,c is_collinear & a,c,d is_collinear ) by Th15, Th18;
hence b,c,d is_collinear by Th19; :: thesis: verum