reserve G for Robbins join-associative join-commutative non empty
  ComplLLattStr;
reserve x, y, z, u, v for Element of G;

theorem Th43:
  x _3 + x _0 = x _2 + x _1
proof
  thus x _3 + x _0 = (x _0 + Double x) + x + x _0 by LATTICES:def 5
    .= x _2 + x _1 by LATTICES:def 5;
end;
