Speed up Pseudofunctor.Identity