let add_complet_behaviors_props config ki spec acc =
  match spec.spec_complete_behaviors with [] -> acc
    | l ->
        let mk_prop acc bhv_names =
          let id = (config.kf, ki, bhv_names) in
          let id = mk_compl_bhv_id id in
          let bhv_names = match bhv_names with
            | [] -> (* no names ==> all behaviors *)
                get_behavior_names ~with_default:false spec
            | _ -> bhv_names
          in
          let bhv_assumes = get_bhv_assumes spec bhv_names in
          let p = Logic_const.pors bhv_assumes in
            add_prop config acc Agoal (prepare_behaviors_spec ki id p)
        in
          List.fold_left mk_prop acc l