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

theorem IMeet:   :: Lemma 2.3. (11)
  x "/\" x = x
  proof
    thus x "/\" x = (x "\/" x) "/\" x by ISum
      .= x by DefA2;
  end;
