reserve a, b, k, n, m for Nat,
  i for Integer,
  r for Real,
  p for Rational,
  c for Complex,
  x for object,
  f for Function;

theorem Th40:
  n >= 1 & scf(r).n <> 0 implies scf(r).n >= 1
proof
  assume n>=1 & scf(r).n <>0;
  then scf(r).n>0 by Th38;
  then scf(r).n>=0+1 by INT_1:7;
  hence thesis;
end;
