theorem Th8:
  b in rng p implies ex i being Nat st i in dom p & p.i = b
proof
  assume b in rng p;
  then ex a being object st a in dom p & b = p.a by FUNCT_1:def 3;
  hence thesis;
end;
