fact: Fixpoint apply_val {s : Sort} {m : MTele} : forall {T : MTele_Sort s m} (v : MTele_val T) (a : ArgsOf m), apply_sort T a := match m with | mBase => fun _ v _ => v | mTele f => fun _ v '(mexistT _ x U) => apply_val (App v x) U end.
imports: Mtac2(Sorts Specif)