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 Th17:
  dom Seq((g^f)|seq(len g,len f)) = dom f
proof
  rng Sgm(seq(len g,len f)) = seq(len g,len f) by Th12;
  then
A1: rng Sgm(seq(len g,len f)) c= dom (g^f) by Th14;
  dom Seq((g^f)|seq(len g,len f)) = dom (Sgm(seq(len g,len f)) * (g^f))
  by Th16;
  then dom Seq((g^f)|seq(len g,len f)) = dom Sgm(seq(len g,len f))
  by A1,RELAT_1:27;
  hence thesis by Th11;
end;
