---

exppair?(x) ==
  case(x)
  leaf(val) => ff
  pair(fst,snd) => rec1,rec2.tt
  fun(arg) => rec1.ff

---

Definitions :  expression_ind: expression_ind,  btrue: tt,  bfalse: ff
FDL editor aliases :  exppair?

---

exppair?(x)  ==    case(x)leaf(val)  =>  ffpair(fst,snd)  =>  rec1,rec2.ttfun(arg)  =>  rec1.ff


Date html generated: 2010_08_27-PM-08_21_46
Last ObjectModification: 2010_06_22-PM-01_01_10

Home Index