theorem
  h is total implies (g(#)h)/*seq = g(#)(h/*seq)
proof
  assume h is total;
  then dom h = COMPLEX by PARTFUN1:def 2;
  then rng seq c= dom h;
  hence thesis by Th8;
end;
