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 Th7:
  seq(a,b) c= Seg (a+b)
proof
  let x be object;
A1: 1 <= 1+a by NAT_1:11;
  assume
A2: x in seq(a,b);
  then reconsider x as Element of NAT;
  1+a <= x by A2,Th1;
  then
A3: 1 <= x by A1,XXREAL_0:2;
  x <= b+a by A2,Th1;
  hence thesis by A3,FINSEQ_1:1;
end;
