let S be non empty satisfying_Tarski-model satisfying_Lower_Dimension_Axiom TarskiGeometryStruct ; :: thesis: for p, r being POINT of S
for A, A9 being Subset of S st A,A9 Is p & r in A9 & r <> p holds
A9 c= Plane (A,r)

let p, r be POINT of S; :: thesis: for A, A9 being Subset of S st A,A9 Is p & r in A9 & r <> p holds
A9 c= Plane (A,r)

let A, A9 be Subset of S; :: thesis: ( A,A9 Is p & r in A9 & r <> p implies A9 c= Plane (A,r) )
assume that
A1: A,A9 Is p and
A2: r in A9 and
A3: r <> p ; :: thesis: A9 c= Plane (A,r)
A4: A9 = Line (p,r) by A1, A2, A3, GTARSKI3:87;
A5: not r in A by A1, A2, A3, GTARSKI3:89;
then A6: Plane (A,r) = { x where x is POINT of S : ( A out x,r or x in A or between r,A,x ) } by A1, Th32;
now :: thesis: for x being object st x in A9 holds
x in Plane (A,r)
let x be object ; :: thesis: ( x in A9 implies b1 in Plane (A,r) )
assume A7: x in A9 ; :: thesis: b1 in Plane (A,r)
then consider y being POINT of S such that
A8: x = y ;
consider z being POINT of S such that
A9: y = z and
A10: Collinear p,r,z by A4, A7, A8;
per cases ( x = p or x <> p ) ;
suppose A11: x = p ; :: thesis: b1 in Plane (A,r)
A c= Plane (A,r) by A1, A5, Th31;
hence x in Plane (A,r) by A11, A1; :: thesis: verum
end;
suppose A12: x <> p ; :: thesis: b1 in Plane (A,r)
end;
end;
end;
hence A9 c= Plane (A,r) ; :: thesis: verum