Goal:
  
  A : Type
  i : positive
  IHi : forall (j : positive) (x : A) (m : tree A),
        i <> j -> get i (set j x m) = get i m
  x : A
  H : xO i <> xH
  ============================
   (get (xO i) (set xH x Empty) = get (xO i) Empty)


DEBUG:Going to execute:
rewrite set_Empty
DEBUG LTAC Evaluated term: set_Node
DEBUG LTAC Evaluated term: set_Node