Step
*
of Lemma
last_cons2
∀[L:Top List]. ∀[x:Top].  (last([x / L]) ~ if null(L) then x else last(L) fi )
BY
{ (RepUR ``last`` 0
   THEN Auto
   THEN RW (AddrC [1] RecUnfoldTopAbC) 0
   THEN Reduce 0
   THEN RepeatFor 2 (AutoSplit)
   THEN Try ((CallByValueReduce 0 THEN Complete (Auto)))
   THEN (D 1 THEN All Reduce THEN Auto')⋅) }
Latex:
Latex:
\mforall{}[L:Top  List].  \mforall{}[x:Top].    (last([x  /  L])  \msim{}  if  null(L)  then  x  else  last(L)  fi  )
By
Latex:
(RepUR  ``last``  0
  THEN  Auto
  THEN  RW  (AddrC  [1]  RecUnfoldTopAbC)  0
  THEN  Reduce  0
  THEN  RepeatFor  2  (AutoSplit)
  THEN  Try  ((CallByValueReduce  0  THEN  Complete  (Auto)))
  THEN  (D  1  THEN  All  Reduce  THEN  Auto')\mcdot{})
Home
Index