fact: Definition R_in_map_list (A A' : Type) (AR : Param2b0.Rel A A') : forall (l : list A) (l' : list A'), listR A A' AR l l' -> map_list A A' AR l = l' := fix F l l' lR := match lR with | nilR => idpath | consR a a' aR l l' lR => match R_in_map AR a a' aR with | idpath => match F l l' lR with | idpath => idpath end end end.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Hierarchy