Definition Lt : term := .\ "m", "n"; !Leb (!Succ "m") "n".

Lemma Lt_correct n k : Lt (enc n) (enc k) ≡ benc (Nat.ltb n k).
Definition Bound := Eval cbn in
rho (.\ "d", "k", "t";
"t" (.\ "n"; !Lt "n" "k")
(.\ "s", "t"; ("d" "k" "s") ("d" "k" "t") !F)
(.\ "s"; "d" (!Succ "k") "s")).