theorem Th7:
  Seq ((f^g)|dom f) = (f^g)|dom f
proof
  (f^g)|dom f = f by FINSEQ_1:21;
  hence thesis by FINSEQ_3:116;
end;
