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"