let cast_loc_to_loc t1 t2 = function
    | Mloc l -> Mloc (M.cast_loc_to_loc t1 t2 l)
    | Path _ ->
        Wp_parameters.not_yet_implemented
          "Cast of over a hoare-variable (try -wp-nofunvar)"