fact: Definition map_in_R_list (A A' : Type) (AR : Param2a0.Rel A A') : forall (l : list A) (l' : list A'), map_list A A' AR l = l' -> listR A A' AR l l' := fun l l' e => match e with | idpath => (fix F l : listR A A' AR l (map_list A A' AR l) := match l with | nil => nilR A A' AR | cons a l => consR A A' AR a (map AR a) (map_in_R AR a (map AR a) idpath) l (map_list A A' AR l) (F l) end) l end.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Hierarchy