---

cdvdelay?(x) ==
  case(x)
  Base(args)=> ff
  pair(fst,snd) => rec1,rec2.ff
  (X)'=> rec1.tt
  fun(arg:argtype):typ=> rec1.ff
  fun(arg:argtype, self'):typ=> rec1.ff

---

Definitions :  classderiv_ind: classderiv_ind,  btrue: tt,  bfalse: ff
FDL editor aliases :  cdvdelay?

---

cdvdelay?(x)  ==
    case(x)
    Base(args)=>  ff
    pair(fst,snd)  =>  rec1,rec2.ff
    (X)'=>  rec1.tt
    fun(arg:argtype):typ=>  rec1.ff
    fun(arg:argtype,  self'):typ=>  rec1.ff


Date html generated: 2010_08_27-PM-08_09_08
Last ObjectModification: 2010_06_18-PM-04_27_42

Home Index