---

Step * 1 1 1 1 1 of Lemma assert_of_oal_blt


1. s : LOSet
2. g : OGrp
3. ps : |oal(s;g)|
4. qs : |oal(s;g)|
5. --ps ∈ |oal(s;g)|
6. qs ++ (--ps) ∈ |oal(s;g)|
7. ¬((qs ++ (--ps)) = 00 ∈ |oal(s;g)|)
8. ↑(e <b lv(qs ++ (--ps)))
9. k' : |s|
10. lk(qs ++ (--ps)) <s k'
⊢ e = ((qs[k']) * (~ (ps[k']))) ∈ |g|
BY
{ (((RWW "lookup_merge< lookup_oal_neg<" 0) THENA Auto) THEN Try ((BLemma `ocgrp_abdgrp` THEN Auto))) }

1
1. s : LOSet
2. g : OGrp
3. ps : |oal(s;g)|
4. qs : |oal(s;g)|
5. --ps ∈ |oal(s;g)|
6. qs ++ (--ps) ∈ |oal(s;g)|
7. ¬((qs ++ (--ps)) = 00 ∈ |oal(s;g)|)
8. ↑(e <b lv(qs ++ (--ps)))
9. k' : |s|
10. lk(qs ++ (--ps)) <s k'
⊢ e = ((qs ++ (--ps))[k']) ∈ |g|

---

Latex:

---

Latex:

1.  s  :  LOSet
2.  g  :  OGrp
3.  ps  :  |oal(s;g)|
4.  qs  :  |oal(s;g)|
5.  --ps  \mmember{}  |oal(s;g)|
6.  qs  ++  (--ps)  \mmember{}  |oal(s;g)|
7.  \mneg{}((qs  ++  (--ps))  =  00)
8.  \muparrow{}(e  <\msubb{}  lv(qs  ++  (--ps)))
9.  k'  :  |s|
10.  lk(qs  ++  (--ps))  <s  k'
\mvdash{}  e  =  ((qs[k'])  *  (\msim{}  (ps[k'])))


By

---

Latex:
(((RWW  "lookup\_merge<  lookup\_oal\_neg<"  0)  THENA  Auto)  THEN  Try  ((BLemma  `ocgrp\_abdgrp`  THEN  Auto)))

---

Home Index