
theorem
  for L1 be complete non empty Poset for x be Element of L1 holds x is
  compact implies x = inf wayabove x
proof
  let L1 be complete non empty Poset;
  let x be Element of L1;
  assume x is compact;
  then x << x by WAYBEL_3:def 2;
  then x in wayabove x by WAYBEL_3:8;
  then
A1: inf wayabove x <= x by YELLOW_2:22;
  x <= inf wayabove x by WAYBEL14:9;
  hence thesis by A1,YELLOW_0:def 3;
end;
