:: deftheorem Def1 defines decode ZF_FUND1:def 2 :
for b1 being Function of omega,VAR holds
( b1 = decode iff for p being Element of omega holds b1 . p = x. (card p) );