fact: Definition trewrite_in {T} (d: RewriteDirection) (x: T) (args: mlist dyn) : tactic := \tactic g => ter <- compute_terminator args; let prefix := match d with LeftRewrite => "l"%string | RightRewrite => "r"%string end in let name := reduce RedNF (qualify ("in_"++prefix++"rewrite"++ter)) in T.ltac name (Dyn x :m: args) g.
imports: Mtac2(Base Tactics) ssrmatching.ssrmatching Strings.String Mtac2.lib.List