 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
  L is distributive & x [= y [= z implies x [= z
  proof
    assume
A0: L is distributive;
    assume
A1: x [= y [= z;
    x "/\" z = x "/\" (y "\/" z) by A1,LATTICES:def 3
            .= (x "/\" y) "\/" (x "/\" z) by A0,LATTICES:def 11
            .= x "\/" (x "/\" z) by A1,LATTICES:4
            .= x by LATTICES:def 8;
    hence thesis by LATTICES:4;
  end;
