let X be OrtAfPl; :: thesis: ( X is satisfying_LIN implies X is satisfying_3H )
assume A1: X is satisfying_LIN ; :: thesis: X is satisfying_3H
let a be Element of X; :: according to CONAFFM:def 3 :: thesis: for b, c being Element of X st not LIN a,b,c holds
ex d being Element of X st
( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )

let b, c be Element of X; :: thesis: ( not LIN a,b,c implies ex d being Element of X st
( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b ) )

assume A2: not LIN a,b,c ; :: thesis: ex d being Element of X st
( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )

consider e1 being Element of X such that
A3: ( b,c _|_ a,e1 & a <> e1 ) by ANALMETR:def 10;
consider e2 being Element of X such that
A4: ( a,c _|_ b,e2 & b <> e2 ) by ANALMETR:def 10;
reconsider a' = a, b' = b, c' = c, e1' = e1, e2' = e2 as Element of (Af X) by ANALMETR:47;
not a',e1' // b',e2'
proof end;
then consider d' being Element of (Af X) such that
A5: ( LIN a',e1',d' & LIN b',e2',d' ) by AFF_1:74;
reconsider d = d' as Element of X by ANALMETR:47;
take d ; :: thesis: ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )
LIN b,e2,d by A5, ANALMETR:55;
then A6: b,e2 // b,d by ANALMETR:def 11;
then A7: a,c _|_ b,d by A4, ANALMETR:84;
then A8: d,b _|_ a,c by ANALMETR:83;
LIN a,e1,d by A5, ANALMETR:55;
then A9: a,e1 // a,d by ANALMETR:def 11;
then A10: b,c _|_ a,d by A3, ANALMETR:84;
then A11: d,a _|_ b,c by ANALMETR:83;
A12: X is satisfying_LIN1 by A1, Th3;
A13: now
assume A14: d <> c ; :: thesis: ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )
now
assume A15: b <> d ; :: thesis: ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )
not b',d' // a',c' then consider o' being Element of (Af X) such that
A17: ( LIN b',d',o' & LIN a',c',o' ) by AFF_1:74;
reconsider o = o' as Element of X by ANALMETR:47;
now
assume A18: d <> a ; :: thesis: ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )
A19: o <> a A23: c <> o
proof end;
consider e1 being Element of X such that
A27: ( a,c // a,e1 & a <> e1 ) by ANALMETR:51;
consider e2 being Element of X such that
A28: ( b,c // d,e2 & d <> e2 ) by ANALMETR:51;
reconsider e1' = e1, e2' = e2 as Element of (Af X) by ANALMETR:47;
not a',e1' // d',e2' then consider d1' being Element of (Af X) such that
A29: ( LIN a',e1',d1' & LIN d',e2',d1' ) by AFF_1:74;
reconsider d1 = d1' as Element of X by ANALMETR:47;
A30: LIN a,c,d1 A31: b,c // d,d1 A32: o <> d
proof end;
A37: o <> d1 A40: o <> b
proof
assume o = b ; :: thesis: contradiction
then LIN a',b',c' by A17, AFF_1:15;
hence contradiction by A2, ANALMETR:55; :: thesis: verum
end;
A41: d1 <> c
proof end;
A47: o,d _|_ o,a A50: o,d1 _|_ o,d
proof end;
A55: o,c _|_ o,b A58: not LIN o,d,d1 A59: LIN o,d1,c
proof
LIN a',c',d1' by A30, ANALMETR:55;
then LIN c',d1',a' by AFF_1:15;
then c',d1' // c',a' by AFF_1:def 1;
then a',c' // c',d1' by AFF_1:13;
then A60: a,c // c,d1 by ANALMETR:48;
A61: a <> c
proof
assume a = c ; :: thesis: contradiction
then LIN a',b',c' by AFF_1:16;
hence contradiction by A2, ANALMETR:55; :: thesis: verum
end;
LIN c',a',o' by A17, AFF_1:15;
then c',a' // c',o' by AFF_1:def 1;
then a',c' // c',o' by AFF_1:13;
then a,c // c,o by ANALMETR:48;
then c,d1 // c,o by A60, A61, ANALMETR:82;
then LIN c,d1,o by ANALMETR:def 11;
then LIN c',d1',o' by ANALMETR:55;
then LIN o',d1',c' by AFF_1:15;
hence LIN o,d1,c by ANALMETR:55; :: thesis: verum
end;
LIN o',d',b' by A17, AFF_1:15;
then A62: LIN o,d,b by ANALMETR:55;
A63: d1,d // c,b by A31, ANALMETR:81;
d1,d _|_ d,a
proof
b <> c
proof
assume b = c ; :: thesis: contradiction
then LIN a',b',c' by AFF_1:16;
hence contradiction by A2, ANALMETR:55; :: thesis: verum
end;
then d,d1 _|_ a,d by A10, A31, ANALMETR:84;
hence d1,d _|_ d,a by ANALMETR:83; :: thesis: verum
end;
then c,d _|_ b,a by A12, A19, A23, A32, A37, A40, A41, A47, A50, A55, A58, A59, A62, A63, Def6;
hence ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b ) by A7, A10, ANALMETR:83; :: thesis: verum
end;
hence ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b ) by A3, A7, A9, ANALMETR:83, ANALMETR:84; :: thesis: verum
end;
hence ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b ) by A4, A6, A10, ANALMETR:83, ANALMETR:84; :: thesis: verum
end;
now
assume d = c ; :: thesis: ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b )
then a,b _|_ d,c by ANALMETR:51;
hence ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b ) by A7, A10, ANALMETR:83; :: thesis: verum
end;
hence ( d,a _|_ b,c & d,b _|_ a,c & d,c _|_ a,b ) by A13; :: thesis: verum