let IPP be 2-dimensional Desarguesian IncProjSp; :: thesis: for a, b, c, q being POINT of IPP
for A, B, C, O being LINE of IPP st not a on A & not b on B & not a on C & not b on C & c on A & c on C & a <> b & a on O & b on O & q on O & not q on A & q <> b & not A,B,C are_concurrent & not B,C,O are_concurrent holds
ex Q being LINE of IPP st
( c on Q & not b on Q & not q on Q & (IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) )
let a, b, c, q be POINT of IPP; :: thesis: for A, B, C, O being LINE of IPP st not a on A & not b on B & not a on C & not b on C & c on A & c on C & a <> b & a on O & b on O & q on O & not q on A & q <> b & not A,B,C are_concurrent & not B,C,O are_concurrent holds
ex Q being LINE of IPP st
( c on Q & not b on Q & not q on Q & (IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) )
let A, B, C, O be LINE of IPP; :: thesis: ( not a on A & not b on B & not a on C & not b on C & c on A & c on C & a <> b & a on O & b on O & q on O & not q on A & q <> b & not A,B,C are_concurrent & not B,C,O are_concurrent implies ex Q being LINE of IPP st
( c on Q & not b on Q & not q on Q & (IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) ) )
assume A1:
( not a on A & not b on B & not a on C & not b on C & c on A & c on C & a <> b & a on O & b on O & q on O & not q on A & q <> b & not A,B,C are_concurrent & not B,C,O are_concurrent )
; :: thesis: ex Q being LINE of IPP st
( c on Q & not b on Q & not q on Q & (IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) )
consider d being POINT of IPP such that
A2:
( d on C & d on B )
by INCPROJ:def 14;
consider O1 being LINE of IPP such that
A3:
( a on O1 & d on O1 )
by INCPROJ:def 10;
consider O3 being LINE of IPP such that
A4:
( b on O3 & d on O3 )
by INCPROJ:def 10;
consider p being POINT of IPP such that
A5:
( p on A & p on O1 )
by INCPROJ:def 14;
consider O2 being LINE of IPP such that
A6:
( q on O2 & p on O2 )
by INCPROJ:def 10;
consider pp' being POINT of IPP such that
A7:
( pp' on O3 & pp' on O2 )
by INCPROJ:def 14;
consider Q being LINE of IPP such that
A8:
( c on Q & pp' on Q )
by INCPROJ:def 10;
now assume A9:
q <> a
;
:: thesis: ex Q being LINE of IPP st
( c on Q & not b on Q & not q on Q & (IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) )then
( not
a on A & not
a on C & not
b on B & not
b on C & not
q on A & not
A,
B,
C are_concurrent & not
B,
C,
O are_concurrent &
a <> b &
b <> q &
q <> a &
{c,p} on A &
d on B &
{c,d} on C &
{a,b,q} on O &
{c,pp'} on Q &
{a,d,p} on O1 &
{q,p,pp'} on O2 &
{b,d,pp'} on O3 )
by A1, A2, A3, A4, A5, A6, A7, A8, INCSP_1:11, INCSP_1:12;
then A10:
(
Q <> A &
Q <> C & not
q on Q & not
b on Q )
by Th19;
then
(IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q)
by A1, A2, A3, A4, A5, A6, A7, A8, A9, Th15;
hence
ex
Q being
LINE of
IPP st
(
c on Q & not
b on Q & not
q on Q &
(IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) )
by A8, A10;
:: thesis: verum end;
hence
ex Q being LINE of IPP st
( c on Q & not b on Q & not q on Q & (IncProj C,b,B) * (IncProj A,a,C) = (IncProj Q,b,B) * (IncProj A,q,Q) )
by A1; :: thesis: verum