theorem Th4:
  for n being Nat holds (disjointify(f)).n=f.n \ union rng(f|n)
proof
  let n be Nat;
  (disjointify f).n=disjointify(f,n) by Def4;
  hence thesis;
end;
