Nuprl Definition : genfact
genfact(n;b;m.f[m]) ==
  if (n) < (1)  then b  else eval x = f[n] in eval b' = b * x in eval n' = n - 1 in   genfact(n';b';m.f[m])
Definitions occuring in Statement : 
callbyvalue: callbyvalue, 
less: if (a) < (b)  then c  else d
, 
multiply: n * m
, 
subtract: n - m
, 
natural_number: $n
Definitions occuring in definition : 
less: if (a) < (b)  then c  else d
, 
multiply: n * m
, 
callbyvalue: callbyvalue, 
subtract: n - m
, 
natural_number: $n
FDL editor aliases : 
genfact
Latex:
genfact(n;b;m.f[m])  ==
    if  (n)  <  (1)
          then  b
          else  eval  x  =  f[n]  in
                    eval  b'  =  b  *  x  in
                    eval  n'  =  n  -  1  in
                        genfact(n';b';m.f[m])
Date html generated:
2019_06_20-PM-02_25_31
Last ObjectModification:
2019_02_08-AM-11_02_15
Theory : num_thy_1
Home
Index