Lean source · namespace BFPP
Hartogs.lean
BFPP/Hartogs.lean · 20 lines
1import Mathlib.SetTheory.Ordinal.Family2import Mathlib.Logic.Small.Basic34/-! # The size obstruction used to terminate sign propagation -/56namespace BFPP78set_option autoImplicit false910universe u1112/-- The ordinals in a universe cannot inject into a type in that same universe. -/13theorem no_injection_from_ordinals (X : Type u) (f : Ordinal.{u} → X) :14 ¬ Function.Injective f := by15 intro hf16 letI : Small.{u} Ordinal.{u} := small_of_injective hf17 have hb : BddAbove (Set.univ : Set Ordinal.{u}) := Ordinal.bddAbove_of_small18 exact not_bddAbove_univ hb1920end BFPPSHA-256
973795736d31c0662c7dcef2fcfc06d4fa41c38c4ed25c987eacd3cdab3ba38e