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