---

cdvbase?(x) ==
  case(x)
  Base(args)=> tt
  pair(fst,snd) => rec1,rec2.ff
  (X)'=> rec1.ff
  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 :  cdvbase?

---

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


Date html generated: 2010_08_27-PM-08_08_26
Last ObjectModification: 2010_06_18-PM-04_25_36

Home Index