Nuprl Definition : C_LVALUE_size

C_LVALUE_size(p) ==
  fix((λsize,p. let lbl,x = p 
                in if lbl =a "Ground" then 0
                   if lbl =a "Index" then let lval,z = x in 1 + (size lval)
                   if lbl =a "Scomp" then let lval,z = x in 1 + (size lval)
                   else 0
                   fi )) 
  p


Definitions occuring in Statement :  ifthenelse: if b then t else f fi ,  eq_atom: x =a y,  apply: f a,  fix: fix(F),  lambda: λx.A[x],  spread: spread def,  add: n + m,  natural_number: $n,  token: "$token"
FDL editor aliases :  C_LVALUE_size
C\_LVALUE\_size(p)  ==
    fix((\mlambda{}size,p.  let  lbl,x  =  p 
                                in  if  lbl  =a  "Ground"  then  0
                                      if  lbl  =a  "Index"  then  let  lval,z  =  x  in  1  +  (size  lval)
                                      if  lbl  =a  "Scomp"  then  let  lval,z  =  x  in  1  +  (size  lval)
                                      else  0
                                      fi  )) 
    p


Date html generated: 2015_07_17-AM-07_43_07
Last ObjectModification: 2014_05_05-PM-02_50_39

Home Index