let build_post_output termination_kind output =
let out = output.it_content in
let out = match out.term_node with (* remove \at(\result,Post) *)
| Tat ({term_node=(TLval(TResult _,_) as tr)}, LogicLabel (_, "Post")) ->
Logic_const.term tr out.term_type
| _ -> out
in
match termination_kind, out.term_node with
| Exits, TLval (TResult _, _ ) -> None
| Normal, TLval (TVar{lv_name = "\\exit_status"},_) -> None
| _, _ ->
build_elem_opt
~addrlab:Logic_const.old_label ~mlab:Logic_const.here_label out