-- | For each path which is only referenced in one location, removes the path
-- and pastes its contents into the place it was referenced.
simplifyPaths :: (Ord c) => System c b e a -> System c b e a
simplifyPaths sys = foldr unrollSystem sys $ usedOnce sys
simplifyPaths :: (Ord c) => System c b e a -> System c b e a
simplifyPaths sys = foldr unrollSystem sys $ usedOnce sys
simplifyPaths sys = foldr unrollSystem sys $ usedOnce sys