[isabelle-dev] cardinality primitives in Isabelle/HOL?
traytel at inf.ethz.ch
Thu Dec 27 17:45:55 CET 2018
the HOL-Cardinals library might be just right for the purpose:
lemma "|A| ≤o |B| ⟷ (∃f. inj_on f A ∧ f ` A ⊆ B)"
by (rule card_of_ordLeq[symmetric])
lemma "|A| =o |B| ⟷ (∃f. bij_betw f A B)"
by (rule card_of_ordIso[symmetric])
assumes "|A| ≤o |B|" "|B| ≤o |A|"
shows "|A| =o |B|"
by (simp only: assms ordIso_iff_ordLeq)
The canonical entry point for the library is the above HOL-Cardinals.Cardinals. Many of the theorems and definitions are already in Main, because the (co)datatype package is based on them. The syntax is hidden in main—one gets it by importing HOL-Library.Cardinal_Notations (which HOL-Cardinals.Cardinals does transitively).
Our ITP'14 paper explains the design of the library:
> On 27 Dec 2018, at 13:31, Lawrence Paulson <lp15 at cam.ac.uk> wrote:
> I am inclined to introduce these definitions:
> definition lepoll :: "'a set ⇒ 'b set ⇒ bool" (infixl "≲" 50)
> where "lepoll A B ≡ ∃f. inj_on f A ∧ f ` A ⊆ B"
> definition eqpoll :: "'a set ⇒ 'b set ⇒ bool" (infixl "≈" 50)
> where "eqpoll A B ≡ ∃f. bij_betw f A B”
> They allow, for example, this:
> theorem Schroeder_Bernstein_eqpoll:
> assumes "A ≲ B" "B ≲ A" shows "A ≈ B"
> using assms unfolding eqpoll_def lepoll_def by (metis Schroeder_Bernstein)
> The names and syntax are borrowed from Isabelle/ZF, and they are needed for some HOL Light proofs.
> But do they exist in some form already? And are there any comments on those relation symbols?
> isabelle-dev mailing list
> isabelle-dev at in.tum.de
More information about the isabelle-dev