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