theorem
  F is commutative associative & F is having_a_unity & F is
having_an_inverseOp & G is_distributive_wrt F implies G.(F$$(B,f),d) = F $$(B,G
  [:](f,d))
proof
  assume that
A1: F is commutative associative & F is having_a_unity and
A2: F is having_an_inverseOp and
A3: G is_distributive_wrt F;
  set e = the_unity_wrt F;
  G.(e,d) = e by A1,A2,A3,FINSEQOP:66;
  hence thesis by A1,A3,Th13;
end;
