fact: Definition doTT {A:Prop} (x:A) := s <- pretty_print x; let s := match String.get 0 s with | Some "@"%char => String.substring 1 (String.length s -1) s | _ => s end ++ "T" in print s;; do_def s x.
imports: Mtac2(Base Datatypes List MTele MTeleMatch MTeleMatchDef MFixDef Sorts tactics.Tactics) Strings.String