:: deftheorem defines compint INT_3:def 2 :
for b1 being Element of K16(K17(INT,INT)) holds
( b1 = compint iff for a being Element of INT holds b1 . a = compreal . a );