Section conv_output.
Variable Σ : finType.
Variable s b : Σ^+.
Variable (retr_pro : Retract sigPro Σ).
Variable (retr_list : Retract (sigList bool) Σ).
Definition M_out : pTM (Σ) ^+ unit 4 :=
EncToBoollist.M _ _ @ [|Fin0;Fin2;Fin3|];;
Boollist2encBoolsTM.M s b _ @ [|Fin2;Fin1;Fin3|].

Theorem M_out_SpecT bs:
{ k &
TripleT ≃≃([],[|Contains _ (compile (encBoolsL bs));Custom (eq niltape);Void;Void|])
k M_out
(fun _ => ≃≃([],
([|Custom (fun _ => True); Custom (eq (encBoolsTM s b bs)); Void;Void|])))}.