fact: Fixpoint flatten_forall_eq_relation {t : Telescope} : forall {P : flattenT t Type}, relation (flatten_forall P) := match t return forall {P : flattenT t _}, relation (flatten_forall P) with | bottom => fun P => eq | tele A B => fun P => forall_relation (fun a : A => @flatten_forall_eq_relation (B a) (P a)) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Relations.Relation_Definitions Coq.Classes.Morphisms