---

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


1. hyps : mFOL() List
2. concl : mFOL()
3. subgoals : mFOL-sequent() List
4. hypnum : ℕ
5. hypnum < ||hyps||
6. ↑mFOconnect?(hyps[hypnum])
7. mFOconnect-knd(hyps[hypnum]) = "or" ∈ Atom
8. mFOL-sequent-evidence(<[mFOconnect-left(hyps[hypnum]) / hyps], concl>)
9. mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum]) / hyps], concl>)
10. hyps[hypnum] = mFOconnect-left(hyps[hypnum]) ∨ mFOconnect-right(hyps[hypnum]) ∈ mFOL()
⊢ mFOL-sequent-evidence(<hyps, concl>)
BY
{ (D 0
   THEN Auto
   THEN (Assert Dom,S,a |= mFOL-sequent-abstract(<[mFOconnect-left(hyps[hypnum]) / hyps], concl>) BY
               (Auto
                THEN All (RepUR ``mFOL-sequent-evidence mFO-uniform-evidence``)
                THEN BackThruSomeHyp
                THEN Using [`B', ⌜mFOL-freevars(hyps[hypnum])⌝] (BLemma  `l_contains_transitivity`)⋅
                THEN EAuto 1))
   THEN Thin (-7)
   THEN RenameVar `f' (-1)
   THEN (Assert Dom,S,a |= mFOL-sequent-abstract(<[mFOconnect-right(hyps[hypnum]) / hyps], concl>) BY
               (Auto
                THEN All (RepUR ``mFOL-sequent-evidence mFO-uniform-evidence``)
                THEN BackThruSomeHyp
                THEN Using [`B', ⌜mFOL-freevars(hyps[hypnum])⌝] (BLemma  `l_contains_transitivity`)⋅
                THEN EAuto 1))
   THEN Thin (-7)
   THEN RenameVar `g' (-1)
   THEN All (Unfolds ``mFOL-sequent-abstract FOSatWith``)
   THEN All PrimReduce) }

1
1. hyps : mFOL() List
2. concl : mFOL()
3. subgoals : mFOL-sequent() List
4. hypnum : ℕ
5. hypnum < ||hyps||
6. ↑mFOconnect?(hyps[hypnum])
7. mFOconnect-knd(hyps[hypnum]) = "or" ∈ Atom
8. hyps[hypnum] = mFOconnect-left(hyps[hypnum]) ∨ mFOconnect-right(hyps[hypnum]) ∈ mFOL()
9. [Dom] : Type
10. [S] : FOStruct(Dom)
11. a : FOAssignment(mFOL-sequent-freevars(<hyps, concl>),Dom)
12. f : tuple-type(mFOL-hyps-meaning(Dom;S;a;[mFOconnect-left(hyps[hypnum]) / hyps])) ⟶ Dom,S,a |= mFOL-abstract(concl)
13. g : tuple-type(mFOL-hyps-meaning(Dom;S;a;[mFOconnect-right(hyps[hypnum]) / hyps]))
⟶ Dom,S,a |= mFOL-abstract(concl)
⊢ tuple-type(mFOL-hyps-meaning(Dom;S;a;hyps)) ⟶ Dom,S,a |= mFOL-abstract(concl)

---

Latex:

---

Latex:

1.  hyps  :  mFOL()  List
2.  concl  :  mFOL()
3.  subgoals  :  mFOL-sequent()  List
4.  hypnum  :  \mBbbN{}
5.  hypnum  <  ||hyps||
6.  \muparrow{}mFOconnect?(hyps[hypnum])
7.  mFOconnect-knd(hyps[hypnum])  =  "or"
8.  mFOL-sequent-evidence(<[mFOconnect-left(hyps[hypnum])  /  hyps],  concl>)
9.  mFOL-sequent-evidence(<[mFOconnect-right(hyps[hypnum])  /  hyps],  concl>)
10.  hyps[hypnum]  =  mFOconnect-left(hyps[hypnum])  \mvee{}  mFOconnect-right(hyps[hypnum])
\mvdash{}  mFOL-sequent-evidence(<hyps,  concl>)


By

---

Latex:
(D  0
  THEN  Auto
  THEN  (Assert  Dom,S,a  |=  mFOL-sequent-abstract(<[mFOconnect-left(hyps[hypnum])  /  hyps],  concl>)  BY
                          (Auto
                            THEN  All  (RepUR  ``mFOL-sequent-evidence  mFO-uniform-evidence``)
                            THEN  BackThruSomeHyp
                            THEN  Using  [`B',  \mkleeneopen{}mFOL-freevars(hyps[hypnum])\mkleeneclose{}]  (BLemma    `l\_contains\_transitivity`)\mcdot{}
                            THEN  EAuto  1))
  THEN  Thin  (-7)
  THEN  RenameVar  `f'  (-1)
  THEN  (Assert  Dom,S,a  |=  mFOL-sequent-abstract(<[mFOconnect-right(hyps[hypnum])  /  hyps],  concl>)  BY
                          (Auto
                            THEN  All  (RepUR  ``mFOL-sequent-evidence  mFO-uniform-evidence``)
                            THEN  BackThruSomeHyp
                            THEN  Using  [`B',  \mkleeneopen{}mFOL-freevars(hyps[hypnum])\mkleeneclose{}]  (BLemma    `l\_contains\_transitivity`)\mcdot{}
                            THEN  EAuto  1))
  THEN  Thin  (-7)
  THEN  RenameVar  `g'  (-1)
  THEN  All  (Unfolds  ``mFOL-sequent-abstract  FOSatWith``)
  THEN  All  PrimReduce)

---

Home Index