fact: Definition id_center_baut `{Univalence} X `{IsHSet X} : center_baut X (exist (fun (f:X<~>X) => forall (g:X<~>X), g o f == f o g) (equiv_idmap X) (fun (g:X<~>X) (x:X) => idpath (g x))) = fun Z => idpath Z.
imports: HoTT.Basics HoTT.Types Constant HoTT.Truncations ObjectClassifier Homotopy.ExactSequence Pointed