let R be non empty doubleLoopStr ; :: thesis: ( R is commutative & R is right-distributive implies R is distributive )
assume that
A1: R is commutative and
A2: R is right-distributive ; :: thesis: R is distributive
let x, y, z be Element of R; :: according to VECTSP_1:def 7 :: thesis: ( x * (y + z) = (x * y) + (x * z) & (y + z) * x = (y * x) + (z * x) )
thus x * (y + z) = (x * y) + (x * z) by A2; :: thesis: (y + z) * x = (y * x) + (z * x)
thus (y + z) * x = x * (y + z) by A1, GROUP_1:def 12
.= (x * y) + (x * z) by A2
.= (y * x) + (x * z) by A1, GROUP_1:def 12
.= (y * x) + (z * x) by A1, GROUP_1:def 12 ; :: thesis: verum