Goal:
    A : Type  i : positive  x : A  m : tree' A
  ============================
   (get' i (set' i x m) = Some x)


DEBUG:Going to execute:
revert m; induction i; destruct m; simpl