Changed Identity bind definition

@edwardk, Shouldn't this be
```haskell
Identity x >>= f == f x
```
instead of

```haskell
Identity x >>= f == Identity (f x)
```
or am I missing something