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
    | ExitsTLval (TResult _, _ )  -> None
    | NormalTLval (TVar{lv_name = "\\exit_status"},_) -> None
    | _, _ ->
        build_elem_opt
          ~addrlab:Logic_const.old_label ~mlab:Logic_const.here_label out