let add_complete_behaviors_props config ki spec acc =
match spec.spec_complete_behaviors with [] -> acc
| l ->
let mk_prop acc bhv_names =
let id = WpPropId.mk_compl_bhv_id (config.kf, ki, bhv_names) in
if goal_to_select config id then
let prop = Ast_info.complete_behaviors spec bhv_names in
let labels = match ki with
| Kglobal -> NormAtLabels.labels_fct_pre
| Kstmt s -> NormAtLabels.labels_stmt_pre s
in WpStrategy.add_prop acc WpStrategy.Agoal labels id prop
else acc
in List.fold_left mk_prop acc l