{α : Type u} →
  (toCompleteLattice : CompleteLattice α) →
    (∀ (a : α) (s : Set α), a ⊓ sSup s ≤ ⨆ b ∈ s, a ⊓ b) →
      (∀ (a : α) (s : Set α), ⨅ b ∈ s, a ⊔ b ≤ a ⊔ sInf s) → CompleteDistribLattice.MinimalAxioms α