fact: Definition apply_C {s : Sort} (so : Sort) {n : MTele} {G : s -> so} {T : MTele_Sort s n} : MTele_val (MTele_C _ so G T) -> forall a : ArgsOf n, G (apply_sort T a) := apply_ConstMap.
imports: Mtac2(Sorts Specif)