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


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