---

Step * 2 1 1 3 of Lemma omral_bilinear


1. g : OCMon
2. a : CDRng
3. ps : |omral(g;a)|
4. qs : |omral(g;a)|
5. rs : |omral(g;a)|
6. u : |g|
7. x : |(g↓oset)|
8. ↑(x
∈b dom(ps))
9. x@0 : |(g↓oset)|
10. ↑(x@0
∈b (dom(qs) ⋃ dom(rs)) - dom(qs))
⊢ (when (x * x@0) =b u. ((ps[x]) * (qs[x@0]))) = e ∈ |a↓+gp|
BY
{ ((RWH (LemmaC `mset_mem_diff`) 10 
THENM RW bool_to_propC 10  
THENM Reduce 0 
THENM RWN 2 (LemmaC `lookup_omral_eq_zero`) 0 
THENM RW RngNormC 0 
THENM RWH (LemmaC `rng_when_of_zero`) 0) THEN Auto) }

---

Latex:

---

Latex:

1.  g  :  OCMon
2.  a  :  CDRng
3.  ps  :  |omral(g;a)|
4.  qs  :  |omral(g;a)|
5.  rs  :  |omral(g;a)|
6.  u  :  |g|
7.  x  :  |(g\mdownarrow{}oset)|
8.  \muparrow{}(x
\mmember{}\msubb{}  dom(ps))
9.  x@0  :  |(g\mdownarrow{}oset)|
10.  \muparrow{}(x@0
\mmember{}\msubb{}  (dom(qs)  \mcup{}  dom(rs))  -  dom(qs))
\mvdash{}  (when  (x  *  x@0)  =\msubb{}  u.  ((ps[x])  *  (qs[x@0])))  =  e


By

---

Latex:
((RWH  (LemmaC  `mset\_mem\_diff`)  10 
THENM  RW  bool\_to\_propC  10   
THENM  Reduce  0 
THENM  RWN  2  (LemmaC  `lookup\_omral\_eq\_zero`)  0 
THENM  RW  RngNormC  0 
THENM  RWH  (LemmaC  `rng\_when\_of\_zero`)  0)  THEN  Auto)

---

Home Index