fact: Definition listR_flipK (A A' : Type) (AR : A -> A' -> Type) : forall (l : list A) (l' : list A') (lR : listR A A' AR l l'), listR_flip A' A (sym_rel AR) l' l (listR_flip A A' AR l l' lR) = lR := fix F l l' lR := match lR with | nilR => idpath | consR a a' aR l l' lR => ap (fun lR => consR A A' AR a a' aR l l' lR) (F l l' lR) end.
imports: Coq(ssreflect) HoTT(HoTT) HoTT_additions Hierarchy