reserve Al for QC-alphabet;
reserve p,q,p1,p2,q1 for Element of CQC-WFF(Al),
  k for Element of NAT,
  f,f1,f2,g for FinSequence of CQC-WFF(Al),
  a,b,b1,b2,c,i,n for Nat;

theorem Th3:
  b = 0 or b+a in seq(a,b)
proof
  assume b <> 0;
  then ex c be Nat st b = c + 1 by NAT_1:6;
  then 1 <= b by NAT_1:11;
  then b+a is Element of NAT & 1+a <= b+a by ORDINAL1:def 12,XREAL_1:6;
  hence thesis;
end;
