let SAS be Semi_Affine_Space; :: thesis: for a, b, c, d being Element of SAS st a,b,c are_collinear & a,b,d are_collinear holds
a,b // c,d
let a, b, c, d be Element of SAS; :: thesis: ( a,b,c are_collinear & a,b,d are_collinear implies a,b // c,d )
assume that
A1: a,b,c are_collinear and
A2: a,b,d are_collinear ; :: thesis: a,b // c,d

now :: thesis: ( a <> b & a <> c implies a,b // c,d )

assume that
A3: a <> b and
A4: a <> c ; :: thesis: a,b // c,d
A5: a,b // a,c by A1;
a,b // a,d by A2;
then a,c // a,d by A3, A5, Def1;
then a,c // c,d by Th7;
hence a,b // c,d by A4, A5, Th8; :: thesis: verum

end;

hence a,b // c,d by A2, Th3; :: thesis: verum