fact: Definition transport_idmap_path_universe {A B : Type} (f : A <~> B) : transport idmap (path_universe f) = f := ap equiv_fun (eisretr (equiv_path A B) f).
imports: HoTT.Basics Types.Sigma Types.Forall Types.Arrow Types.Paths Types.Equiv Types.Bool Types.Prod