let add_stmt_spec_precond_as_hyp config s spec acc =
  let add_bhv_pre acc b =
    let assumes = build_bhv_assumes b in
    let add acc pre =
      let p = Logic_const.pred_of_id_pred pre in
      let p = Logic_const.pimplies (assumes, p) in
        add_prop config acc Ahyp (prepare_pre_pred config (Kstmt s) b pre p)
    in List.fold_left add acc b.b_requires
  in List.fold_left add_bhv_pre acc spec.spec_behavior