let n be Nat; :: thesis: ( not n satisfies_Sierpinski_problem_86 or ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

assume n satisfies_Sierpinski_problem_86 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

then consider a, b, c being Prime such that
A1: a,b,c are_mutually_distinct and
A2: (a * b) * c = (n |^ 2) - 1 ;
A3: n |^ 2 = n ^2 by WSIERP_1:1;
then A4: (a * b) * c = (n - 1) * (n + 1) by A2;
c divides (a * b) * c ;
then A5: ( c divides n - 1 or c divides n + 1 ) by A4, INT_5:7;
A6: c > 1 by INT_2:def 4;
A7: (a * b) * c = (b * c) * a ;
A8: (a * b) * c = (a * c) * b ;
A9: now :: thesis: not 1 > n
assume 1 > n ; :: thesis: contradiction
then n = 0 by NAT_1:14;
hence contradiction by A2; :: thesis: verum
end;
per cases ( n - 1 is prime or n + 1 is prime ) by A2, Th51;
suppose A10: n - 1 is prime ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

per cases then ( c = n - 1 or c divides n + 1 ) by A5, A6;
suppose c = n - 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

hence ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) ) by A1, A4, XCMPLX_1:5; :: thesis: verum
end;
suppose c divides n + 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

then c * (n - 1) divides (n + 1) * (n - 1) by NAT_3:1;
per cases then ( a = n - 1 or b = n - 1 ) by A2, A3, A9, A10, GROUP_22:1, GR_CY_3:1;
suppose a = n - 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

hence ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) ) by A1, A4, A7, XCMPLX_1:5; :: thesis: verum
end;
suppose b = n - 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

hence ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) ) by A1, A4, A8, XCMPLX_1:5; :: thesis: verum
end;
end;
end;
end;
end;
suppose A11: n + 1 is prime ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

per cases then ( c = n + 1 or c divides n - 1 ) by A5, A6;
suppose c = n + 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

hence ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) ) by A1, A4, XCMPLX_1:5; :: thesis: verum
end;
suppose c divides n - 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

then c * (n + 1) divides (n - 1) * (n + 1) by NAT_3:1;
per cases then ( a = n + 1 or b = n + 1 ) by A2, A3, A11, GROUP_22:1, GR_CY_3:1;
suppose a = n + 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

hence ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) ) by A1, A4, A7, XCMPLX_1:5; :: thesis: verum
end;
suppose b = n + 1 ; :: thesis: ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) )

hence ( ( n - 1 is prime & ex x, y being Prime st
( x <> y & n + 1 = x * y ) ) or ( n + 1 is prime & ex x, y being Prime st
( x <> y & n - 1 = x * y ) ) ) by A1, A4, A8, XCMPLX_1:5; :: thesis: verum
end;
end;
end;
end;
end;
end;