let V be up-3-dimensional RealLinearSpace; :: thesis: ProjectiveSpace V is Desarguesian
let o, p1, p2, p3, q1, q2, q3, r1, r2, r3 be Element of (ProjectiveSpace V); :: according to ANPROJ_2:def 12 :: thesis: ( o <> q1 & p1 <> q1 & o <> q2 & p2 <> q2 & o <> q3 & p3 <> q3 & not o,p1,p2 is_collinear & not o,p1,p3 is_collinear & not o,p2,p3 is_collinear & p1,p2,r3 is_collinear & q1,q2,r3 is_collinear & p2,p3,r1 is_collinear & q2,q3,r1 is_collinear & p1,p3,r2 is_collinear & q1,q3,r2 is_collinear & o,p1,q1 is_collinear & o,p2,q2 is_collinear & o,p3,q3 is_collinear implies r1,r2,r3 is_collinear )
assume that
A1:
( o <> q1 & p1 <> q1 & o <> q2 & p2 <> q2 & o <> q3 & p3 <> q3 )
and
A2:
( not o,p1,p2 is_collinear & not o,p1,p3 is_collinear & not o,p2,p3 is_collinear )
and
A3:
( p1,p2,r3 is_collinear & q1,q2,r3 is_collinear & p2,p3,r1 is_collinear & q2,q3,r1 is_collinear & p1,p3,r2 is_collinear & q1,q3,r2 is_collinear )
and
A4:
( o,p1,q1 is_collinear & o,p2,q2 is_collinear & o,p3,q3 is_collinear )
; :: thesis: r1,r2,r3 is_collinear
consider o' being Element of V such that
A5:
( not o' is zero & o = Dir o' )
by ANPROJ_1:42;
consider p1', p2', r3' being Element of V such that
A6:
( p1 = Dir p1' & p2 = Dir p2' & r3 = Dir r3' & not p1' is zero & not p2' is zero & not r3' is zero & p1',p2',r3' are_LinDep )
by A3, Th24;
consider q1', q2', r3'' being Element of V such that
A7:
( q1 = Dir q1' & q2 = Dir q2' & r3 = Dir r3'' & not q1' is zero & not q2' is zero & not r3'' is zero & q1',q2',r3'' are_LinDep )
by A3, Th24;
A8:
q1',q2',r3' are_LinDep
consider p2'', p3', r1' being Element of V such that
A9:
( p2 = Dir p2'' & p3 = Dir p3' & r1 = Dir r1' & not p2'' is zero & not p3' is zero & not r1' is zero & p2'',p3',r1' are_LinDep )
by A3, Th24;
A10:
p2',p3',r1' are_LinDep
consider q2'', q3', r1'' being Element of V such that
A11:
( q2 = Dir q2'' & q3 = Dir q3' & r1 = Dir r1'' & not q2'' is zero & not q3' is zero & not r1'' is zero & q2'',q3',r1'' are_LinDep )
by A3, Th24;
A12:
q2',q3',r1' are_LinDep
consider p1'', p3'', r2' being Element of V such that
A13:
( p1 = Dir p1'' & p3 = Dir p3'' & r2 = Dir r2' & not p1'' is zero & not p3'' is zero & not r2' is zero & p1'',p3'',r2' are_LinDep )
by A3, Th24;
A14:
p1',p3',r2' are_LinDep
consider q1'', q3'', r2'' being Element of V such that
A15:
( q1 = Dir q1'' & q3 = Dir q3'' & r2 = Dir r2'' & not q1'' is zero & not q3'' is zero & not r2'' is zero & q1'',q3'',r2'' are_LinDep )
by A3, Th24;
A16:
q1',q3',r2' are_LinDep
proof
(
are_Prop q1'',
q1' &
are_Prop q3'',
q3' &
are_Prop r2'',
r2' )
by A7, A11, A13, A15, ANPROJ_1:35;
hence
q1',
q3',
r2' are_LinDep
by A15, ANPROJ_1:9;
:: thesis: verum
end;
A17:
( not are_Prop o',q1' & not are_Prop o',q2' & not are_Prop o',q3' & not are_Prop p1',q1' & not are_Prop p2',q2' & not are_Prop p3',q3' )
by A1, A5, A6, A7, A9, A11, ANPROJ_1:35;
consider o'', p1''', q1''' being Element of V such that
A18:
( o = Dir o'' & p1 = Dir p1''' & q1 = Dir q1''' & not o'' is zero & not p1''' is zero & not q1''' is zero & o'',p1''',q1''' are_LinDep )
by A4, Th24;
A19:
o',p1',q1' are_LinDep
proof
(
are_Prop o'',
o' &
are_Prop p1''',
p1' &
are_Prop q1''',
q1' )
by A5, A6, A7, A18, ANPROJ_1:35;
hence
o',
p1',
q1' are_LinDep
by A18, ANPROJ_1:9;
:: thesis: verum
end;
consider o''', p2''', q2''' being Element of V such that
A20:
( o = Dir o''' & p2 = Dir p2''' & q2 = Dir q2''' & not o''' is zero & not p2''' is zero & not q2''' is zero & o''',p2''',q2''' are_LinDep )
by A4, Th24;
A21:
o',p2',q2' are_LinDep
proof
(
are_Prop o''',
o' &
are_Prop p2''',
p2' &
are_Prop q2''',
q2' )
by A5, A6, A7, A20, ANPROJ_1:35;
hence
o',
p2',
q2' are_LinDep
by A20, ANPROJ_1:9;
:: thesis: verum
end;
consider o'''', p3''', q3''' being Element of V such that
A22:
( o = Dir o'''' & p3 = Dir p3''' & q3 = Dir q3''' & not o'''' is zero & not p3''' is zero & not q3''' is zero & o'''',p3''',q3''' are_LinDep )
by A4, Th24;
A23:
o',p3',q3' are_LinDep
proof
(
are_Prop o'''',
o' &
are_Prop p3''',
p3' &
are_Prop q3''',
q3' )
by A5, A9, A11, A22, ANPROJ_1:35;
hence
o',
p3',
q3' are_LinDep
by A22, ANPROJ_1:9;
:: thesis: verum
end;
A24:
p1',p2',p3' are_Prop_Vect
by A6, A9, Def1;
A25:
q1',q2',q3' are_Prop_Vect
by A7, A11, Def1;
A26:
r1',r2',r3' are_Prop_Vect
by A6, A9, A13, Def1;
A27:
o',p1',p2',p3',q1',q2',q3' are_perspective
by A19, A21, A23, Def3;
A28:
not o',p1',p2' are_LinDep
by A2, A5, A6, Th24;
A29:
not o',p1',p3' are_LinDep
by A2, A5, A6, A9, Th24;
A30:
not o',p2',p3' are_LinDep
by A2, A5, A6, A9, Th24;
A31:
p1',p2',p3',r1',r2',r3' lie_on_a_triangle
by A6, A10, A14, Def2;
q1',q2',q3',r1',r2',r3' lie_on_a_triangle
by A8, A12, A16, Def2;
then
r1',r2',r3' are_LinDep
by A5, A17, A24, A25, A26, A27, A28, A29, A30, A31, Th8;
hence
r1,r2,r3 is_collinear
by A6, A9, A13, Th24; :: thesis: verum