 reserve W for WA-Lattice;
 reserve a,b,c for Element of W;

theorem Lemat01:
  a <= b iff a "/\" b = a by YELLOW_0:25;
