Step
*
of Lemma
select-cons-tl
∀[a,as:Top]. ∀[i:ℤ].  [a / as][i] ~ as[i - 1] supposing 0 < i
BY
{ ((UnivCD THENA Auto)
   THEN RW (AddrC [1] (RecUnfoldC `select`)) 0
   THEN Reduce 0
   THEN AutoSplit
   THEN CallByValueReduce 0
   THEN Auto) }
Latex:
Latex:
\mforall{}[a,as:Top].  \mforall{}[i:\mBbbZ{}].    [a  /  as][i]  \msim{}  as[i  -  1]  supposing  0  <  i
By
Latex:
((UnivCD  THENA  Auto)
  THEN  RW  (AddrC  [1]  (RecUnfoldC  `select`))  0
  THEN  Reduce  0
  THEN  AutoSplit
  THEN  CallByValueReduce  0
  THEN  Auto)
Home
Index