Definition codeArityLNTR (r : nat) := 0.

(* Specifications: *)
Lemma codeArityLNTRIsPR : isPR 1 codeArityLNTR.
Lemma codeArityLNTRIsCorrect1 : forall r : Relations LNT, codeArityLNTR (codeLNTRelation r) = S (arity LNT (inl _ r)).
Lemma codeArityLNTRIsCorrect2 : forall n : nat, codeArityLNTR n <> 0 -> exists r : Relations LNT, codeLNTRelation r = n.