fact: Definition names_of_hyp : t (mlist string) := env <- hyps; mfold_left (fun (ns : t (mlist string)) '(ahyp var _) => fmap mcons (get_binder_name var) <*> ns) env (ret [m:]).
imports: Strings.String NArith.BinNat Mtac2(Logic Datatypes Logic List Utils MTele Pattern Specif)