let add_stmt_spec_post_as_hyp config v s spec acc =
let l_post = Cil2cfg.get_post_logic_label config.cfg v in
let add_bhv_post acc b =
let assumes = Some (Ast_info.behavior_assumes b) in
let add tk acc p =
WpStrategy.add_prop_stmt_post acc WpStrategy.Ahyp config.kf
s b tk l_post ~assumes p
in
let p_acc, e_acc =
WpStrategy.fold_bhv_post_cond ~warn:false (add Normal) (add Exits) acc b
in let p_acc =
WpStrategy.add_stmt_spec_assigns_hyp p_acc config.kf s l_post spec in
p_acc, e_acc
in List.fold_left add_bhv_post acc spec.spec_behavior