{X : Type u_2} →
  [inst : Order.Frame X] →
    {motive : Sublocale X → Sort u} →
      (t : Sublocale X) →
        ((carrier : Set X) →
            (sInf_mem' : ∀ s ⊆ carrier, sInf s ∈ carrier) →
              (himp_mem' : ∀ (a b : X), b ∈ carrier → a ⇨ b ∈ carrier) →
                motive { carrier := carrier, sInf_mem' := sInf_mem', himp_mem' := himp_mem' }) →
          motive t