theorem Th11:
  dom Sgm(seq(len g,len f)) = dom f
proof
  len Sgm(seq(len g,len f)) = len f by Th10;
  hence thesis by FINSEQ_3:29;
end;
