fact: Definition baut_prod_r (X A : Type) : BAut X -> BAut (X * A) := fun Z:BAut X => (Z * A ; Trunc_functor (-1) (ap (fun W => W * A)) (pr2 Z)) : BAut (X * A).
imports: HoTT.Basics HoTT.Types Constant HoTT.Truncations ObjectClassifier Homotopy.ExactSequence Pointed