theorem
  h is total implies h/*(s^\n) = (h/*s)^\n
proof
  assume h is total;
  then dom h = X by PARTFUN1:def 2;
  then rng s c= dom h;
  hence thesis by Th27;
end;
