:: deftheorem Reichen defines Reichenbach_implication FUZIMPL1:def 17 :
for b1 being BinOp of [.0,1.] holds
( b1 = Reichenbach_implication iff for x, y being Element of [.0,1.] holds b1 . (x,y) = (1 - x) + (x * y) );