fact: Definition decompose_app'' : forall {S : forall T, T -> Type} {T : Type} (m : T), (forall A (B : A -> Type) (f : forall a, B a) (a : A), t (S _ (f a))) -> t (S T m).
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)