https://github.com/agda/agda-stdlib/blob/2ce5eb3310d87f3fb757e680603c2c83f456df75/src/Algebra/Morphism/Bundles.agda#L70