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

theorem Th40:
  \delta (Double x, x _0) = x
proof
  thus \delta (Double x, x _0) = Expand (x, x) .= x by Th36;
end;
