Definition App : term := .\"s","t"; .\"v","a","l"; "a" "s" "t".
Definition Lam : term := .\"s";     .\"v","a","l"; "l" "s".

Lemma N_correct n : N (enc n) ≡ tenc(enc n).
Definition Q := Eval cbn in rho ( .\"Q", "s"; "s"
(.\"n";     !Lam (!Lam (!Lam (!App !(tenc 2) (!N "n")))))
(.\"s","t"; !Lam (!Lam (!Lam (!App (!App !(tenc 1) ("Q" "s")) ("Q" "t")))))
(.\"s";     !Lam (!Lam (!Lam (!App !(tenc 0) ("Q" "s"))))) ).