 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 Idem:
  x [= x
  proof
    x "/\" x = x by IMeet;
    hence thesis by LATTICES:4;
  end;
