---

Step * 1 1 of Lemma eo-forward-forward


1. Info : Type
2. eo : EO+(Info)
3. e1 : E
4. e2 : E
5. e1 ≤loc e2 
6. x : es-base-E(eo)
⊢ ((es-dom(eo) x) ∧b (e1 ≤loc x ∨b(¬bloc(x) = loc(e1)))) ∧b (e2 ≤loc x ∨b(¬bloc(x) = loc(e2))) 
= (es-dom(eo) x) ∧b (e2 ≤loc x ∨b(¬bloc(x) = loc(e2)))
BY
{ (OldAutoBoolCase es-dom(eo) x ⋅
   THEN (Assert x ∈ E BY
               (MemTypeCD THEN Folds ``es-base-E es-dom`` 0 THEN Auto))
   THEN (RWO "eo-forward-loc" 0 THENA Auto)) }

1
1. Info : Type
2. eo : EO+(Info)
3. e1 : E
4. e2 : E
5. e1 ≤loc e2 
6. x : es-base-E(eo)
7. ↑(es-dom(eo) x)
8. x ∈ E
⊢ (e1 ≤loc x ∨b(¬bloc(x) = loc(e1))) ∧b (e2 ≤loc x ∨b(¬bloc(x) = loc(e2))) = e2 ≤loc x ∨b(¬bloc(x) = loc(e2))

---

Latex:



1.  Info  :  Type
2.  eo  :  EO+(Info)
3.  e1  :  E
4.  e2  :  E
5.  e1  \mleq{}loc  e2 
6.  x  :  es-base-E(eo)
\mvdash{}  ((es-dom(eo)  x)  \mwedge{}\msubb{}  (e1  \mleq{}loc  x  \mvee{}\msubb{}(\mneg{}\msubb{}loc(x)  =  loc(e1))))  \mwedge{}\msubb{}  (e2  \mleq{}loc  x  \mvee{}\msubb{}(\mneg{}\msubb{}loc(x)  =  loc(e2))) 
=  (es-dom(eo)  x)  \mwedge{}\msubb{}  (e2  \mleq{}loc  x  \mvee{}\msubb{}(\mneg{}\msubb{}loc(x)  =  loc(e2)))


By

(OldAutoBoolCase  es-dom(eo)  x  \mcdot{}
  THEN  (Assert  x  \mmember{}  E  BY
                          (MemTypeCD  THEN  Folds  ``es-base-E  es-dom``  0  THEN  Auto))
  THEN  (RWO  "eo-forward-loc"  0  THENA  Auto))

---

Home Index