Definition FYA (x n : nat) := n + S (enumerate YA x).

(* Specifications: *)
Lemma increasing_FYA : forall x : nat, increasing (FYA x).
Lemma enumerate_YA : full A YA -> forall x : nat, A (enumerate YA x).
Lemma YB_enumerate_YA : full B YB -> B (enumerate YA (YB (enumerate YA))).
Lemma pre_Ramsey1 : full A YA -> full B YB -> A (enumerate YA (YB (enumerate YA))) /\ B (enumerate YA (YB (enumerate YA))).