theorem Th10:
  len Sgm(seq(len g,len f)) = len f
proof
  seq(len g,len f),len f are_equipotent by Th6;
  then card seq(len g,len f) = card len f by CARD_1:5;
  hence thesis by FINSEQ_3:39;
end;
