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