fact: Definition remember {A} (x:A) (def eq : string) : tactic := cpose_base (TheName def) x (fun y:A=> cassert_base (TheName eq) (fun H: y = x =>lrewrite H) |1> reflexivity).
imports: Mtac2(Datatypes List Mtac2 ConstrSelector) Coq.Arith.Arith Coq.Arith.EqNat Strings.String