Nuprl Definition : sbcode

sbcode(m;n)==r if (m) < (n)  then [0 / sbcode(m;n - m)]  else if (n) < (m)  then [1 / sbcode(m - n;n)]  else []

sbcode(m;n) ==
  fix((λsbcode,m,n. if (m) < (n)
                       then [0 / (sbcode m (n - m))]
                       else if (n) < (m)  then [1 / (sbcode (m - n) n)]  else [])) 
  m 
  n



Definitions occuring in Statement :  cons: [a / b],  nil: [],  less: if (a) < (b)  then c  else d,  apply: f a,  fix: fix(F),  lambda: λx.A[x],  subtract: n - m,  natural_number: $n
Definitions occuring in definition :  fix: fix(F),  lambda: λx.A[x],  less: if (a) < (b)  then c  else d,  cons: [a / b],  natural_number: $n,  apply: f a,  subtract: n - m,  nil: []
FDL editor aliases :  sbcode
Latex:
sbcode(m;n)
==r  if  (m)  <  (n)    then  [0  /  sbcode(m;n  -  m)]    else  if  (n)  <  (m)    then  [1  /  sbcode(m  -  n;n)]    else  []


Latex:
sbcode(m;n)  ==
    fix((\mlambda{}sbcode,m,n.  if  (m)  <  (n)
                                              then  [0  /  (sbcode  m  (n  -  m))]
                                              else  if  (n)  <  (m)    then  [1  /  (sbcode  (m  -  n)  n)]    else  [])) 
    m 
    n



Date html generated: 2016_05_15-PM-10_33_59
Last ObjectModification: 2015_09_23-AM-08_26_47

Theory : rationals


Home Index