{α : Type u_8} →
  {motive : CompleteLattice α → Sort u} →
    (t : CompleteLattice α) →
      ([toLattice : Lattice α] →
          [toSupSet : SupSet α] →
            (le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s) →
              (sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a) →
                [toInfSet : InfSet α] →
                  (sInf_le : ∀ (s : Set α), ∀ a ∈ s, sInf s ≤ a) →
                    (le_sInf : ∀ (s : Set α) (a : α), (∀ b ∈ s, a ≤ b) → a ≤ sInf s) →
                      [toBoundedOrder : BoundedOrder α] →
                        motive
                          { toLattice := toLattice, toSupSet := toSupSet, le_sSup := le_sSup, sSup_le := sSup_le,
                            toInfSet := toInfSet, sInf_le := sInf_le, le_sInf := le_sInf,
                            toBoundedOrder := toBoundedOrder }) →
        motive t