let complet_behaviors_props def_bhv spec =
match spec.spec_complete_behaviors with [] -> []
| l ->
if def_bhv then
let mk_prop acc bhv_names =
let bhv_assumes = get_bhv_assumes spec bhv_names in
let p = Logic_const.pors bhv_assumes in
let acc = add_behaviors_spec "complete" p acc in
acc
in List.fold_left mk_prop [] l
else (Wp_parameters.warning
"Complete behaviors properties is part of default behavior";
[])