∀ {α : Type u_2} {β : Type u_1} [inst : Preorder α] [inst_1 : Preorder β] [inst_2 : MulZeroOneClass α]
  [inst_3 : MulZeroOneClass β] (f : α →*₀o β) (f' : α → β) (h : f' = ⇑f),
  (↑(f.toOrderMonoidHom.copy f' h).toMonoidHom).toFun 1 = 1