---

Step * of Lemma rat_term-ext

rat_term() ≡ lbl:Atom × if lbl =a "Constant" then ℤ
                        if lbl =a "Var" then ℤ
                        if lbl =a "Add" then left:rat_term() × rat_term()
                        if lbl =a "Subtract" then left:rat_term() × rat_term()
                        if lbl =a "Multiply" then left:rat_term() × rat_term()
                        if lbl =a "Divide" then num:rat_term() × rat_term()
                        if lbl =a "Minus" then rat_term()
                        else Void
                        fi 
BY
{ ProveDatatypeExt }

---

Latex:

---

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


By

---

Latex:
ProveDatatypeExt

---

Home Index