After doing some preceding work I end up with a polynomial equation that should look something like this:

```
Eq = c + b x + a x^2 - d x^2 == k

```

I would like to convert this equation to

```
Eq = c + b x + a x^2 - d x^2 - k == 0

```

then extract the LHS into a variable:

```
Poly = c + b x + a x^2 - d x^2 - k

```

and proceed with my analysis to do things like

```
Collect[Poly,x]

```

which would return

```
c - k + b x + (a - d) x^2

```

Is there a way to automate this procedure?