---

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

.....antecedent..... 
1. hyps : mFOL() List
2. concl : mFOL()
3. hypnum : ℕ
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. hyps[hypnum] = mFOconnect-left(hyps[hypnum]) ∧ mFOconnect-right(hyps[hypnum]) ∈ mFOL()
9. mFOL-freevars(mFOconnect-left(hyps[hypnum])) ⊆ mFOL-freevars(hyps[hypnum])
10. mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum]) / hyps], concl>)
⊢ mFOL-sequent-evidence(<hyps, mFOconnect-right(hyps[hypnum])>)
BY
{ (Using [`x', ⌜hyps[hypnum]⌝ ] (BLemma `better-mFOL-sequent-evidence_transitivity1`)⋅ THEN EAuto 1) }

1
1. hyps : mFOL() List
2. concl : mFOL()
3. hypnum : ℕ
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. hyps[hypnum] = mFOconnect-left(hyps[hypnum]) ∧ mFOconnect-right(hyps[hypnum]) ∈ mFOL()
9. mFOL-freevars(mFOconnect-left(hyps[hypnum])) ⊆ mFOL-freevars(hyps[hypnum])
10. mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum]) / hyps], concl>)
11. [Dom] : Type
12. [S] : FOStruct(Dom)
13. a : FOAssignment(mFOL-sequent-freevars(<hyps, mFOconnect-right(hyps[hypnum])>),Dom)
14. Dom,S,a |= mFOL-abstract(hyps[hypnum])
⊢ Dom,S,a |= mFOL-abstract(mFOconnect-right(hyps[hypnum]))

---

Latex:

---

Latex:
.....antecedent..... 
1.  hyps  :  mFOL()  List
2.  concl  :  mFOL()
3.  hypnum  :  \mBbbN{}
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.  hyps[hypnum]  =  mFOconnect-left(hyps[hypnum])  \mwedge{}  mFOconnect-right(hyps[hypnum])
9.  mFOL-freevars(mFOconnect-left(hyps[hypnum]))  \msubseteq{}  mFOL-freevars(hyps[hypnum])
10.  mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum])  /  hyps],  concl>)
\mvdash{}  mFOL-sequent-evidence(<hyps,  mFOconnect-right(hyps[hypnum])>)


By

---

Latex:
(Using  [`x',  \mkleeneopen{}hyps[hypnum]\mkleeneclose{}  ]  (BLemma  `better-mFOL-sequent-evidence\_transitivity1`)\mcdot{}  THEN  EAuto  1)

---

Home Index