Section G_reduce.
End G_reduce.
Definition Grel m p G :=
lambda lambda (ren (add 2) G) (⟨ enc p A, enc m B⟩ ::: Nil) A B ≡
lambda lambda ⟨ A, B ⟩ ::: (ren (add 2) G) Nil (enc n A) (Succ B).

Lemma G_forward m: Grel m (m * n) (T m).