fact: Definition decompose_app {m : MTele} {A : Type} {B : A -> Type} {C : MTele_ConstT A m} {T: Type} (a : A) (t : T) : M (Unification -> MTele_sort (MTele_ConstMap (si:=Typeₛ) Propₛ (fun a : A => M (B a)) C) -> M (B a)) := ( '(mexistT _ m' T') <- MTele_of A T t; M.unify m m' UniCoq;; M.cumul UniCoq C t;; let x := fun u => @M.decompose_app' A B m u a C in M.ret x ).
imports: Mtac2(Base Datatypes List Sorts Specif MTele Tactics MFixDef MTeleMatchDef)