fact: Fixpoint MTele_constmap_app {si : Sort} (so : Sort) {n : MTele} {T : si} {A : Type} (G : T -> A -> so) {struct n} : forall (C : MTele_Const T n), MTele_sort (@MTele_ConstMap si so n T ((fun x => ForAll (fun a => G x a))) C) -> forall a : A, MTele_sort (@MTele_ConstMap si so n T (fun x => G x a) C) := match n with | mBase => fun C f a => App f a | mTele F => fun C f a t => MTele_constmap_app _ _ _ (f _) a end.
imports: Mtac2(Sorts Specif)