fact: Fixpoint apply_const {s : Sort} {m : MTele} {T : s} : MTele_Const T m -> ArgsOf m -> T := match m with | mBase => fun t _ => t | mTele f => fun t '(mexistT _ x U) => apply_const (App t x) U end.
imports: Mtac2(Sorts Specif)