fact: Definition declare_mind (params : MTele) (sigs : mlist (string *m (MTele_ConstT m:{ mt_ind &(MTele_ConstT S.Sort mt_ind)} params))) (constrs : mfold_right (fun '(m: _; ind) acc => MTele_val (curry_sort Typeₛ (fun a' => MTele_Ty (mprojT1 (apply_constT ind a')))) -> acc )%type ( ( MTele_val (curry_sort Typeₛ (fun a => mfold_right (fun '(m: _; ind) acc => mlist (string *m m:{mt_constr & MTele_ConstT (ArgsOf (mprojT1 (apply_constT ind a))) mt_constr}) *m acc )%type unit sigs ) ) ) ) sigs ) : t unit.
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)