Definition nxtprime n := proj1_sig (prime_above n).Fact nxtprime_spec1 n : n < nxtprime n.Fact nxtprime_spec2 n : prime (nxtprime n).Definition nthprime (n : nat) := iter nxtprime 2 n.

Lemma nthprime_inj n m : nthprime n = nthprime m -> n = m.