
theorem
  for X being set, b1,b2,b3 being bag of X holds b1 divides lcm(b2,b3)
  implies lcm(b2,b1) divides lcm(b2,b3)
proof
  let X being set, b1,b2,b3 be bag of X;
  assume
A1: b1 divides lcm(b2,b3);
  for k being object st k in X holds lcm(b2,b1).k <= lcm(b2,b3).k
  proof
    let k be object;
    assume k in X;
    b1.k <= lcm(b2,b3).k by A1,PRE_POLY:def 11;
    then
A2: b1.k <= max(b2.k,b3.k) by Def2;
    b2.k <= max(b2.k,b3.k) by XXREAL_0:25;
    then max(b2.k,b1.k) <= max(b2.k,b3.k) by A2,XXREAL_0:28;
    then max(b2.k,b1.k) <= lcm(b2,b3).k by Def2;
    hence thesis by Def2;
  end;
  hence thesis by PRE_POLY:46;
end;
