fact: Definition RepresentsInSelf (T:System) := exists rep:Formula, exists v:nat, (forall x : nat, In x (freeVarF rep) -> x = v) /\ (forall f : Formula, mem Formula T f -> SysPrf T (substF rep v (natToTerm (codeFormula f)))) /\ (forall f : Formula, ~ mem Formula T f -> SysPrf T (notH (substF rep v (natToTerm (codeFormula f))))).
imports: Coq(Ensembles) Coq(List) Coq(Arith Lia) hydras.Ackermann(folProp) hydras.Ackermann(folProof) hydras.Ackermann(folReplace) hydras.Ackermann(folLogic3) hydras.Ackermann(subProp) hydras.Ackermann(ListExt) Goedel(fixPoint) Goedel(codeSysPrf) hydras.Ackermann(NNtheory) hydras.Ackermann(code) Goedel(PRrepresentable) hydras.Ackermann(expressible) hydras.Ackermann(checkPrf) hydras.Ackermann(codeNatToTerm) hydras(Compat815)