let n be Nat; :: thesis: for m being Nat st n <= m & m <= n + 4 & not m = n & not m = n + 1 & not m = n + 2 & not m = n + 3 holds
m = n + 4
let m be Nat; :: thesis: ( n <= m & m <= n + 4 & not m = n & not m = n + 1 & not m = n + 2 & not m = n + 3 implies m = n + 4 )
assume that
A1: n <= m and
A2: m <= n + 4 ; :: thesis: ( m = n or m = n + 1 or m = n + 2 or m = n + 3 or m = n + 4 )

per cases ( m <= n + 3 or m > n + 3 ) ;

suppose m <= n + 3 ; :: thesis: ( m = n or m = n + 1 or m = n + 2 or m = n + 3 or m = n + 4 )

hence ( m = n or m = n + 1 or m = n + 2 or m = n + 3 or m = n + 4 ) by A1, Th57; :: thesis: verum

end;

suppose m > n + 3 ; :: thesis: ( m = n or m = n + 1 or m = n + 2 or m = n + 3 or m = n + 4 )

then ( m = n + 3 or m = (n + 3) + 1 ) by A2, Th9;
hence ( m = n or m = n + 1 or m = n + 2 or m = n + 3 or m = n + 4 ) ; :: thesis: verum

end;

end;