---

Step * of Lemma int_termco-ext

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

---

Latex:

---

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


By

---

Latex:
ProveCoDatatypeExt

---

Home Index