reserve u,v,x,y,z,X,Y for set;
reserve r,s for Real;
reserve N for non empty ConjNormAlgStr;
reserve a,a1,a2,b,b1,b2 for Element of N;
reserve c,c1,c2 for Element of Cayley-Dickson(N);

theorem Th16:
  a is right_complementable & b is right_complementable implies
  <%a,b%> is right_complementable
  proof
    given x being Element of N such that
A1: a+x = 0.N;
    given y being Element of N such that
A2: b+y = 0.N;
    take <%x,y%>;
    thus <%a,b%>+<%x,y%> = <%a+x,b+y%> by Def9
    .= 0.Cayley-Dickson(N) by A1,A2,Def9;
  end;
