Section hoas. Import HOAS_Notations.
Definition Por :term := Eval simpl in (λ s t , (λ n0,  !!(ext doesHaltIn) s n0 ) (!!mu (λ n ,!!(ext orb) (!!(ext doesHaltIn) s n) (!!(ext doesHaltIn) t n)))) .
End hoas.
Hint Resolve Por_proc : LProc.

Lemma Por_correct_2 (s t:term) : converges (Por (ext s) (ext t)) ->
exists (b:bool), Por (ext s) (ext t) == ext b.