let V be non trivial RealLinearSpace; :: thesis: ( ex y, u, v, w being Element of V st
( ( for w1 being Element of V ex a, b, a1, b1 being Real st w1 = (((a * y) + (b * u)) + (a1 * v)) + (b1 * w) ) & ( for a, b, a1, b1 being Real st (((a * y) + (b * u)) + (a1 * v)) + (b1 * w) = 0. V holds
( a = 0 & b = 0 & a1 = 0 & b1 = 0 ) ) ) implies ex p, q1, q2 being Element of (ProjectiveSpace V) st
( not p,q1,q2 is_collinear & ( for r1, r2 being Element of (ProjectiveSpace V) ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear ) ) ) )

given y, u, v, w being Element of V such that A1: ( ( for w1 being Element of V ex a, b, a1, b1 being Real st w1 = (((a * y) + (b * u)) + (a1 * v)) + (b1 * w) ) & ( for a, b, a1, b1 being Real st (((a * y) + (b * u)) + (a1 * v)) + (b1 * w) = 0. V holds
( a = 0 & b = 0 & a1 = 0 & b1 = 0 ) ) ) ; :: thesis: ex p, q1, q2 being Element of (ProjectiveSpace V) st
( not p,q1,q2 is_collinear & ( for r1, r2 being Element of (ProjectiveSpace V) ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear ) ) )

A2: ( not y is zero & not u is zero & not v is zero & not w is zero & not y,u,v are_LinDep ) by A1, Th2;
then reconsider p = Dir y, q1 = Dir u, q2 = Dir v as Element of the carrier of (ProjectiveSpace V) by ANPROJ_1:42;
take p ; :: thesis: ex q1, q2 being Element of (ProjectiveSpace V) st
( not p,q1,q2 is_collinear & ( for r1, r2 being Element of (ProjectiveSpace V) ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear ) ) )

take q1 ; :: thesis: ex q2 being Element of (ProjectiveSpace V) st
( not p,q1,q2 is_collinear & ( for r1, r2 being Element of (ProjectiveSpace V) ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear ) ) )

take q2 ; :: thesis: ( not p,q1,q2 is_collinear & ( for r1, r2 being Element of (ProjectiveSpace V) ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear ) ) )

now end;
hence not p,q1,q2 is_collinear ; :: thesis: for r1, r2 being Element of (ProjectiveSpace V) ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear )

let r1, r2 be Element of (ProjectiveSpace V); :: thesis: ex q3, r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear )

consider u1 being Element of V such that
A3: ( not u1 is zero & r1 = Dir u1 ) by ANPROJ_1:42;
consider u2 being Element of V such that
A4: ( not u2 is zero & r2 = Dir u2 ) by ANPROJ_1:42;
consider w1, w2 being Element of V such that
A5: ( u1,u2,w2 are_LinDep & u,v,w1 are_LinDep & y,w2,w1 are_LinDep & not w1 is zero & not w2 is zero ) by A1, A3, A4, Th4;
reconsider q3 = Dir w1, r3 = Dir w2 as Element of the carrier of (ProjectiveSpace V) by A5, ANPROJ_1:42;
take q3 ; :: thesis: ex r3 being Element of (ProjectiveSpace V) st
( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear )

take r3 ; :: thesis: ( r1,r2,r3 is_collinear & q1,q2,q3 is_collinear & p,r3,q3 is_collinear )
thus r1,r2,r3 is_collinear by A3, A4, A5, Th24; :: thesis: ( q1,q2,q3 is_collinear & p,r3,q3 is_collinear )
thus q1,q2,q3 is_collinear by A2, A5, Th24; :: thesis: p,r3,q3 is_collinear
thus p,r3,q3 is_collinear by A2, A5, Th24; :: thesis: verum