reserve A,B,C for non empty set,
  f for Function of [:A,B:],C;
reserve K for non empty doubleLoopStr;
reserve V for non empty ModuleStr over K;

theorem Th8:
  the rmult of opp(V) = opp(the lmult of V)
proof
  reconsider p = ~(the lmult of V) as Function of [:the carrier of V, the
  carrier of opp(K):], the carrier of V;
  opp(V) = RightModStr (# the carrier of V, the addF of V, 0.V, p #) by Def2;
  hence thesis;
end;
