Goal:
    A : Type  m : tree' A  p : positive  H : get' p m <> None
  ============================
   (get' (xI p) (Node001 m) <> None)


DEBUG:Going to execute:
auto
DEBUG LTAC Evaluated term: (xI p)