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