reserve n,k,b for Nat, i for Integer;

theorem Th78:
  83 divides n iff 83 divides
  value(mid(digits(n,10),2,len(digits(n,10))),10) + 25*digits(n,10).0
  proof
    reconsider p=83 as Prime by NAT_4:33;
    A1: 10*25 - 1 = p*3;
    p,10 are_coprime by EULER_1:2;
    hence thesis by Th38,A1;
  end;
