1-- Infinitude of the prime natural numbers2-- Part of Cumulus, the Grace17 mathematics library.3-- Copyright (c) 2026 Grant Passmore.4-- Released under the Apache License 2.0. See LICENSE in the repository root.5-- Authors: Grant Passmore67module Grace.Cumulus.NumberTheory.Infinitude8import Prime9import Cardinal.Finite1011theorem primes.subset_naturals12shows (primes ⊆ ℕ)13proof14intros p hp15obtain⟨hpNatural, hpPrime⟩:= primes.membership.forward with hp16exact hpNatural1718theorem primes.order_unbounded (n : Nat)19shows∃ p ∈ primes, n < p20proof21obtain⟨p, hpPrime, hnLessP⟩:= Euclid.larger_prime at n withassumption22witness p23constructor24 . apply primes.contains at p25exact hpPrime26 . exact hnLessP2728-- The set-level corollary lives apart from the elementary number theory, so29-- prime development and computation need not load the cardinality and30-- function library to state and prove Euclid's theorem.31theorem primes.infinite32shows¬Finite(primes)33proof34exact infinite.of_unbounded_naturals with primes.subset_naturals, primes.order_unbounded35