take 0 ; :: according to ASYMPT_0:def 4 :: thesis: for b1 being set holds
( not 0 <= b1 or not (seq_n! a) . b1 <= 0 )

set f = seq_n! a;
let n be Nat; :: thesis: ( not 0 <= n or not (seq_n! a) . n <= 0 )
A1: n in NAT by ORDINAL1:def 12;
assume n >= 0 ; :: thesis: not (seq_n! a) . n <= 0
(seq_n! a) . n = (n + a) ! by Def4, A1;
hence not (seq_n! a) . n <= 0 by NEWTON:17; :: thesis: verum