Let primRecSigmaFormula (n : nat) (SigA SigB : Formula) : Formula :=
existH (S (S n))
(andH
(minimize (primRecSigmaFormulaHelp n SigA SigB)
(primRecPiFormulaHelp n SigA SigB) (S (S n))
(S (S (S (S n)))))
(substituteFormula LNN
(substituteFormula LNN betaFormula 2 (var (S (S n)))) 1
(var (S n)))).
Remark notBoundedForall :
forall (P : nat -> Prop) (b : nat),
(forall x : nat, decidable (P x)) ->
~ (forall n : nat, n < b -> P n) -> exists n : nat, n < b /\ ~ P n.

Lemma succ_plus_discr : forall n m : nat, n <> S (m + n).