let PCPP be CollProjectiveSpace; :: thesis: for a, b, c, d being Element of PCPP st a <> b & a,b,c is_collinear & a,b,d is_collinear holds
a,c,d is_collinear
let a, b, c, d be Element of PCPP; :: thesis: ( a <> b & a,b,c is_collinear & a,b,d is_collinear implies a,c,d is_collinear )
assume A1: ( a <> b & a,b,c is_collinear & a,b,d is_collinear ) ; :: thesis: a,c,d is_collinear
a,b,a is_collinear by ANPROJ_2:def 7;
hence a,c,d is_collinear by A1, ANPROJ_2:def 8; :: thesis: verum