reserve x for Int_position,
  n,p0 for Nat;
reserve P,Q,V for Instruction-Sequence of SCMPDS;

theorem Th9:
  card Partition=38
proof
  thus card Partition=card (K4 ';' WH3 ';' j8 ';' j9)+1 by SCMP_GCD:4
    .=card (K4 ';' WH3 ';' j8)+1+1 by SCMP_GCD:4
    .=card (K4 ';' WH3)+1+1+1 by SCMP_GCD:4
    .=card K4+card WH3+1+1+1 by AFINSQ_1:17
    .=4+31+1+1+1 by Lm17,Th4
    .=38;
end;
