Definition codePA : nat -> bool :=
  orRel 1 (beq_nat (codeFormula PA6))
    (orRel 1 (beq_nat (codeFormula PA5))
       (orRel 1 (beq_nat (codeFormula PA4))
          (orRel 1 (beq_nat (codeFormula PA3))
             (orRel 1 (beq_nat (codeFormula PA2))
                (orRel 1 (beq_nat (codeFormula PA1)) codeInductionSchema))))).

(* Specifications: *)
Lemma codePAcorrect1 : forall f : Formula, codePA (codeFormula f) = true -> mem Formula PA f.
Lemma codePAcorrect2 : forall f : Formula, ~ mem Formula PA f -> codePA (codeFormula f) = false.
Lemma codePAcorrect3 : forall f : Formula, mem Formula PA f -> codePA (codeFormula f) = true.
Lemma codePAIsPR : isPRrel 1 codePA.