reserve m,n for Element of NAT,
  i,j for Instruction of SCMPDS,
  I for Program
  of SCMPDS,
  a for Int_position;
reserve Q,U,P for Instruction-Sequence of SCMPDS;

theorem
  card GCD-Algorithm=12
proof
  thus card GCD-Algorithm=card (i1 ';' i2 ';' i3) + card WH by AFINSQ_1:17
    .=card (i1 ';' i2) +1+ card WH by SCMP_GCD:4
    .=2+1+ 9 by Lm11,SCMP_GCD:5
    .=12;
end;
