---

Step * 1 8 2 1 1 of Lemma mFOL-proveable-evidence


1. hyps : mFOL() List@i
2. concl : mFOL()@i
3. hypnum : ℕ@i
4. hypnum < ||hyps||
5. ↑mFOconnect?(hyps[hypnum])
6. mFOconnect-knd(hyps[hypnum]) = "and" ∈ Atom
7. mFOL-sequent-evidence(<[mFOconnect-left(hyps[hypnum]); [mFOconnect-right(hyps[hypnum]) / hyps]], concl>)
8. mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum]) / hyps], concl>)
9. [Dom] : Type
10. [S] : FOStruct(Dom)
11. a : FOAssignment(Dom)@i
12. Dom,S,a |= mFOL-abstract(mFOconnect-left(hyps[hypnum]) ∧ mFOconnect-right(hyps[hypnum]))
⊢ Dom,S,a |= mFOL-abstract(mFOconnect-right(hyps[hypnum]))
BY
{ (RepUR ``mFOL-abstract`` (-1)
   THEN Fold `mFOL-abstract` (-1)
   THEN RepUR ``FOConnective FOSatWith let`` (-1)
   THEN All (Fold `FOSatWith`)
   THEN Auto)⋅ }

---

Latex:



1.  hyps  :  mFOL()  List@i
2.  concl  :  mFOL()@i
3.  hypnum  :  \mBbbN{}@i
4.  hypnum  <  ||hyps||
5.  \muparrow{}mFOconnect?(hyps[hypnum])
6.  mFOconnect-knd(hyps[hypnum])  =  "and"
7.  mFOL-sequent-evidence(<[mFOconnect-left(hyps[hypnum]);  [mFOconnect-right(hyps[hypnum])  /  hyps]]
                                                  ,  concl
                                                  >)
8.  mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum])  /  hyps],  concl>)
9.  [Dom]  :  Type
10.  [S]  :  FOStruct(Dom)
11.  a  :  FOAssignment(Dom)@i
12.  Dom,S,a  |=  mFOL-abstract(mFOconnect-left(hyps[hypnum])  \mwedge{}  mFOconnect-right(hyps[hypnum]))
\mvdash{}  Dom,S,a  |=  mFOL-abstract(mFOconnect-right(hyps[hypnum]))


By

(RepUR  ``mFOL-abstract``  (-1)
  THEN  Fold  `mFOL-abstract`  (-1)
  THEN  RepUR  ``FOConnective  FOSatWith  let``  (-1)
  THEN  All  (Fold  `FOSatWith`)
  THEN  Auto)\mcdot{}

---

Home Index