let add_disjoint_behaviors_props config ki spec acc =
  match spec.spec_disjoint_behaviors with [] -> acc
    | l ->
        let add_disj acc bhv_names =
          let id = WpPropId.mk_disj_bhv_id (config.kf, ki, bhv_names) in
            if goal_to_select config id then
              begin
                let prop = Ast_info.disjoint_behaviors spec bhv_names in
                let labels = match ki with
                  | Kglobal -> NormAtLabels.labels_fct_pre
                  | Kstmt s -> NormAtLabels.labels_stmt_pre s
                in WpStrategy.add_prop acc WpStrategy.Agoal labels id prop
              end
            else acc
        in List.fold_left add_disj acc l