fact: Definition path2_universe_postcompose_idmap {A C : Type} (p : forall a:A, a = a) (g : A <~> C) : equiv_path2_universe g g (fun a => ap g (p a)) = (concat_1p _)^ @ whiskerR (path_universe_1)^ (path_universe g) @ whiskerR (equiv_path2_universe (equiv_idmap A) (equiv_idmap A) p) (path_universe g) @ whiskerR path_universe_1 (path_universe g) @ concat_1p _.
imports: HoTT.Basics Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod