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