let cast_loc_to_int ty l ty2 =
      match l with
        | Mloc l -> M.cast_loc_to_int ty l ty2
        | _ -> Wp_parameters.fatal "int of functional variable"