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

theorem
  card insert-sort (n,p0) = 23
proof
  set i1= GBP:=0, i2= (GBP,1):=0, i3= (GBP,2):=(n-1), i4= (GBP,3):=p0;
  thus card insert-sort (n,p0) =card(i1 ';' i2 ';' i3 ';' i4) + card FR by
AFINSQ_1:17
    .=card(i1 ';' i2 ';' i3)+1 + card FR by SCMP_GCD:4
    .=card(i1 ';' i2)+1+1 + card FR by SCMP_GCD:4
    .=2+1+1+card FR by SCMP_GCD:5
    .=4+(card B2+3) by SCMPDS_7:41
    .=23 by Lm5;
end;
