Fix a subtle bug in Positive.decompose (for some complex recursive types,

Positive.solve(Positive.decompose t) was not the identity but added spurious types at toplevel.

Added more test cases in poly-ok.cd to cover such regressions