 reserve L for non empty LattStr;
 reserve v100,v102,v2,v1,v0,v3,v101 for Element of L;
 reserve L for WA_Lattice;
 reserve x,y,z,u for Element of L;

theorem LemmaSum:
  x [= x "\/" y
  proof
    set v1 = x "\/" y;
A1: x "/\" v1 = x by LATTICES:def 9;
    ((x"/\"v1)"\/"(x"/\"v1))"\/"v1 = v1 by DefW33;
    hence thesis by LATTICES:def 3,A1;
  end; :: LATTICES:5 but without associativity
