fact: Definition aut_homomorphism_end `{Funext} {X Y : Type} (M : (X -> X) -> (Y -> Y)) (Mid : M idmap == idmap) (MC : forall f g, M (g o f) == M g o M f) : (X <~> X) -> (Y <~> Y).
imports: HoTT.Basics HoTT.Types HFiber Truncations Spaces.BAut