---

Step * 1 13 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. hypnum : ℕ
8. hypnum < ||hyps||
9. let n,vars = dest-atomic(hyps[hypnum]) in
   if n =a "false" ∧b null(vars) then inl [] else inr ⋅  fi 
= (inl subgoals)
∈ (mFOL-sequent() List?)
⊢ FOL-sequent-evidence{i:l}(<hyps, concl>)
BY
{ (RepUR ``mFO-dest-atomic`` (-1)⋅ THEN (SplitOnHypITE -1  THEN Auto) THEN SplitOnHypITE -2  THEN Auto) }

1
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. hypnum : ℕ
8. hypnum < ||hyps||
9. [] = subgoals ∈ (mFOL-sequent() List)
10. ↑mFOatomic?(hyps[hypnum])
11. mFOatomic-name(hyps[hypnum]) = "false" ∈ Atom
12. mFOatomic-vars(hyps[hypnum]) = [] ∈ (ℤ List)
⊢ FOL-sequent-evidence{i:l}(<hyps, concl>)

---

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.  hypnum  :  \mBbbN{}
8.  hypnum  <  ||hyps||
9.  let  n,vars  =  dest-atomic(hyps[hypnum])  in
      if  n  =a  "false"  \mwedge{}\msubb{}  null(vars)  then  inl  []  else  inr  \mcdot{}    fi 
=  (inl  subgoals)
\mvdash{}  FOL-sequent-evidence\{i:l\}(<hyps,  concl>)


By

---

Latex:
(RepUR  ``mFO-dest-atomic``  (-1)\mcdot{}
  THEN  (SplitOnHypITE  -1    THEN  Auto)
  THEN  SplitOnHypITE  -2 
  THEN  Auto)

---

Home Index