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.

Lemma helper n m i f:
injective f ->
lookup_index_vector (m:=m) (n:=n)
(tabulate f)
(f i) = Some i.