---

Step * 1 3 1 of Lemma FOL-proveable-evidence


1. hyps : mFOL() List
2. concl : mFOL()
3. subgoals : mFOL-sequent() List
4. subproofs : ℕ||subgoals|| ⟶ proof-tree(mFOL-sequent();FOLRule();λsr.FOLeffect(sr))
5. ∀b:ℕ||subgoals||. ∀s:mFOL-sequent().
     (correct_proof(mFOL-sequent();λsr.FOLeffect(sr);s;subproofs b) ⇒ FOL-sequent-evidence{i:l}(s))
6. ∀i:ℕ||subgoals||. correct_proof(mFOL-sequent();λsr.FOLeffect(sr);subgoals[i];subproofs i)
7. var : ℤ
8. ¬(var ∈ mFOL-sequent-freevars(<hyps, concl>))
9. ↑mFOquant?(concl)
10. mFOquant-isall(concl) = tt
11. FOL-sequent-evidence{i:l}(<hyps, mFOquant-body(concl)[var/mFOquant-var(concl)]>)
⊢ FOL-sequent-evidence{i:l}(<hyps, concl>)
BY
{ ((Assert concl = ∀mFOquant-var(concl);mFOquant-body(concl)) ∈ mFOL() BY
          (MoveToConcl 2
           THEN BLemmaUp `mFOL-induction`
           THEN Reduce 0
           THEN Auto
           THEN Try ((Fold `AbstractFOFormula+` 0 THEN Auto))
           THEN Unfold `mFOL-sequent` 0
           THEN Auto))⋅
   THEN ((RWO "not-member-mFOL-sequent-freevars" (-5) THENA Auto)
         THEN Reduce (-5)
         THEN D -5
         THEN (HypSubst' -1 0 THENA Auto)
         THEN (HypSubst (-1) (-6) THENA Auto)
         THEN MoveToConcl (-6)
         THEN MoveToConcl (-2)
         THEN GenConclAtAddr [1;1;2;3]
         THEN Thin (-1)
         THEN RenameVar `body' (-1)
         THEN GenConclAtAddr [1;1;2;2]
         THEN Thin (-1)
         THEN RenameVar `x' (-1)
         THEN Auto
         THEN ThinVar `concl'
         THEN ThinVar `subproofs'
         THEN ThinVar `subgoals')⋅
   ) }

1
1. hyps : mFOL() List
2. var : ℤ
3. (∀h∈hyps.¬(var ∈ mFOL-freevars(h)))
4. body : mFOL()
5. x : ℤ
6. FOL-sequent-evidence{i:l}(<hyps, body[var/x]>)
7. ¬(var ∈ mFOL-freevars(∀x;body)))
⊢ FOL-sequent-evidence{i:l}(<hyps, ∀x;body)>)

---

Latex:

---

Latex:

1.  hyps  :  mFOL()  List
2.  concl  :  mFOL()
3.  subgoals  :  mFOL-sequent()  List
4.  subproofs  :  \mBbbN{}||subgoals||  {}\mrightarrow{}  proof-tree(mFOL-sequent();FOLRule();\mlambda{}sr.FOLeffect(sr))
5.  \mforall{}b:\mBbbN{}||subgoals||.  \mforall{}s:mFOL-sequent().
          (correct\_proof(mFOL-sequent();\mlambda{}sr.FOLeffect(sr);s;subproofs  b)  {}\mRightarrow{}  FOL-sequent-evidence\{i:l\}(s))
6.  \mforall{}i:\mBbbN{}||subgoals||.  correct\_proof(mFOL-sequent();\mlambda{}sr.FOLeffect(sr);subgoals[i];subproofs  i)
7.  var  :  \mBbbZ{}
8.  \mneg{}(var  \mmember{}  mFOL-sequent-freevars(<hyps,  concl>))
9.  \muparrow{}mFOquant?(concl)
10.  mFOquant-isall(concl)  =  tt
11.  FOL-sequent-evidence\{i:l\}(<hyps,  mFOquant-body(concl)[var/mFOquant-var(concl)]>)
\mvdash{}  FOL-sequent-evidence\{i:l\}(<hyps,  concl>)


By

---

Latex:
((Assert  concl  =  \mforall{}mFOquant-var(concl);mFOquant-body(concl))  BY
                (MoveToConcl  2
                  THEN  BLemmaUp  `mFOL-induction`
                  THEN  Reduce  0
                  THEN  Auto
                  THEN  Try  ((Fold  `AbstractFOFormula+`  0  THEN  Auto))
                  THEN  Unfold  `mFOL-sequent`  0
                  THEN  Auto))\mcdot{}
  THEN  ((RWO  "not-member-mFOL-sequent-freevars"  (-5)  THENA  Auto)
              THEN  Reduce  (-5)
              THEN  D  -5
              THEN  (HypSubst'  -1  0  THENA  Auto)
              THEN  (HypSubst  (-1)  (-6)  THENA  Auto)
              THEN  MoveToConcl  (-6)
              THEN  MoveToConcl  (-2)
              THEN  GenConclAtAddr  [1;1;2;3]
              THEN  Thin  (-1)
              THEN  RenameVar  `body'  (-1)
              THEN  GenConclAtAddr  [1;1;2;2]
              THEN  Thin  (-1)
              THEN  RenameVar  `x'  (-1)
              THEN  Auto
              THEN  ThinVar  `concl'
              THEN  ThinVar  `subproofs'
              THEN  ThinVar  `subgoals')\mcdot{}
  )

---

Home Index