fact: Fixpoint MTele_c (s so : Sort) {n : MTele} : forall (G : s -> so) (g : ForAll G) (T : MTele_Sort s n), MTele_val T -> MTele_val (MTele_C _ _ G T) := match n with | mBase => fun G g T v => App g _ | mTele F => fun G g T v => Fun (fun x => MTele_c s so G g (T x) (App v x)) end.
imports: Mtac2(Sorts Specif)