---

Step * 1 1 of Lemma lookup_oal_cons

.....truecase..... 
1. a : LOSet
2. b : OCMon
3. k : |a|
4. kp : |a|
5. vp : |b|
6. ps : |oal(a;b)|
7. ↑before(kp;map(λz.(fst(z));ps))
8. kp = k ∈ |a|
⊢ vp = (vp * (ps[k])) ∈ |b|
BY
{ (((RWH (RevHypC 8) 0 
   THENM RWH (LemmaC `lookup_before_start`) 0 
   THENM RW GrpNormC 0) THEN Auto)
   THEN BLemma `omon_inc`
   THEN Auto) }

---

Latex:

---

Latex:
.....truecase..... 
1.  a  :  LOSet
2.  b  :  OCMon
3.  k  :  |a|
4.  kp  :  |a|
5.  vp  :  |b|
6.  ps  :  |oal(a;b)|
7.  \muparrow{}before(kp;map(\mlambda{}z.(fst(z));ps))
8.  kp  =  k
\mvdash{}  vp  =  (vp  *  (ps[k]))


By

---

Latex:
(((RWH  (RevHypC  8)  0 
  THENM  RWH  (LemmaC  `lookup\_before\_start`)  0 
  THENM  RW  GrpNormC  0)  THEN  Auto)
  THEN  BLemma  `omon\_inc`
  THEN  Auto)

---

Home Index