{α : Type u} →
  (c : Order.Coframe α) →
    (le : α → α → Prop) →
      le = LE.le →
        (top : α) →
          top = ⊤ →
            (bot : α) →
              bot = ⊥ →
                (sup : α → α → α) →
                  sup = max →
                    (inf : α → α → α) →
                      inf = min →
                        (sdiff : α → α → α) →
                          sdiff = SDiff.sdiff →
                            (hnot : α → α) →
                              hnot = HNot.hnot →
                                (sSup : Set α → α) →
                                  sSup = SupSet.sSup → (sInf : Set α → α) → sInf = InfSet.sInf → Order.Coframe α