let get_fct_post config tkind spec =
  match get_behav config Kglobal spec.spec_behavior with
    | None -> empty_acc
    | Some b ->
        let assumes = build_bhv_assumes b in
        let add acc (tk, p) = match tkind, tk with
          | NormalNormal ->
              add_prop config acc Agoal
                (prepare_fct_post config b Normal assumes p)
          | ExitsExits ->
              add_prop config acc Agoal
                (prepare_fct_post config b Exits assumes p)
          | Normal, (Breaks|Continues|Returns->
              (Wp_parameters.warning
                 "Local abrupt terminaison property in function spec ignored :@, %a"
                 Cil.defaultCilPrinter#pPost_cond (tk,p);
               acc)
          | _ -> acc
        in
          List.fold_left add empty_acc b.b_post_cond