fact: Definition testprog := mind_test (fun I2 T k => (m: [m: (m: "c1"%string, mexistT _ (mTele (fun t : T => mBase)) (S.Fun (sort:=Typeₛ) (fun t => ((mexistT _ eq_refl tt)))) ) ]; tt) ).
imports: Mtac2(Mtac2 Sorts MTele Specif) Strings.String