let A be non empty set ; :: thesis: for o, o9 being BinOp of A st o9 is commutative holds
( o9 is_distributive_wrt o iff o9 is_right_distributive_wrt o )
let o, o9 be BinOp of A; :: thesis: ( o9 is commutative implies ( o9 is_distributive_wrt o iff o9 is_right_distributive_wrt o ) )
( o9 is_right_distributive_wrt o iff for a, b, c being Element of A holds o9 . ((o . (a,b)),c) = o . ((o9 . (a,c)),(o9 . (b,c))) ) by Def10;
hence ( o9 is commutative implies ( o9 is_distributive_wrt o iff o9 is_right_distributive_wrt o ) ) by Th25; :: thesis: verum