
theorem
  for f be Relation holds rng f is integer-membered iff f is INT-valued
  proof
    let f be Relation;
    thus rng f is integer-membered implies f is INT-valued
    proof
      set E = (rng f)\/INT;
      reconsider X = rng f as Subset of E by XBOOLE_1:7;
      reconsider Y = INT as Subset of E by XBOOLE_1:7;
      assume rng f is integer-membered; then
      for x be Element of E st x in rng f holds x in INT by INT_1:def 2; then
      X c= Y by SUBSET_1:2;
      hence thesis by RELAT_1:def 19;
    end;
    thus thesis;
  end;
