Add pattern to fuse nested Subs

[fritzo]

Fixes https://github.com/pyro-ppl/funsor/pull/553#issuecomment-945235391 pair coded with @eb8680

This prevents infinite recursion errors.

Tested

• [x] added a regression test