Goal:
    A : Type  a : A  m : tree' A  p : positive  H : get' p m <> None
  ============================
   (get' xH (Node011 a m) <> None)


DEBUG:Going to execute:
simpl
DEBUG LTAC Evaluated term: xH