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