fact: Fixpoint flattenT_apply {t : Telescope} {X : Type} : flattenT t X -> flattenT_sig t -> X := match t return flattenT t X -> flattenT_sig t -> X with | bottom => fun x _ => x | tele A B => fun f p => flattenT_apply (f (projT1 p)) (projT2 p) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Relations.Relation_Definitions Coq.Classes.Morphisms