let pp_assign_info k fmt a = match a with
| NoAssignsInfo -> ()
| AssignsAny a ->
let pkind =
match a.a_kind with
| StmtAssigns -> ""
| LoopAssigns -> "loop"
in
Format.fprintf fmt "%s(@@%a): %s assigns everything@."
k Wp_error.pp_logic_label a.a_label pkind
| AssignsLocations (_,a) -> Format.fprintf fmt "%s(@@%a): %a@." k
Wp_error.pp_logic_label a.a_label
pp_assigns_desc a