:: deftheorem Def4 defines <% AFINSQ_1:def 4 :
for x being object
for b2 being Function holds
( b2 = <%x%> iff ( dom b2 = 1 & b2 . 0 = x ) );