let mk_index_update  e i x = Fol.Tdata (E0mu (e, WpFol.Pidx i, x))