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
  a is complementable & b is complementable implies <%a,b%> is complementable
  by Th14,Th16;
