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;
