Nuprl Definition : s-nth

s-nth(n;s) ==  fix((λs-nth,n,s. let a,s' in if (n =z 0) then else eval in s-nth s' fi )) s



Definitions occuring in Statement :  callbyvalue: callbyvalue ifthenelse: if then else fi  eq_int: (i =z j) apply: a fix: fix(F) lambda: λx.A[x] spread: spread def subtract: m natural_number: $n
Definitions occuring in definition :  fix: fix(F) lambda: λx.A[x] spread: spread def ifthenelse: if then else fi  eq_int: (i =z j) callbyvalue: callbyvalue subtract: m natural_number: $n apply: a
FDL editor aliases :  s-nth

Latex:
s-nth(n;s)  ==
    fix((\mlambda{}s-nth,n,s.  let  a,s'  =  s  in  if  (n  =\msubz{}  0)  then  a  else  eval  m  =  n  -  1  in  s-nth  m  s'  fi  ))  n  s



Date html generated: 2016_05_14-AM-06_22_41
Last ObjectModification: 2015_09_22-PM-05_47_55

Theory : co-recursion


Home Index