reserve X for set,
  x,y,z for Element of BooleLatt X,
  s for set;
reserve y for Element of BooleLatt X;
reserve L for Lattice,
  p,q for Element of L;

theorem Th7:
  p [= q iff p% <= q%
by FILTER_1:31;
