:: deftheorem Def6 defines gt AOFA_I00:def 6 :
for t1, t2, b3 being INT -valued Function holds
( b3 = gt (t1,t2) iff ( dom b3 = (dom t1) /\ (dom t2) & ( for s being object st s in dom b3 holds
b3 . s = IFGT ((t1 . s),(t2 . s),1,0) ) ) );