---

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

---

cdvpair?(x)  ==
    case(x)
    Base(args)=>  ff
    pair(fst,snd)  =>  rec1,rec2.tt
    (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_34
Last ObjectModification: 2010_06_18-PM-04_26_27

Home Index