fact: Definition destruct {A : Type} (n : A) : tactic := mif M.is_var n then T.destruct n else cvariabilize_base false n (FreshFromStr "dn") (fun x=>T.destruct x).
imports: Mtac2(Base Tactics ImportedTactics Datatypes List Logic Abstract Sorts) Strings.String