let S be non empty satisfying_Tarski-model satisfying_Lower_Dimension_Axiom TarskiGeometryStruct ; :: thesis: for a, b, p being POINT of S
for A being Subset of S st A is_line & p in A & Collinear a,b,p holds
( between a,A,b iff ( between a,p,b & not a in A & not b in A ) )

let a, b, p be POINT of S; :: thesis: for A being Subset of S st A is_line & p in A & Collinear a,b,p holds
( between a,A,b iff ( between a,p,b & not a in A & not b in A ) )

let A be Subset of S; :: thesis: ( A is_line & p in A & Collinear a,b,p implies ( between a,A,b iff ( between a,p,b & not a in A & not b in A ) ) )
assume that
A1: A is_line and
A2: p in A and
A3: Collinear a,b,p ; :: thesis: ( between a,A,b iff ( between a,p,b & not a in A & not b in A ) )
hereby :: thesis: ( between a,p,b & not a in A & not b in A implies between a,A,b )
assume A4: between a,A,b ; :: thesis: ( between a,p,b & not a in A & not b in A )
then consider t being POINT of S such that
A5: t in A and
A6: between a,t,b ;
a <> b by A4, GTARSKI1:def 10;
then A7: Line (a,b) is_line ;
per cases ( p = t or p <> t ) ;
suppose p = t ; :: thesis: ( between a,p,b & not a in A & not b in A )
hence ( between a,p,b & not a in A & not b in A ) by A4, A6; :: thesis: verum
end;
suppose A8: p <> t ; :: thesis: ( between a,p,b & not a in A & not b in A )
then A9: Line (p,t) = A by A1, A2, A5, GTARSKI3:87;
between a,p,b
proof
per cases ( between a,b,p or between b,p,a or between p,a,b ) by A3;
suppose between p,a,b ; :: thesis: between a,p,b
then ( Collinear a,b,p & Collinear a,b,t ) by A6, GTARSKI3:14;
then ( p in { x where x is POINT of S : Collinear a,b,x } & t in { x where x is POINT of S : Collinear a,b,x } ) ;
then Line (a,b) = Line (p,t) by A7, A8, GTARSKI3:87
.= A by A8, A1, A2, A5, GTARSKI3:87 ;
hence between a,p,b by A4, GTARSKI3:83; :: thesis: verum
end;
end;
end;
hence ( between a,p,b & not a in A & not b in A ) by A4; :: thesis: verum
end;
end;
end;
assume ( between a,p,b & not a in A & not b in A ) ; :: thesis: between a,A,b
hence between a,A,b by A1, A2; :: thesis: verum