theorem
  <*NDSS(V,A),NDSS(V,A\/NDSS(V,A)),NDSS(V,A\/NDSS(V,A\/NDSS(V,A)))*>
   IsNDRankSeq V,A
  proof
    set S = <*NDSS(V,A),NDSS(V,A\/NDSS(V,A))*>;
    len S = 2 & S.2 = NDSS(V,A\/NDSS(V,A)) by FINSEQ_1:44;
    hence thesis by Th17,Th28;
  end;
