fact: Definition path2_universe_precompose_idmap {A B : Type} (p : forall b:B, b = b) (g : A <~> B) : equiv_path2_universe g g (fun a => (p (g a))) = (concat_p1 _)^ @ whiskerL (path_universe g) (path_universe_1)^ @ whiskerL (path_universe g) (equiv_path2_universe (equiv_idmap B) (equiv_idmap B) p) @ whiskerL (path_universe g) (path_universe_1) @ concat_p1 _.
imports: HoTT.Basics Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod