---

Step * 1 4 of Lemma loop-class-memory-program_wf


1. Info : Type
2. B : Type
3. valueall-type(B)
4. X : EClass(B ─→ B)
5. init : Id ─→ bag(B)
6. pr : Id ─→ hdataflow(Info;B ─→ B)
7. ∀es:EO+(Info). ∀e:E.  (X(e) = (snd(pr loc(e)*(map(λx.info(x);before(e)))(info(e)))) ∈ bag(B ─→ B))
8. es : EO+(Info)@i'
9. e : E@i
10. ∀e1:E
      ((e1 < e)
      ⇒ (hdf-memory(pr loc(e1);init loc(e1))*(map(λx.info(x);before(e1)))
         = hdf-memory(pr loc(e1)*(map(λx.info(x);before(e1)));loop-class-memory(X;init)(e1))
         ∈ hdataflow(Info;B)))
11. ¬↑first(e)
12. ¬↑pred(e) ∈b X
13. ¬↑first(e)
14. hdf-memory(pr loc(e);init loc(e))*(map(λx.info(x);before(pred(e))))
= hdf-memory(pr loc(e)*(map(λx.info(x);before(pred(e))));loop-class-memory(X;init)(pred(e)))
∈ hdataflow(Info;B)
15. v1 : bag(B)@i
16. loop-class-memory(X;init)(pred(e)) = v1 ∈ bag(B)@i
17. y : Unit@i
⊢ (pr loc(pred(e))*(map(λx.info(x);before(pred(e)))) = (inr y ) ∈ hdataflow(Info;B ─→ B))
⇒ ((fst(let s1,b = let s' ←─ v1
                    in <<inr ⋅ , s'>, v1> 
         in <mk-hdf(Xbs,a.let X,s = Xbs 
                          in let X',fs = case X of inl(P) => P a | inr(z) => <inr ⋅ , {}> 
                             in let b ←─ ∪f∈fs.bag-map(f;s)
                                in let s' ←─ if bag-null(b) then s else b fi 
                                   in <<X', s'>, s>;s.ff;s1)
            , b
            >))
   = hdf-memory(inr ⋅ ;v1)
   ∈ hdataflow(Info;B))
BY
{ (DVar `y'
   THEN Fold `it` 0
   THEN ThinVar `y'
   THEN Reduce 0
   THEN (CallByValueReduceOn ⌈v1⌉ 0⋅ THENA MaAuto)
   THEN Reduce 0
   THEN Fold `hdf-ap` 0
   THEN Fold `hdf-memory` 0
   THEN Auto
   THEN Fold `hdf-halt` 0
   THEN Auto)⋅ }

---

Latex:

---

Latex:

1.  Info  :  Type
2.  B  :  Type
3.  valueall-type(B)
4.  X  :  EClass(B  {}\mrightarrow{}  B)
5.  init  :  Id  {}\mrightarrow{}  bag(B)
6.  pr  :  Id  {}\mrightarrow{}  hdataflow(Info;B  {}\mrightarrow{}  B)
7.  \mforall{}es:EO+(Info).  \mforall{}e:E.    (X(e)  =  (snd(pr  loc(e)*(map(\mlambda{}x.info(x);before(e)))(info(e)))))
8.  es  :  EO+(Info)@i'
9.  e  :  E@i
10.  \mforall{}e1:E
            ((e1  <  e)
            {}\mRightarrow{}  (hdf-memory(pr  loc(e1);init  loc(e1))*(map(\mlambda{}x.info(x);before(e1)))
                  =  hdf-memory(pr  loc(e1)*(map(\mlambda{}x.info(x);before(e1)));loop-class-memory(X;init)(e1))))
11.  \mneg{}\muparrow{}first(e)
12.  \mneg{}\muparrow{}pred(e)  \mmember{}\msubb{}  X
13.  \mneg{}\muparrow{}first(e)
14.  hdf-memory(pr  loc(e);init  loc(e))*(map(\mlambda{}x.info(x);before(pred(e))))
=  hdf-memory(pr  loc(e)*(map(\mlambda{}x.info(x);before(pred(e))));loop-class-memory(X;init)(pred(e)))
15.  v1  :  bag(B)@i
16.  loop-class-memory(X;init)(pred(e))  =  v1@i
17.  y  :  Unit@i
\mvdash{}  (pr  loc(pred(e))*(map(\mlambda{}x.info(x);before(pred(e))))  =  (inr  y  ))
{}\mRightarrow{}  ((fst(let  s1,b  =  let  s'  \mleftarrow{}{}  v1
                                        in  <<inr  \mcdot{}  ,  s'>,  v1> 
                  in  <mk-hdf(Xbs,a.let  X,s  =  Xbs 
                                                    in  let  X',fs  =  case  X  of  inl(P)  =>  P  a  |  inr(z)  =>  <inr  \mcdot{}  ,  \{\}> 
                                                          in  let  b  \mleftarrow{}{}  \mcup{}f\mmember{}fs.bag-map(f;s)
                                                                in  let  s'  \mleftarrow{}{}  if  bag-null(b)  then  s  else  b  fi 
                                                                      in  <<X',  s'>,  s>s.ff;s1)
                        ,  b
                        >))
      =  hdf-memory(inr  \mcdot{}  ;v1))


By

---

Latex:
(DVar  `y'
  THEN  Fold  `it`  0
  THEN  ThinVar  `y'
  THEN  Reduce  0
  THEN  (CallByValueReduceOn  \mkleeneopen{}v1\mkleeneclose{}  0\mcdot{}  THENA  MaAuto)
  THEN  Reduce  0
  THEN  Fold  `hdf-ap`  0
  THEN  Fold  `hdf-memory`  0
  THEN  Auto
  THEN  Fold  `hdf-halt`  0
  THEN  Auto)\mcdot{}

---

Home Index