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


DEBUG:Going to execute:
<coq-core.plugins.ltac::auto@0> $1 $2 $3