Nuprl Definition : C_TYPEco

Nuprl Definition : C_TYPEco_size

C_TYPEco_size(p) ==
  fix((λsize,p. let lbl,x = p
                in if lbl =a "Void" then 0
                   if lbl =a "Int" then 0
                   if lbl =a "Struct" then 1 + Σ(size (snd(x[i])) | i < ||x||)
                   if lbl =a "Array" then 1 + (size (snd(x)))
                   if lbl =a "Pointer" then 1 + (size x)
                   else 0
                   fi ))
  p

Definitions occuring in Statement : select: L[n], length: ||as||, sum: Σ(f[x] | x < k), ifthenelse: if b then t else f fi , eq_atom: x =a y, pi2: snd(t), 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_TYPEco_size
C\_TYPEco\_size(p) == fix((\mlambda{}size,p. let lbl,x = p in if lbl =a "Void" then 0 if lbl =a "Int" then 0 if lbl =a "Struct" then 1 + \mSigma{}(size (snd(x[i])) | i < ||x||) if lbl =a "Array" then 1 + (size (snd(x))) if lbl =a "Pointer" then 1 + (size x) else 0 fi )) p Date html generated: 2015_07_17-AM-07_42_02 Last ObjectModification: 2014_06_02-PM-05_22_57 Home Index