Section APP_right.
Definition APP_right : pTM (sigPro)^+ unit 2 :=
App _;;
WriteValue ( [appT]%list) @ [|Fin1|];;
App _.
End APP_right.

Lemma MK_isVoid_Spec :
TripleT ≃≃([],[|Custom (eq niltape)|]) 1 MK_isVoid (fun _ => ≃≃([],[|Void|])).