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