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)