let mk_shift_pointer term ty offset = Why_ops.M3.shift_offset term (Why_ops.cil_binop Mult Linteger offset (fol_ltype_sizeof ty))