reserve x,y,X,X1,Y,Z for set;
reserve L for Lattice;
reserve F,H for Filter of L;
reserve p,q,r for Element of L;
reserve L1, L2 for Lattice;
reserve a1,b1 for Element of L1;
reserve a2 for Element of L2;
reserve f for Homomorphism of L1,L2;

theorem Th4:
  a1 [= b1 implies f.a1 [= f.b1 by D1;
