Goal:
    A : Type  m : tree' A  IHm : exists i : positive, get' i m <> None
  ============================
   (exists i : positive, get' i (Node001 m) <> None)


DEBUG:Going to execute:
destruct IHm as [p H]