{α : Type u_8} →
  {motive : CompleteSemilatticeSup α → Sort u} →
    (t : CompleteSemilatticeSup α) →
      ([toPartialOrder : PartialOrder α] →
          [toSupSet : SupSet α] →
            (le_sSup : ∀ (s : Set α), ∀ a ∈ s, a ≤ sSup s) →
              (sSup_le : ∀ (s : Set α) (a : α), (∀ b ∈ s, b ≤ a) → sSup s ≤ a) →
                motive
                  { toPartialOrder := toPartialOrder, toSupSet := toSupSet, le_sSup := le_sSup, sSup_le := sSup_le }) →
        motive t