let disjoint_behaviors_props def_bhv spec =
match spec.spec_disjoint_behaviors with [] -> []
| l -> if def_bhv then
(Wp_parameters.warning
"ignored disjoint behaviors specifications :@.%a"
(Pretty_utils.pp_list (pp_bhv_names "disjoint behaviors ")) l;
[])
else (Wp_parameters.warning
"Disjoint behaviors properties is part of default behavior";
[])