reserve X for set;
reserve a,b,c,k,m,n for Nat;
reserve i,j for Integer;
reserve r,s for Real;
reserve p,p1,p2,p3 for Prime;

theorem Th10:
  n divides 25 implies n = 1 or n = 5 or n = 25
  proof
    assume
A1: n divides 25;
    then n <= 25 by INT_2:27;
    then
A2: n = 0 or ... or n = 25;
    now
      (2*12+1) mod 2 = 1 mod 2 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 2 divides 25;
      (3*8+1) mod 3 = 1 mod 3 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 3 divides 25 by INT_1:62;
      (4*6+1) mod 4 = 1 mod 4 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 4 divides 25 by INT_1:62;
      (6*4+1) mod 6 = 1 mod 6 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 6 divides 25 by INT_1:62;
      (7*3+4) mod 7 = 4 mod 7 by NAT_D:21
      .= 4 by NAT_D:24;
      hence not 7 divides 25 by INT_1:62;
      (8*3+1) mod 8 = 1 mod 8 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 8 divides 25 by INT_1:62;
      (9*2+7) mod 9 = 7 mod 9 by NAT_D:21
      .= 7 by NAT_D:24;
      hence not 9 divides 25 by INT_1:62;
      (10*2+5) mod 10 = 5 mod 10 by NAT_D:21
      .= 5 by NAT_D:24;
      hence not 10 divides 25 by INT_1:62;
      (11*2+3) mod 11 = 3 mod 11 by NAT_D:21
      .= 3 by NAT_D:24;
      hence not 11 divides 25 by INT_1:62;
      (12*2+1) mod 12 = 1 mod 12 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 12 divides 25 by INT_1:62;
      (13*1+12) mod 13 = 12 mod 13 by NAT_D:21
      .= 12 by NAT_D:24;
      hence not 13 divides 25 by INT_1:62;
      (14*1+11) mod 14 = 11 mod 14 by NAT_D:21
      .= 11 by NAT_D:24;
      hence not 14 divides 25 by INT_1:62;
      (15*1+10) mod 15 = 10 mod 15 by NAT_D:21
      .= 10 by NAT_D:24;
      hence not 15 divides 25 by INT_1:62;
      (16*1+9) mod 16 = 9 mod 16 by NAT_D:21
      .= 9 by NAT_D:24;
      hence not 16 divides 25 by INT_1:62;
      (17*1+8) mod 17 = 8 mod 17 by NAT_D:21
      .= 8 by NAT_D:24;
      hence not 17 divides 25 by INT_1:62;
      (18*1+7) mod 18 = 7 mod 18 by NAT_D:21
      .= 7 by NAT_D:24;
      hence not 18 divides 25 by INT_1:62;
      (19*1+6) mod 19 = 6 mod 19 by NAT_D:21
      .= 6 by NAT_D:24;
      hence not 19 divides 25 by INT_1:62;
      (20*1+5) mod 20 = 5 mod 20 by NAT_D:21
      .= 5 by NAT_D:24;
      hence not 20 divides 25 by INT_1:62;
      (21*1+4) mod 21 = 4 mod 21 by NAT_D:21
      .= 4 by NAT_D:24;
      hence not 21 divides 25 by INT_1:62;
      (22*1+3) mod 22 = 3 mod 22 by NAT_D:21
      .= 3 by NAT_D:24;
      hence not 22 divides 25 by INT_1:62;
      (23*1+2) mod 23 = 2 mod 23 by NAT_D:21
      .= 2 by NAT_D:24;
      hence not 23 divides 25 by INT_1:62;
      (24*1+1) mod 24 = 1 mod 24 by NAT_D:21
      .= 1 by NAT_D:24;
      hence not 24 divides 25 by INT_1:62;
    end;
    hence thesis by A1,A2;
  end;
