let get_bhv_assumes spec l = 
  let rec get_assumes bhv_names = match bhv_names with [] -> []
    | bhv::tl -> 
        let l = match get_behav bhv spec.spec_behavior with 
          | None -> Wp_parameters.warning "no %s behavior !?!?" bhv;
                    get_assumes tl
          | Some b -> 
              let assumes = List.map Logic_const.pred_of_id_pred b.b_assumes in
              let assumes = Logic_const.pands assumes in
                assumes::(get_assumes tl)
        in l
  in get_assumes l