Nuprl Definition : rat_termco

rat_termco() ==
  corec(X.lbl:Atom × if lbl =a "Constant" then ℤ
                     if lbl =a "Var" then ℤ
                     if lbl =a "Add" then left:X × X
                     if lbl =a "Subtract" then left:X × X
                     if lbl =a "Multiply" then left:X × X
                     if lbl =a "Divide" then num:X × X
                     if lbl =a "Minus" then 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
Definitions occuring in definition :  corec: corec(T.F[T]) atom: Atom int: product: x:A × B[x] ifthenelse: if then else fi  eq_atom: =a y token: "$token" void: Void
FDL editor aliases :  rat_termco

Latex:
rat\_termco()  ==
    corec(X.lbl:Atom  \mtimes{}  if  lbl  =a  "Constant"  then  \mBbbZ{}
                                          if  lbl  =a  "Var"  then  \mBbbZ{}
                                          if  lbl  =a  "Add"  then  left:X  \mtimes{}  X
                                          if  lbl  =a  "Subtract"  then  left:X  \mtimes{}  X
                                          if  lbl  =a  "Multiply"  then  left:X  \mtimes{}  X
                                          if  lbl  =a  "Divide"  then  num:X  \mtimes{}  X
                                          if  lbl  =a  "Minus"  then  X
                                          else  Void
                                          fi  )



Date html generated: 2019_10_16-PM-03_07_52
Last ObjectModification: 2019_03_31-PM-05_15_28

Theory : reals


Home Index