let SAS be Semi_Affine_Space; :: thesis: for o, p being Element of SAS st qtrap o,p holds
o <> p
let o, p be Element of SAS; :: thesis: ( qtrap o,p implies o <> p )
assume A1:
qtrap o,p
; :: thesis: o <> p
assume A2:
not o <> p
; :: thesis: contradiction
ex b being Element of SAS st o <> b
then consider b being Element of SAS such that
A4:
o <> b
;
consider c being Element of SAS such that
A5:
not o,b // o,c
by A4, Th26;
consider d being Element of SAS such that
A6:
( o,p,b is_collinear implies ( o,c,d is_collinear & p,c // b,d ) )
by A1, Def9;
( o,o // o,b implies ( o,c // o,d & o,c // b,d ) )
by A2, A6, Def2;
then A7:
( ( b = d & not o,b // o,c & o,c // o,d ) or ( b <> d & o <> c & not o,b // o,c & o,c // o,d & o,c // b,d ) )
by A5, Def1, Th14;
now assume A8:
(
b <> d & not
o,
b // o,
c &
o,
d // b,
d &
o,
c // b,
d )
;
:: thesis: ( b <> d & not o,b // o,c & b,d // o,b & b,d // o,c )then
d,
o // d,
b
by Th17;
hence
(
b <> d & not
o,
b // o,
c &
b,
d // o,
b &
b,
d // o,
c )
by A8, Th17, Th18;
:: thesis: verum end;
hence
contradiction
by A7, Def1, Th17; :: thesis: verum