∀ {α : Type u_2} {β : Type u_3} [inst : Preorder α] [inst_1 : Preorder β] [inst_2 : MulOneClass α]
  [inst_3 : MulOneClass β],
  OrderMonoidHom.instOne =
    {
      one :=
        let __src := 1;
        { toMonoidHom := __src, monotone' := ⋯ } }