fact: Definition sig_map (A A' : Type) (AR : Param2a0.Rel A A') (P : A -> Type) (P' : A' -> Type) (PR : forall a a', AR a a' -> Param10.Rel (P a) (P' a')) : {x : A & P x} -> {x' : A' & P' x'} := fun s => (map AR s.1; map (PR s.1 (map AR s.1) (map_in_R AR s.1 (map AR s.1) idpath)) s.2).
imports: Coq(ssreflect) HoTT(HoTT) Hierarchy