useGgxNames names (VMorph f) =
  VMorph . useGgxNamesOnMorphism names $ f
useGgxNames names (VMorph f) =
  VMorph . useGgxNamesOnMorphism names $ f
useGgxNames names (VMorph f) =
  VMorph . useGgxNamesOnMorphism names $ f