Nuprl Definition : RankEx1co_size

RankEx1co_size(p) ==
  fix((λsize,p. let lbl,x 
                in if lbl =a "Leaf" then 0
                   if lbl =a "Prod" then (size (fst(x))) (size (snd(x)))
                   if lbl =a "ProdL" then (size (snd(x)))
                   if lbl =a "ProdR" then (size (fst(x)))
                   if lbl =a "List" then + Σ(size x[i] i < ||x||)
                   else 0
                   fi )) 
  p



Definitions occuring in Statement :  select: L[n] length: ||as|| sum: Σ(f[x] x < k) ifthenelse: if then else fi  eq_atom: =a y pi1: fst(t) pi2: snd(t) apply: a fix: fix(F) lambda: λx.A[x] spread: spread def add: m natural_number: $n token: "$token"
FDL editor aliases :  RankEx1co_size
RankEx1co\_size(p)  ==
    fix((\mlambda{}size,p.  let  lbl,x  =  p 
                                in  if  lbl  =a  "Leaf"  then  0
                                      if  lbl  =a  "Prod"  then  1  +  (size  (fst(x)))  +  (size  (snd(x)))
                                      if  lbl  =a  "ProdL"  then  1  +  (size  (snd(x)))
                                      if  lbl  =a  "ProdR"  then  1  +  (size  (fst(x)))
                                      if  lbl  =a  "List"  then  1  +  \mSigma{}(size  x[i]  |  i  <  ||x||)
                                      else  0
                                      fi  )) 
    p



Date html generated: 2015_07_17-AM-07_47_29
Last ObjectModification: 2014_05_06-PM-02_31_21

Home Index