{α : Type u} →
  (le lt : α → α → Prop) →
    (beq : α → α → Bool) →
      (∀ (a b : α), lt a b ↔ le a b ∧ ¬le b a) →
        (∀ (a b : α), beq a b = true ↔ le a b ∧ le b a) →
          (∀ (a : α), le a a) →
            (∀ (a b c : α), le a b → le b c → le a c) →
              DecidableLE α → DecidableLT α → (∀ (a b : α), le a b → le b a → a = b) → Std.PartialOrderPackage α