Goal:
  
  A : Type
  m1 : tree' A
  m2 : tree' A
  IHm1 : exists i : positive, get' i m1 <> None
  IHm2 : exists i : positive, get' i m2 <> None
  ============================
   (exists i : positive, get' i (Node101 m1 m2) <> None)


DEBUG:Going to execute:
destruct IHm1 as [p H]; exists (xO p)