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";
            [])