[partition default implementation
martin.hofmann@uni-bamberg.de**20081113100934] hunk ./src/Advancement.hs 11
---partition :: Rule -> IM [(Rule,FunFragment)]
--- more to be done
+partition :: Rule -> IM [(Rule,FunFragment)]
+partition r = return []     --FIXME