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.