fact: Fixpoint intros_simpl (l : list string) : tactic := match l with | nil => idtac | n :: l => bind (intro_simpl (TheName n)) (fun _ => intros_simpl l) end%list.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef