reserve k for Nat;
reserve p for Prime;

theorem
  p*p <= k < 25 implies p = 2 or p = 3
  proof
    assume p*p <= k < 25;
    then p*p < 5*5 by XXREAL_0:2;
    hence thesis by Ttool5a,NAT_4:1;
  end;
