---

Step * 2 2 of Lemma hdf-until-halt-right


1. A : Type
2. B : Type
3. u : A
4. v : A List
5. ∀X:hdataflow(A;B). ∀a:A.  (hdf-out(hdf-until(X;hdf-halt())*(v);a) = hdf-out(X*(v);a) ∈ bag(B))
6. X : hdataflow(A;B)@i
7. a : A@i
⊢ hdf-out(fst(hdf-until(X;hdf-halt())(u))*(v);a) = hdf-out(fst(X(u))*(v);a) ∈ bag(B)
BY
{ ((InstLemma `hdf-until-ap` [⌈A⌉;⌈B⌉;⌈Top⌉;⌈X⌉;⌈hdf-halt()⌉;⌈u⌉]⋅ THENA Auto)
   THEN HypSubst (-1) 0
   THEN Reduce 0
   THEN Auto)⋅ }

---

Latex:



1.  A  :  Type
2.  B  :  Type
3.  u  :  A
4.  v  :  A  List
5.  \mforall{}X:hdataflow(A;B).  \mforall{}a:A.    (hdf-out(hdf-until(X;hdf-halt())*(v);a)  =  hdf-out(X*(v);a))
6.  X  :  hdataflow(A;B)@i
7.  a  :  A@i
\mvdash{}  hdf-out(fst(hdf-until(X;hdf-halt())(u))*(v);a)  =  hdf-out(fst(X(u))*(v);a)


By

((InstLemma  `hdf-until-ap`  [\mkleeneopen{}A\mkleeneclose{};\mkleeneopen{}B\mkleeneclose{};\mkleeneopen{}Top\mkleeneclose{};\mkleeneopen{}X\mkleeneclose{};\mkleeneopen{}hdf-halt()\mkleeneclose{};\mkleeneopen{}u\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  HypSubst  (-1)  0
  THEN  Reduce  0
  THEN  Auto)\mcdot{}

---

Home Index