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

theorem MeetCom: :: meet-commutative
L is join-absorbing &
(for v0,v2,v1 holds (v0"/\"(v1"\/"v2))=((v2"/\"v0)"\/"(v1"/\"v0)))
implies for v0,v1 holds v0"/\"v1 = v1"/\"v0
proof
assume A3: L is join-absorbing;
assume A4: for v0,v2,v1 holds (v0"/\"(v1"\/"v2))=((v2"/\"v0)"\/"(v1"/\"v0));
A53: for v2,v0 holds (v0"/\"(v2"\/"v2))=(v2"/\"v0)
proof let v2,v0;
((v2"/\"v0)"\/"(v2"/\"v0))=(v0"/\"(v2"\/"v2)) by A4;
hence thesis by A3,A4,JoinIdem;
end;
let v2,v0;
(v2"\/"v2)=v2 by A3,A4,JoinIdem;
hence thesis by A53;
end;
