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

Lemma APP_right_Spec :
{ f & forall s1 s2 : term,
TripleT ≃≃([],[|Contains _ (compile s1);Contains _ (compile s2)|])
(f s1 s2) APP_right (fun _ => ≃≃([],[|Contains _ (compile (L.app s1 s2));Void|])) }.