Step
*
of Lemma
callbyvalueall_seq-combine0
∀[F,L1,L2:Top]. ∀[m1:ℕ+]. ∀[m2:ℕ].
  (callbyvalueall_seq(L1;λx.x;λg.(g mk_lambdas(λout.callbyvalueall_seq(L2[out];λx.x;λg.(g F[m2]);0;m2);m1 - 1));0;m1) 
  ~ callbyvalueall_seq(λi.if i <z m1 then L1 i else mk_lambdas(λout.(L2[out] (i - m1));m1 - 1) fi λx.x
                      λg.(g mk_lambdas(F[m2];m1));0;m1 + m2))
BY
{ ((UnivCD THENA Auto)
   THEN (InstLemma `callbyvalueall_seq-combine` [⌜F⌝;⌜L1⌝;⌜L2⌝;⌜λx.x⌝;⌜m1⌝;⌜m2⌝;⌜0⌝]⋅ THENA Auto)
   THEN RepUR ``mk_applies`` (-1)
   THEN Auto) }
Latex:
Latex:
\mforall{}[F,L1,L2:Top].  \mforall{}[m1:\mBbbN{}\msupplus{}].  \mforall{}[m2:\mBbbN{}].
    (callbyvalueall\_seq(L1;\mlambda{}x.x;\mlambda{}g.(g 
                                                                    mk\_lambdas(\mlambda{}out.callbyvalueall\_seq(L2[out];\mlambda{}x.x;\mlambda{}g.(g  F[m2]);0
                                                                                                                                        ;m2);m1  -  1));0;m1) 
    \msim{}  callbyvalueall\_seq(\mlambda{}i.if  i  <z  m1  then  L1  i  else  mk\_lambdas(\mlambda{}out.(L2[out]  (i  -  m1));m1  -  1)  fi 
                                            ;\mlambda{}x.x;\mlambda{}g.(g  mk\_lambdas(F[m2];m1));0;m1  +  m2))
By
Latex:
((UnivCD  THENA  Auto)
  THEN  (InstLemma  `callbyvalueall\_seq-combine`  [\mkleeneopen{}F\mkleeneclose{};\mkleeneopen{}L1\mkleeneclose{};\mkleeneopen{}L2\mkleeneclose{};\mkleeneopen{}\mlambda{}x.x\mkleeneclose{};\mkleeneopen{}m1\mkleeneclose{};\mkleeneopen{}m2\mkleeneclose{};\mkleeneopen{}0\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  RepUR  ``mk\_applies``  (-1)
  THEN  Auto)
Home
Index