TaggedWithComb(A;B;test) ==
  SimpleComb1(T.T r (A  B);T.B;v.if (bag-size(v) = 1)
  then let a,b = only(v) 
       in if test a then {b} else {} fi 
  else {}
  fi )



Definitions occuring in Statement :  SimpleComb1: SimpleComb1(T1.P1[T1];T.F[T];a.H[a]) subtype_rel: A r B eq_int: (i = j) ifthenelse: if b then t else f fi  apply: f a spread: spread def product: x:A  B[x] natural_number: $n bag-only: only(bs) bag-size: bag-size(bs) single-bag: {x} empty-bag: {}
Definitions :  SimpleComb1: SimpleComb1(T1.P1[T1];T.F[T];a.H[a]) subtype_rel: A r B product: x:A  B[x] eq_int: (i = j) bag-size: bag-size(bs) natural_number: $n spread: spread def bag-only: only(bs) ifthenelse: if b then t else f fi  apply: f a single-bag: {x} empty-bag: {}
FDL editor aliases :  TaggedWithComb

TaggedWithComb(A;B;test)  ==
    SimpleComb1(T.T  \msubseteq{}r  (A  \mtimes{}  B);T.B;v.if  (bag-size(v)  =\msubz{}  1)
    then  let  a,b  =  only(v) 
              in  if  test  a  then  \{b\}  else  \{\}  fi 
    else  \{\}
    fi  )


Date html generated: 2011_08_17-PM-06_29_50
Last ObjectModification: 2011_01_22-PM-10_13_49

Home Index