let X be OrtAfPl; :: thesis: ( X is satisfying_AH implies X is satisfying_TDES )
assume A1: X is satisfying_AH ; :: thesis: X is satisfying_TDES
let o be Element of X; :: according to CONMETR:def 5 :: thesis: for a, a1, b, b1, c, c1 being Element of X st o <> a & o <> a1 & o <> b & o <> b1 & o <> c & o <> c1 & not LIN b,b1,a & not LIN b,b1,c & LIN o,a,a1 & LIN o,b,b1 & LIN o,c,c1 & a,b // a1,b1 & a,b // o,c & b,c // b1,c1 holds
a,c // a1,c1

let a, a1, b, b1, c, c1 be Element of X; :: thesis: ( o <> a & o <> a1 & o <> b & o <> b1 & o <> c & o <> c1 & not LIN b,b1,a & not LIN b,b1,c & LIN o,a,a1 & LIN o,b,b1 & LIN o,c,c1 & a,b // a1,b1 & a,b // o,c & b,c // b1,c1 implies a,c // a1,c1 )
assume A2: ( o <> a & o <> a1 & o <> b & o <> b1 & o <> c & o <> c1 & not LIN b,b1,a & not LIN b,b1,c & LIN o,a,a1 & LIN o,b,b1 & LIN o,c,c1 & a,b // a1,b1 & a,b // o,c & b,c // b1,c1 ) ; :: thesis: a,c // a1,c1
consider c2 being Element of X such that
A3: ( o,c _|_ o,c2 & o <> c2 ) by ANALMETR:def 10;
consider e1 being Element of X such that
A4: ( o,b _|_ o,e1 & o <> e1 ) by ANALMETR:def 10;
consider e2 being Element of X such that
A5: ( b,c _|_ c2,e2 & c2 <> e2 ) by ANALMETR:def 10;
reconsider o' = o, a' = a, a1' = a1, b' = b, b1' = b1, c' = c, c1' = c1, c2' = c2, e1' = e1, e2' = e2 as Element of (Af X) by ANALMETR:47;
A6: b1 <> a1
proof end;
A12: now
assume A13: not LIN a,b,c ; :: thesis: a,c // a1,c1
not o',e1' // c2',e2'
proof end;
then consider b2' being Element of (Af X) such that
A15: ( LIN o',e1',b2' & LIN c2',e2',b2' ) by AFF_1:74;
reconsider b2 = b2' as Element of X by ANALMETR:47;
LIN o,e1,b2 by A15, ANALMETR:55;
then o,e1 // o,b2 by ANALMETR:def 11;
then A16: o,b _|_ o,b2 by A4, ANALMETR:84;
LIN c2,e2,b2 by A15, ANALMETR:55;
then c2,e2 // c2,b2 by ANALMETR:def 11;
then A17: b,c _|_ c2,b2 by A5, ANALMETR:84;
consider e1 being Element of X such that
A18: ( o,a _|_ o,e1 & o <> e1 ) by ANALMETR:def 10;
consider e2 being Element of X such that
A19: ( a,c _|_ c2,e2 & c2 <> e2 ) by ANALMETR:def 10;
reconsider e1' = e1, e2' = e2 as Element of (Af X) by ANALMETR:47;
not o',e1' // c2',e2'
proof end;
then consider a2' being Element of (Af X) such that
A21: ( LIN o',e1',a2' & LIN c2',e2',a2' ) by AFF_1:74;
reconsider a2 = a2' as Element of X by ANALMETR:47;
LIN o,e1,a2 by A21, ANALMETR:55;
then o,e1 // o,a2 by ANALMETR:def 11;
then A22: o,a _|_ o,a2 by A18, ANALMETR:84;
LIN c2,e2,a2 by A21, ANALMETR:55;
then c2,e2 // c2,a2 by ANALMETR:def 11;
then A23: a,c _|_ c2,a2 by A19, ANALMETR:84;
A24: c,b _|_ c2,b2 by A17, ANALMETR:83;
a',b' // o',c' by A2, ANALMETR:48;
then o',c' // b',a' by AFF_1:13;
then A25: o,c // b,a by ANALMETR:48;
A26: c,a _|_ c2,a2 by A23, ANALMETR:83;
A27: not o,a // o,c
proof end;
not o,c // o,b
proof end;
then A30: b,a _|_ b2,a2 by A1, A3, A16, A22, A24, A25, A26, A27, CONAFFM:def 2;
consider e1 being Element of X such that
A31: ( o,a1 _|_ o,e1 & o <> e1 ) by ANALMETR:def 10;
consider e2 being Element of X such that
A32: ( a1,c1 _|_ c2,e2 & c2 <> e2 ) by ANALMETR:def 10;
reconsider e1' = e1, e2' = e2 as Element of (Af X) by ANALMETR:47;
not o',e1' // c2',e2'
proof end;
then consider a3' being Element of (Af X) such that
A35: ( LIN o',e1',a3' & LIN c2',e2',a3' ) by AFF_1:74;
reconsider a3 = a3' as Element of X by ANALMETR:47;
A36: o,a1 _|_ o,a3
proof end;
A37: a1,c1 _|_ c2,a3
proof
LIN c2,e2,a3 by A35, ANALMETR:55;
then c2,e2 // c2,a3 by ANALMETR:def 11;
hence a1,c1 _|_ c2,a3 by A32, ANALMETR:84; :: thesis: verum
end;
A38: o,c1 _|_ o,c2
proof end;
A39: o,b1 _|_ o,b2
proof end;
A40: c1,b1 _|_ c2,b2
proof
b <> c
proof
assume b = c ; :: thesis: contradiction
then LIN a',b',c' by AFF_1:16;
hence contradiction by A13, ANALMETR:55; :: thesis: verum
end;
then c2,b2 _|_ b1,c1 by A2, A17, ANALMETR:84;
hence c1,b1 _|_ c2,b2 by ANALMETR:83; :: thesis: verum
end;
A41: o,c1 // b1,a1
proof end;
A43: c1,a1 _|_ c2,a3 by A37, ANALMETR:83;
A44: not o,a1 // o,c1
proof end;
not o,c1 // o,b1
proof
assume A47: o,c1 // o,b1 ; :: thesis: contradiction
( o,c // o,c1 & o,b // o,b1 ) by A2, ANALMETR:def 11;
then ( o',c' // o',c1' & o',b' // o',b1' ) by ANALMETR:48;
then ( o',c1' // o',c' & o',b1' // o',b' ) by AFF_1:13;
then A48: ( o,c1 // o,c & o,b1 // o,b ) by ANALMETR:48;
then o,b1 // o,c by A2, A47, ANALMETR:82;
then o,b // o,c by A2, A48, ANALMETR:82;
then LIN o,b,c by ANALMETR:def 11;
then LIN o',b',c' by ANALMETR:55;
then LIN c',o',b' by AFF_1:15;
then c',o' // c',b' by AFF_1:def 1;
then o',c' // b',c' by AFF_1:13;
then A49: o,c // b,c by ANALMETR:48;
a',b' // o',c' by A2, ANALMETR:48;
then o',c' // b',a' by AFF_1:13;
then o,c // b,a by ANALMETR:48;
then b,a // b,c by A2, A49, ANALMETR:82;
then LIN b,a,c by ANALMETR:def 11;
then LIN b',a',c' by ANALMETR:55;
then LIN a',b',c' by AFF_1:15;
hence contradiction by A13, ANALMETR:55; :: thesis: verum
end;
then A50: b1,a1 _|_ b2,a3 by A1, A36, A38, A39, A40, A41, A43, A44, CONAFFM:def 2;
A51: b2,a3 // b2,a2
proof end;
A53: not LIN o',b2',a2'
proof end;
A60: LIN o',a2',a3'
proof end;
b2',a2' // b2',a3'
proof
b2',a3' // b2',a2' by A51, ANALMETR:48;
hence b2',a2' // b2',a3' by AFF_1:13; :: thesis: verum
end;
then A61: a2' = a3' by A53, A60, AFF_1:23;
a,c // a1,c1
proof end;
hence a,c // a1,c1 ; :: thesis: verum
end;
now
assume A62: LIN a,b,c ; :: thesis: a,c // a1,c1
then A63: LIN a',b',c' by ANALMETR:55;
then LIN b',a',c' by AFF_1:15;
then b',a' // b',c' by AFF_1:def 1;
then a',b' // b',c' by AFF_1:13;
then A64: a,b // b,c by ANALMETR:48;
A65: a <> b
proof
assume a = b ; :: thesis: contradiction
then LIN b',b1',a' by AFF_1:16;
hence contradiction by A2, ANALMETR:55; :: thesis: verum
end;
A66: b <> c
proof
assume b = c ; :: thesis: contradiction
then LIN b',b1',c' by AFF_1:16;
hence contradiction by A2, ANALMETR:55; :: thesis: verum
end;
b,c // a1,b1 by A2, A64, A65, ANALMETR:82;
then b1,c1 // a1,b1 by A2, A66, ANALMETR:82;
then b1',c1' // a1',b1' by ANALMETR:48;
then b1',a1' // b1',c1' by AFF_1:13;
then LIN b1',a1',c1' by AFF_1:def 1;
then LIN a1',b1',c1' by AFF_1:15;
then LIN a1,b1,c1 by ANALMETR:55;
then A67: a1,b1 // a1,c1 by ANALMETR:def 11;
a',b' // a1',b1' by A2, ANALMETR:48;
then a1',b1' // a',b' by AFF_1:13;
then A68: a1,b1 // a,b by ANALMETR:48;
A69: now end;
now
assume A71: a1 = b1 ; :: thesis: a,c // a1,c1
LIN c',b',a' by A63, AFF_1:15;
then c',b' // c',a' by AFF_1:def 1;
then b',c' // a',c' by AFF_1:13;
then b,c // a,c by ANALMETR:48;
hence a,c // a1,c1 by A2, A66, A71, ANALMETR:82; :: thesis: verum
end;
hence a,c // a1,c1 by A67, A68, A69, ANALMETR:82; :: thesis: verum
end;
hence a,c // a1,c1 by A12; :: thesis: verum