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 b then t else f fi ,  eq_atom: x =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 b then t else f fi ,  eq_atom: x =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