---

Step * of Lemma simple-cbva-seq-extend

∀[F,G,L:Top]. ∀[m:ℕ+].
  (simple-cbva-seq(L;λout.let x ⟵ F[out]
                          in G[x];m) ~ simple-cbva-seq(λn.if (n =z m) then mk_lambdas(F;m - 1) else L n fi ;G;m + 1))
BY
{ xxx((xxxxxxUnivCDxxxxxx THENA Auto)
      THEN RepUR ``simple-cbva-seq cbva-seq`` 0
      THEN AutoSplit
      THEN (Subst ⌜(m + 1) - 1 ~ m⌝ 0⋅ THENA Auto)
      THEN xxx(InstLemma `callbyvalueall-seq-extend0` [⌜F⌝;⌜G⌝;⌜L⌝;⌜m⌝]⋅ THEN Auto)xxx)xxx }

---

Latex:

---

Latex:
\mforall{}[F,G,L:Top].  \mforall{}[m:\mBbbN{}\msupplus{}].
    (simple-cbva-seq(L;\mlambda{}out.let  x  \mleftarrow{}{}  F[out]
                                                    in  G[x];m)  \msim{}  simple-cbva-seq(\mlambda{}n.if  (n  =\msubz{}  m)
                                                                                                                    then  mk\_lambdas(F;m  -  1)
                                                                                                                    else  L  n
                                                                                                                    fi  ;G;m  +  1))


By

---

Latex:
xxx((xxxxxxUnivCDxxxxxx  THENA  Auto)
        THEN  RepUR  ``simple-cbva-seq  cbva-seq``  0
        THEN  AutoSplit
        THEN  (Subst  \mkleeneopen{}(m  +  1)  -  1  \msim{}  m\mkleeneclose{}  0\mcdot{}  THENA  Auto)
        THEN  xxx(InstLemma  `callbyvalueall-seq-extend0`  [\mkleeneopen{}F\mkleeneclose{};\mkleeneopen{}G\mkleeneclose{};\mkleeneopen{}L\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{}]\mcdot{}  THEN  Auto)xxx)xxx

---

Home Index