Nuprl Definition : binary-treeco

binary-treeco() ==  corec(X.lbl:Atom × if lbl =a "Leaf" then ℤ if lbl =a "Node" then left:X × else Void fi )



Definitions occuring in Statement :  corec: corec(T.F[T]) ifthenelse: if then else fi  eq_atom: =a y product: x:A × B[x] int: token: "$token" atom: Atom void: Void
FDL editor aliases :  binary-treeco
binary-treeco()  ==
    corec(X.lbl:Atom  \mtimes{}  if  lbl  =a  "Leaf"  then  \mBbbZ{}
                                          if  lbl  =a  "Node"  then  left:X  \mtimes{}  X
                                          else  Void
                                          fi  )



Date html generated: 2015_07_17-AM-07_51_27
Last ObjectModification: 2014_05_06-AM-10_17_01

Home Index