---

Step * 1 1 1 1 of Lemma oal_dom_merge


1. a : LOSet@i'
2. b : AbDMon@i'
3. ps : |oal(a;b)|@i
4. qs : |oal(a;b)|@i
5. x : |a|@i
6. (¬↑(x ∈b dom(ps))) ∧ (¬↑(x ∈b dom(qs)))
⊢ ¬↑(x
∈b dom(ps ++ qs))
BY
{ % blow away mset stuff % 
RenameVar `u' 5 
THEN OnCls [0;6] (RepUnfolds ``oal_dom mk_mset mset_mem mem``) 
THEN OnCls [0;6] (Fold `bexists`) }

1
1. a : LOSet@i'
2. b : AbDMon@i'
3. ps : |oal(a;b)|@i
4. qs : |oal(a;b)|@i
5. u : |a|@i
6. (¬↑(∃bx(:|a|) ∈ map(λz.(fst(z));ps). (x (=b) u))) ∧ (¬↑(∃bx(:|a|) ∈ map(λz.(fst(z));qs). (x (=b) u)))
⊢ ¬↑(∃bx(:|a|) ∈ map(λz.(fst(z));ps ++ qs)
        (x (=b) u))

---

Latex:

---

Latex:

1.  a  :  LOSet@i'
2.  b  :  AbDMon@i'
3.  ps  :  |oal(a;b)|@i
4.  qs  :  |oal(a;b)|@i
5.  x  :  |a|@i
6.  (\mneg{}\muparrow{}(x  \mmember{}\msubb{}  dom(ps)))  \mwedge{}  (\mneg{}\muparrow{}(x  \mmember{}\msubb{}  dom(qs)))
\mvdash{}  \mneg{}\muparrow{}(x
\mmember{}\msubb{}  dom(ps  ++  qs))


By

---

Latex:
\%  blow  away  mset  stuff  \% 
RenameVar  `u'  5 
THEN  OnCls  [0;6]  (RepUnfolds  ``oal\_dom  mk\_mset  mset\_mem  mem``) 
THEN  OnCls  [0;6]  (Fold  `bexists`)

---

Home Index