let rec e_access r k =
    match r with
      | Tupdate(_,k0,v0) when simpl () && equal k k0 -> v0
      | Tupdate(r0,k0,_) when simpl () && different k k0 -> e_access r0 k
      | _ -> Taccess(r,k)