Plot[ -1 + x/2 - (Ln[ Cosh[ (Ln[ 2 ] x/2) ] ] / Ln[ 2 ]), { x, -10, 10 } ]