let get_bhv_assumes spec l =
let rec get_assumes bhv_names = match bhv_names with [] -> []
| bhv::tl ->
let l = match get_named_bhv bhv spec.spec_behavior with
| None -> Wp_parameters.warning "no %s behavior !?!?" bhv;
get_assumes tl
| Some b ->
(build_bhv_assumes b)::(get_assumes tl)
in l
in get_assumes l