fact: Fixpoint flatten_forall_unapply_apply {t : Telescope} {struct t} : forall {P : flattenT t Type} (f : flatten_forall P), flatten_forall_eq (flatten_forall_eq_rect (flattenT_unapply_apply P) f) (flatten_forall_unapply (flatten_forall_apply f)) := match t return forall {P : flattenT t Type} (f : flatten_forall P), flatten_forall_eq (flatten_forall_eq_rect (flattenT_unapply_apply P) f) (flatten_forall_unapply (flatten_forall_apply f)) with | bottom => fun P f => eq_refl | tele A B => fun P f a => @flatten_forall_unapply_apply (B a) (P a) (f a) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Classes.RelationClasses Coq.Relations.Relation_Definitions Coq.Classes.Morphisms Fiat.Common.Equality Fiat.Common.Telescope.Core Fiat.Common.Telescope.Instances