let mk_field_update  e f x = Fol.Tdata (E0mu (e, WpFol.Pfield f, x))