let mk_assign_post termination_kind (output, _) = 
  let out = match output with
    | Nothing -> Wp_parameters.fatal "Nothing as output in an assigns clause ?" 
    | Location {Cil_types.it_content=lv} -> lv
  in
    match termination_kind, out.term_node with
      | ExitsTLval (TResult _, _ )  -> None
      | NormalTLval (TVar{lv_name = "\\exit_status"},_) -> None
      | _, _ ->
          let linfos = get_pred_linfo out.term_type in
          let p = Logic_const.papp (linfos, [], [out]) in
            Some (Logic_const.new_predicate p)