reserve L for non empty LattStr;
reserve v3,v101,v100,v102,v103,v2,v1,v0 for Element of L;

theorem :: QLT-7
  ex L1,L2 being QuasiLattice st
    the carrier of L1 = the carrier of L2 &
    the L_join of L1 = the L_join of L2 &
    the L_meet of L1 <> the L_meet of L2
  proof
    take L1 = QLTLattice1;
    take L2 = QLTLattice2;
    thus the carrier of L1 = the carrier of L2;
    thus the L_join of L1 = the L_join of L2;
    thus thesis by WazneQLT7;
  end;
