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