let X be OrtAfPl; :: thesis: ( X is satisfying_DES iff AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian )
A1: ( X is satisfying_DES implies AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian )
proof
assume A2: X is satisfying_DES ; :: thesis: AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian
now :: thesis: for A, M, N being Subset of AffinStruct(# the U1 of X, the CONGR of X #)
for o, a, b, c, a1, b1, c1 being Element of AffinStruct(# the U1 of X, the CONGR of X #) st o in A & o in M & o in N & o <> a & o <> b & o <> c & a in A & a1 in A & b in M & b1 in M & c in N & c1 in N & A is being_line & M is being_line & N is being_line & A <> M & A <> N & a,b // a1,b1 & a,c // a1,c1 holds
b,c // b1,c1
let A, M, N be Subset of AffinStruct(# the U1 of X, the CONGR of X #); :: thesis: for o, a, b, c, a1, b1, c1 being Element of AffinStruct(# the U1 of X, the CONGR of X #) st o in A & o in M & o in N & o <> a & o <> b & o <> c & a in A & a1 in A & b in M & b1 in M & c in N & c1 in N & A is being_line & M is being_line & N is being_line & A <> M & A <> N & a,b // a1,b1 & a,c // a1,c1 holds
b,c // b1,c1

let o, a, b, c, a1, b1, c1 be Element of AffinStruct(# the U1 of X, the CONGR of X #); :: thesis: ( o in A & o in M & o in N & o <> a & o <> b & o <> c & a in A & a1 in A & b in M & b1 in M & c in N & c1 in N & A is being_line & M is being_line & N is being_line & A <> M & A <> N & a,b // a1,b1 & a,c // a1,c1 implies b,c // b1,c1 )
assume that
A3: o in A and
A4: o in M and
A5: o in N and
A6: o <> a and
A7: o <> b and
A8: o <> c and
A9: a in A and
A10: a1 in A and
A11: b in M and
A12: b1 in M and
A13: c in N and
A14: c1 in N and
A15: A is being_line and
A16: M is being_line and
A17: N is being_line and
A18: A <> M and
A19: A <> N and
A20: a,b // a1,b1 and
A21: a,c // a1,c1 ; :: thesis: b,c // b1,c1
reconsider o9 = o, a9 = a, a19 = a1, b9 = b, b19 = b1, c9 = c, c19 = c1 as Element of X ;
o,b // o,b1 by A4, A11, A12, A16, AFF_1:39, AFF_1:41;
then A22: LIN o,b,b1 by AFF_1:def 1;
then A23: LIN o9,b9,b19 by ANALMETR:40;
o,a // o,a1 by A3, A9, A10, A15, AFF_1:39, AFF_1:41;
then A24: LIN o,a,a1 by AFF_1:def 1;
o,c // o,c1 by A5, A13, A14, A17, AFF_1:39, AFF_1:41;
then A25: LIN o,c,c1 by AFF_1:def 1;
then A26: LIN o9,c9,c19 by ANALMETR:40;
assume A27: not b,c // b1,c1 ; :: thesis: contradiction
A28: ( not LIN b9,b19,a9 & not LIN a9,a19,c9 )
proof
A29: a <> a1
proof
assume A30: a = a1 ; :: thesis: contradiction
A31: c = c1 b = b1 hence contradiction by A27, A31, AFF_1:2; :: thesis: verum
end;
A36: b <> b1 assume ( LIN b9,b19,a9 or LIN a9,a19,c9 ) ; :: thesis: contradiction
then ( LIN b,b1,a or LIN a,a1,c ) by ANALMETR:40;
then ( a in M or c in A ) by A9, A10, A11, A12, A15, A16, A29, A36, AFF_1:25;
then A39: ( o,a // M or o,c // A ) by A3, A4, A15, A16, AFF_1:52;
A40: o,c // N by A5, A13, A17, AFF_1:52;
o,a // A by A3, A9, A15, AFF_1:52;
hence contradiction by A3, A4, A5, A6, A8, A18, A19, A39, A40, AFF_1:45, AFF_1:53; :: thesis: verum
end;
A41: a9,c9 // a19,c19 by A21, ANALMETR:36;
A42: a9,b9 // a19,b19 by A20, ANALMETR:36;
A43: ( o9 <> a19 & o9 <> b19 & o9 <> c19 )
proof
A44: now :: thesis: not o9 = a19
assume A45: o9 = a19 ; :: thesis: contradiction
A46: o = c1
proof end;
o = b1
proof end;
hence contradiction by A27, A46, AFF_1:3; :: thesis: verum
end;
A57: now :: thesis: not o9 = b19end;
A62: now :: thesis: not o9 = c19end;
assume ( not o9 <> a19 or not o9 <> b19 or not o9 <> c19 ) ; :: thesis: contradiction
hence contradiction by A44, A57, A62; :: thesis: verum
end;
LIN o9,a9,a19 by A24, ANALMETR:40;
then b9,c9 // b19,c19 by A2, A6, A7, A8, A23, A26, A43, A28, A42, A41, CONAFFM:def 1;
hence contradiction by A27, ANALMETR:36; :: thesis: verum
end;
hence AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian by AFF_2:def 4; :: thesis: verum
end;
( AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian implies X is satisfying_DES )
proof
assume A67: AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian ; :: thesis: X is satisfying_DES
now :: thesis: for o9, a9, a19, b9, b19, c9, c19 being Element of X st o9 <> a9 & o9 <> a19 & o9 <> b9 & o9 <> b19 & o9 <> c9 & o9 <> c19 & not LIN b9,b19,a9 & not LIN a9,a19,c9 & LIN o9,a9,a19 & LIN o9,b9,b19 & LIN o9,c9,c19 & a9,b9 // a19,b19 & a9,c9 // a19,c19 holds
b9,c9 // b19,c19
let o9, a9, a19, b9, b19, c9, c19 be Element of X; :: thesis: ( o9 <> a9 & o9 <> a19 & o9 <> b9 & o9 <> b19 & o9 <> c9 & o9 <> c19 & not LIN b9,b19,a9 & not LIN a9,a19,c9 & LIN o9,a9,a19 & LIN o9,b9,b19 & LIN o9,c9,c19 & a9,b9 // a19,b19 & a9,c9 // a19,c19 implies b9,c9 // b19,c19 )
assume that
A68: o9 <> a9 and
o9 <> a19 and
A69: o9 <> b9 and
o9 <> b19 and
A70: o9 <> c9 and
o9 <> c19 and
A71: not LIN b9,b19,a9 and
A72: not LIN a9,a19,c9 and
A73: LIN o9,a9,a19 and
A74: LIN o9,b9,b19 and
A75: LIN o9,c9,c19 and
A76: a9,b9 // a19,b19 and
A77: a9,c9 // a19,c19 ; :: thesis: b9,c9 // b19,c19
reconsider o = o9, a = a9, a1 = a19, b = b9, b1 = b19, c = c9, c1 = c19 as Element of AffinStruct(# the U1 of X, the CONGR of X #) ;
A78: not LIN a,a1,c by A72, ANALMETR:40;
A79: a,c // a1,c1 by A77, ANALMETR:36;
A80: a,b // a1,b1 by A76, ANALMETR:36;
LIN o,b,b1 by A74, ANALMETR:40;
then consider M being Subset of AffinStruct(# the U1 of X, the CONGR of X #) such that
A81: M is being_line and
A82: o in M and
A83: b in M and
A84: b1 in M by AFF_1:21;
LIN o,c,c1 by A75, ANALMETR:40;
then consider N being Subset of AffinStruct(# the U1 of X, the CONGR of X #) such that
A85: N is being_line and
A86: o in N and
A87: c in N and
A88: c1 in N by AFF_1:21;
LIN o,a,a1 by A73, ANALMETR:40;
then consider A being Subset of AffinStruct(# the U1 of X, the CONGR of X #) such that
A89: A is being_line and
A90: o in A and
A91: a in A and
A92: a1 in A by AFF_1:21;
A93: not LIN b,b1,a by A71, ANALMETR:40;
( A <> M & A <> N )
proof
assume ( not A <> M or not A <> N ) ; :: thesis: contradiction
then ( b,b1 // b,a or a,a1 // a,c ) by A89, A91, A92, A83, A84, A87, AFF_1:39, AFF_1:41;
hence contradiction by A93, A78, AFF_1:def 1; :: thesis: verum
end;
then b,c // b1,c1 by A67, A68, A69, A70, A89, A90, A91, A92, A81, A82, A83, A84, A85, A86, A87, A88, A80, A79, AFF_2:def 4;
hence b9,c9 // b19,c19 by ANALMETR:36; :: thesis: verum
end;
hence X is satisfying_DES by CONAFFM:def 1; :: thesis: verum
end;
hence ( X is satisfying_DES iff AffinStruct(# the U1 of X, the CONGR of X #) is Desarguesian ) by A1; :: thesis: verum