reserve x, X, Y for set;
reserve L for complete LATTICE,
  a for Element of L;

theorem Th33: ::Remark 2.4  (Part I, variant 2)
  for M being non empty RelStr for f being Function of L, M st f
  is infs-preserving holds Image f is infs-inheriting
proof
  let M be non empty RelStr;
  let f be Function of L, M such that
A1: f is infs-preserving;
  set S = subrelstr(rng f);
  for Y being Subset of S st ex_inf_of Y,M holds "/\"(Y, M) in the carrier of S
  proof
    let Y be Subset of S;
    assume ex_inf_of Y,M;
A2: f preserves_inf_of (f"Y) & ex_inf_of f"Y,L by A1,YELLOW_0:17;
    Y c= the carrier of S;
    then Y c= rng f by YELLOW_0:def 15;
    then "/\"(Y, M) = inf(f.:(f"Y)) by FUNCT_1:77
      .= f.inf(f"Y) by A2;
    then "/\"(Y, M) in rng f by FUNCT_2:4;
    hence thesis by YELLOW_0:def 15;
  end;
  hence thesis by YELLOW_0:def 18;
end;
