fact: Fixpoint flatten_forall_apply_unapply {t : Telescope} {struct t} : forall {P : flattenT_sig t -> Type} (f : forall x, P x) (x : flattenT_sig t), eq_rect _ (fun Px => Px) (f x) _ (flattenT_apply_unapply P x) = flatten_forall_apply (flatten_forall_unapply f) x.
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