Definition checkPrf (f p : nat) : nat :=
  switchPR (wellFormedFormula f) (checkPrfHelp (cPair f p)) 0.

Lemma checkPrfCorrect1 : forall (l : list Formula) (f : Formula) (p : Prf l f), checkPrf (codeFormula L codeF codeR f) (codePrf L codeF codeR l f p) = S (codeList (map (codeFormula L codeF codeR) l)).