reserve

  k,n,m,i,j for Element of NAT,
  K for Field;
reserve L for non empty addLoopStr;
reserve G for non empty multLoopStr;

theorem Th22:
  for a being Element of K holds |( <* 0.K *>, <* a *> )|=0.K
proof
  let a be Element of K;
A1: len (<* a *>) =1 by FINSEQ_1:39;
  thus |( <* 0.K *>, <* a *> )| =|( 0*(K,1),<* a *> )| by FINSEQ_2:59
    .= 0.K by A1,Th21;
end;
