
theorem Th17:
  for L being complete noetherian Lattice for a being Element of L
st a <> Top L holds a is completely-meet-irreducible iff a% is meet-irreducible
proof
  let L be complete noetherian Lattice;
  let a be Element of L;
  assume a <> Top L;
  then consider b being Element of L such that
A1: b is-upper-neighbour-of a by Th6;
A2: b <> a by A1;
  now
    assume
A3: a% is meet-irreducible;
    for d being Element of L holds d is-upper-neighbour-of a implies d = b
    proof
      let d be Element of L;
A4:   a% = a by LATTICE3:def 3;
A5:   d% = d & b% = b by LATTICE3:def 3;
      assume
A6:   d is-upper-neighbour-of a;
      then
A7:   d <> a;
      assume d <> b;
      then a = d "/\" b by A1,A6,Th2;
      then a% = d% "/\" b% by A4,Lm8;
      hence thesis by A2,A3,A7,A4,A5,WAYBEL_6:def 2;
    end;
    hence a is completely-meet-irreducible by A1,Th14;
  end;
  hence thesis by Th16;
end;
