let OAS be OAffinSpace; :: thesis: for a, b, c being Element of OAS ex x being Element of OAS st
( a,x // b,c & a,b // x,c )

let a, b, c be Element of OAS; :: thesis: ex x being Element of OAS st
( a,x // b,c & a,b // x,c )

A1: now :: thesis: ( not a,b,c are_collinear implies ex x being Element of OAS st
( a,x // b,c & a,b // x,c ) )
consider e3 being Element of OAS such that
A2: Mid b,c,e3 and
A3: c <> e3 by DIRAF:13;
A4: b,c // c,e3 by A2, DIRAF:def 3;
assume A5: not a,b,c are_collinear ; :: thesis: ex x being Element of OAS st
( a,x // b,c & a,b // x,c )

then A6: b <> c by DIRAF:31;
then consider e4 being Element of OAS such that
A7: a,c // c,e4 and
A8: a,b // e3,e4 by A4, ANALOAF:def 5;
A9: Mid a,c,e4 by A7, DIRAF:def 3;
then Mid e4,c,a by DIRAF:9;
then A10: e4,c // c,a by DIRAF:def 3;
A11: e4 <> c
proof end;
A13: not e4,c,e3 are_collinear
proof end;
b,c // c,e3 by A2, DIRAF:def 3;
then A18: c,e3 // b,c by DIRAF:2;
consider e1 being Element of OAS such that
A19: Mid c,a,e1 and
A20: a <> e1 by DIRAF:13;
A21: c,a // a,e1 by A19, DIRAF:def 3;
A22: a <> c by A5, DIRAF:31;
then consider e2 being Element of OAS such that
A23: b,a // a,e2 and
A24: b,c // e1,e2 by A21, ANALOAF:def 5;
c,a // c,e1 by A21, ANALOAF:def 5;
then e4,c // c,e1 by A22, A10, DIRAF:3;
then A25: Mid e4,c,e1 by DIRAF:def 3;
then consider e5 being Element of OAS such that
A26: Mid e4,e3,e5 and
A27: c,e3 // e1,e5 by A11, Th20;
A28: e4 <> e3
proof end;
then A31: e4 <> e5 by A26, DIRAF:8;
A32: e1 <> e4 by A25, A11, DIRAF:8;
A33: not e1,e4,e3 are_collinear
proof end;
A36: not e1,e5,e4 are_collinear
proof end;
then A39: e1 <> e5 by DIRAF:31;
Mid e1,c,e4 by A25, DIRAF:9;
then consider e6 being Element of OAS such that
A40: Mid e1,e6,e5 and
A41: e5,e4 // e6,c by A36, Th21;
A42: c <> e1 by A19, A20, DIRAF:8;
A43: not c,e1,b are_collinear
proof end;
A46: e5 <> e3
proof end;
A49: e1 <> e6
proof end;
consider x being Element of OAS such that
A54: Mid c,x,e6 and
A55: e1,e6 // a,x by A19, Th19;
e1,e6 // e6,e5 by A40, DIRAF:def 3;
then e1,e6 // e1,e5 by ANALOAF:def 5;
then e1,e5 // a,x by A55, A49, ANALOAF:def 5;
then c,e3 // a,x by A27, A39, DIRAF:3;
then A56: a,x // b,c by A3, A18, ANALOAF:def 5;
A57: e6 <> c
proof end;
A58: a <> e2
proof end;
A60: e6 <> x
proof end;
Mid e6,x,c by A54, DIRAF:9;
then A69: e6,x // x,c by DIRAF:def 3;
then e6,x // e6,c by ANALOAF:def 5;
then A70: e6,c // x,c by A60, A69, ANALOAF:def 5;
Mid e5,e3,e4 by A26, DIRAF:9;
then A71: e5,e3 // e3,e4 by DIRAF:def 3;
then e5,e3 // e5,e4 by ANALOAF:def 5;
then e3,e4 // e5,e4 by A46, A71, ANALOAF:def 5;
then a,b // e5,e4 by A8, A28, DIRAF:3;
then a,b // e6,c by A31, A41, DIRAF:3;
then a,b // x,c by A57, A70, DIRAF:3;
hence ex x being Element of OAS st
( a,x // b,c & a,b // x,c ) by A56; :: thesis: verum
end;
now :: thesis: ( a,b,c are_collinear implies ex x being Element of OAS st
( a,x // b,c & a,b // x,c ) )
A72: now :: thesis: ( Mid a,c,b implies ( a,a // b,c & a,b // a,c ) )
assume Mid a,c,b ; :: thesis: ( a,a // b,c & a,b // a,c )
then a,c // c,b by DIRAF:def 3;
then a,c // a,b by ANALOAF:def 5;
hence ( a,a // b,c & a,b // a,c ) by DIRAF:2, DIRAF:4; :: thesis: verum
end;
A73: now :: thesis: ( Mid b,a,c implies ( a,c // b,c & a,b // c,c ) )
assume Mid b,a,c ; :: thesis: ( a,c // b,c & a,b // c,c )
then Mid c,a,b by DIRAF:9;
then c,a // a,b by DIRAF:def 3;
then c,a // c,b by ANALOAF:def 5;
hence ( a,c // b,c & a,b // c,c ) by DIRAF:2, DIRAF:4; :: thesis: verum
end;
A74: ( Mid a,b,c implies ( a,b // b,c & a,b // b,c ) ) by DIRAF:def 3;
assume a,b,c are_collinear ; :: thesis: ex x being Element of OAS st
( a,x // b,c & a,b // x,c )

hence ex x being Element of OAS st
( a,x // b,c & a,b // x,c ) by A74, A73, A72, DIRAF:29; :: thesis: verum
end;
hence ex x being Element of OAS st
( a,x // b,c & a,b // x,c ) by A1; :: thesis: verum