Local Notation "P // s ~~> t" := (sss_output (@bsm_sss _) P s t).
Local Notation "P // s ↓" := (sss_terminates (@bsm_sss _) P s).
Section iBPCP_BSM_HALTING.
Let f (lt : list (card bool)) : BSM_PROBLEM.

(* Specifications: *)
Theorem iBPCP_BSM_HALTING : iBPCP ⪯ BSM_HALTING.
End iBPCP_BSM_HALTING.