@@ -53,10 +53,12 @@ def NatOrdinal : Type _ :=
5353 -- Porting note: used to derive LinearOrder & SuccOrder but need to manually define
5454 Ordinal deriving Zero, Inhabited, One, WellFoundedRelation
5555
56- instance NatOrdinal.linearOrder : LinearOrder NatOrdinal := {Ordinal.linearOrder with }
57- instance NatOrdinal.instSuccOrder : SuccOrder NatOrdinal := {Ordinal.instSuccOrder with }
58- instance NatOrdinal.orderBot : OrderBot NatOrdinal := {Ordinal.orderBot with }
59- instance NatOrdinal.noMaxOrder : NoMaxOrder NatOrdinal := {Ordinal.noMaxOrder with }
56+ instance NatOrdinal.instLinearOrder : LinearOrder NatOrdinal := Ordinal.instLinearOrder
57+ instance NatOrdinal.instSuccOrder : SuccOrder NatOrdinal := Ordinal.instSuccOrder
58+ instance NatOrdinal.instOrderBot : OrderBot NatOrdinal := Ordinal.instOrderBot
59+ instance NatOrdinal.instNoMaxOrder : NoMaxOrder NatOrdinal := Ordinal.instNoMaxOrder
60+ instance NatOrdinal.instZeroLEOneClass : ZeroLEOneClass NatOrdinal := Ordinal.instZeroLEOneClass
61+ instance NatOrdinal.instNeZeroOne : NeZero (1 : NatOrdinal) := Ordinal.instNeZeroOne
6062
6163/-- The identity function between `Ordinal` and `NatOrdinal`. -/
6264@[match_pattern]
@@ -316,19 +318,19 @@ open Ordinal NaturalOps
316318instance : Add NatOrdinal := ⟨nadd⟩
317319instance : SuccAddOrder NatOrdinal := ⟨fun x => (nadd_one x).symm⟩
318320
319- instance addLeftStrictMono : AddLeftStrictMono NatOrdinal.{u} :=
321+ instance : AddLeftStrictMono NatOrdinal.{u} :=
320322 ⟨fun a _ _ h => nadd_lt_nadd_left h a⟩
321323
322- instance addLeftMono : AddLeftMono NatOrdinal.{u} :=
324+ instance : AddLeftMono NatOrdinal.{u} :=
323325 ⟨fun a _ _ h => nadd_le_nadd_left h a⟩
324326
325- instance addLeftReflectLE : AddLeftReflectLE NatOrdinal.{u} :=
327+ instance : AddLeftReflectLE NatOrdinal.{u} :=
326328 ⟨fun a b c h => by
327329 by_contra! h'
328330 exact h.not_lt (add_lt_add_left h' a)⟩
329331
330- instance orderedCancelAddCommMonoid : OrderedCancelAddCommMonoid NatOrdinal :=
331- { NatOrdinal.linearOrder with
332+ instance : OrderedCancelAddCommMonoid NatOrdinal :=
333+ { NatOrdinal.instLinearOrder with
332334 add := (· + ·)
333335 add_assoc := nadd_assoc
334336 add_le_add_left := fun _ _ => add_le_add_left
@@ -339,7 +341,7 @@ instance orderedCancelAddCommMonoid : OrderedCancelAddCommMonoid NatOrdinal :=
339341 add_comm := nadd_comm
340342 nsmul := nsmulRec }
341343
342- instance addMonoidWithOne : AddMonoidWithOne NatOrdinal :=
344+ instance : AddMonoidWithOne NatOrdinal :=
343345 AddMonoidWithOne.unary
344346
345347@ [deprecated Order.succ_eq_add_one (since := "2024-09-04" )]
@@ -674,8 +676,8 @@ instance : Mul NatOrdinal :=
674676-- Porting note: had to add universe annotations to ensure that the
675677-- two sources lived in the same universe.
676678instance : OrderedCommSemiring NatOrdinal.{u} :=
677- { NatOrdinal.orderedCancelAddCommMonoid .{u},
678- NatOrdinal.linearOrder .{u} with
679+ { NatOrdinal.instOrderedCancelAddCommMonoid .{u},
680+ NatOrdinal.instLinearOrder .{u} with
679681 mul := (· * ·)
680682 left_distrib := nmul_nadd
681683 right_distrib := nadd_nmul
0 commit comments