st-ap(st1;st2) ==
  if st_arrow?(st1)  eq_st(st_arrow-domain(st1);st2)
  then st_arrow-range(st1)
  else st_const(Top)
  fi 



Definitions occuring in Statement :  eq_st: eq_st(st1;st2),  st_arrow-range: st_arrow-range(x),  st_arrow-domain: st_arrow-domain(x),  st_arrow?: st_arrow?(x),  st_const: st_const(ty),  band: p  q,  ifthenelse: if b then t else f fi ,  top: Top
Definitions :  ifthenelse: if b then t else f fi ,  band: p  q,  st_arrow?: Error :st_arrow?,  eq_st: eq_st(st1;st2),  st_arrow-domain: Error :st_arrow-domain,  st_arrow-range: Error :st_arrow-range,  st_const: Error :st_const,  top: Top
FDL editor aliases :  st-ap

st-ap(st1;st2)  ==
    if  st\_arrow?(st1)  \mwedge{}\msubb{}  eq\_st(st\_arrow-domain(st1);st2)
    then  st\_arrow-range(st1)
    else  st\_const(Top)
    fi 


Date html generated: 2011_08_17-PM-05_00_41
Last ObjectModification: 2011_02_04-PM-03_36_43

Home Index