fact: Definition id_center2_baut `{Univalence} X `{IsTrunc 1 X} : center2_baut X (exist (fun (f:forall x:X, x=x) => forall (g:X<~>X) (x:X), ap g (f x) = f (g x)) (fun x => idpath x) (fun (g:X<~>X) (x:X) => idpath (idpath (g x)))) = fun Z => idpath (idpath Z).
imports: HoTT.Basics HoTT.Types Constant HoTT.Truncations ObjectClassifier Homotopy.ExactSequence Pointed