theorem Th15:
  dom((g^f)|seq(len g,len f)) = seq(len g,len f)
proof
  dom((g^f)|seq(len g,len f)) = dom (g^f) /\ seq(len g,len f) by RELAT_1:61;
  hence thesis by Th14,XBOOLE_1:28;
end;
