open tactic

example : true :=
by do
   str ← to_expr ``(string),
   one ← to_expr ``(1),
   definev `H str one,
   constructor