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