theorem Th12:
  rng Sgm(seq(len g,len f)) = seq(len g,len f) by FINSEQ_1:def 14;
