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)"