From Undecidability.L Require Import InterpreterResults.
(** ** Parallel or *)
Definition H (s t : term) : term := Eval cbv in (.\ "z"; !E "z" !s !(lambda T) (!E "z" !t !(lambda T) !F)).
Definition O : term := Eval cbv in .\ "x", "y";
(.\ "z"; !E "z" "x" !(lambda T) (!E "z" "y" !(lambda F) !I)) (!C !(H 2 1)).

Lemma H_rec s t n : (H (tenc s) (tenc t) (enc n) ≡ E (enc n) (tenc s) (lambda T) (E (enc n) (tenc t) (lambda T) F)).