Section APP_right.
Definition APP_right : pTM (sigPro)^+ unit 2 :=
App _;;
WriteValue ( [appT]%list) @ [|Fin1|];;
App _.
End APP_right.
Fixpoint MK_isVoid_multi m' : pTM (Σ) ^+ unit m' :=
match m' with
0 => Nop
| S m' => MK_isVoid @ [|Fin0|];;MK_isVoid_multi m'@(tabulate (fun i => Fin.FS i))
end.
Instance Proper_tabulate X n: Proper (pointwise_relation _ eq ==> eq) (@tabulate X n).

Theorem MK_isVoid_multi_SpecT m' :
TripleT ≃≃([],Vector.const (Custom (eq niltape)) m')
(m'*2) (MK_isVoid_multi m')
(fun _ => ≃≃([],Vector.const Void m')).