:: deftheorem Fodor defines Fodor_implication FUZIMPL1:def 23 :
for b₁ being BinOp of [.0,1.] holds
( b₁ = Fodor_implication iff for x, y being Element of [.0,1.] holds
( ( x <= y implies b₁ . (x,y) = 1 ) & ( x > y implies b₁ . (x,y) = max ((1 - x),y) ) ) );