theorem Th4:
  i in dom D implies D.i in A
proof
  assume i in dom D; then
A1: D.i in rng D by FUNCT_1:def 3;
  rng D c= A by Def1;
  hence thesis by A1;
end;
