Definition prim (f:nat -> value) : expr -> expr :=
Prim (val_to_exp oo f).

Lemma T_Update: forall G e1 tau e2 e3 sigma,
Typ G e1 (ty_ref tau) ->
Typ G e2 tau ->
Typ G e3 sigma ->
Typ G (Update e1 e2 e3) sigma.