let OAS be OAffinSpace; :: thesis: for a, b, c, d, p being Element of OAS st Mid p,b,c & p,a,d are_collinear & a,b '||' c,d & not p,a,b are_collinear holds
Mid p,a,d

let a, b, c, d, p be Element of OAS; :: thesis: ( Mid p,b,c & p,a,d are_collinear & a,b '||' c,d & not p,a,b are_collinear implies Mid p,a,d )
assume that
A1: Mid p,b,c and
A2: p,a,d are_collinear and
A3: a,b '||' c,d and
A4: not p,a,b are_collinear ; :: thesis: Mid p,a,d
A5: now :: thesis: ( b <> c implies Mid p,a,d )
d,a,p are_collinear by A2, DIRAF:30;
then d,a '||' d,p by DIRAF:def 5;
then A6: a,d '||' d,p by DIRAF:22;
assume A7: b <> c ; :: thesis: Mid p,a,d
A8: b <> a by A4, DIRAF:31;
A9: not d,b,a are_collinear
proof end;
then d <> a by DIRAF:31;
then consider q being Element of OAS such that
A13: b,d '||' d,q and
A14: b,a '||' p,q by A6, DIRAF:27;
A15: p,b,c are_collinear by A1, DIRAF:28;
A16: p <> c by A1, A7, DIRAF:8;
A17: not b,c,d are_collinear
proof end;
a,b '||' q,p by A14, DIRAF:22;
then A23: c,d '||' q,p by A3, A8, DIRAF:23;
d,b '||' d,q by A13, DIRAF:22;
then d,b,q are_collinear by DIRAF:def 5;
then A24: b,d,q are_collinear by DIRAF:30;
A25: d <> p
proof end;
A28: not d,p,q are_collinear
proof end;
Mid c,b,p by A1, DIRAF:9;
then A36: Mid d,b,q by A17, A24, A23, Th6;
A37: now :: thesis: not Mid p,d,aend;
assume not Mid p,a,d ; :: thesis: contradiction
then Mid a,p,d by A2, A37, DIRAF:29;
then Mid b,p,c by A3, A4, A15, Th6;
then p = b by A1, DIRAF:14;
hence contradiction by A4, DIRAF:31; :: thesis: verum
end;
now :: thesis: ( b = c implies Mid p,a,d )end;
hence Mid p,a,d by A5; :: thesis: verum