let add_prop_stmt_spec_pre acc kind kf s spec =
  let add_bhv_pre acc bhv =
    add_prop_stmt_bhv_requires acc kind kf s bhv ~with_assumes:true
  in List.fold_left add_bhv_pre acc spec.spec_behavior