 reserve L for AD_Lattice;
 reserve x,y,z for Element of L;
 reserve L for GAD_Lattice;
 reserve x,y,z for Element of L;

theorem
  x [= y iff x "/\" y = x by LATTICES:def 9,def 8;
