{α : Type u_2} →
  {β : Type u_3} →
    {r : α → β → Prop} →
      {motive : Concept α β r → Sort u} →
        (t : Concept α β r) →
          ((extent : Set α) →
              (intent : Set β) →
                (upperPolar_extent : upperPolar r extent = intent) →
                  (lowerPolar_intent : lowerPolar r intent = extent) →
                    motive
                      { extent := extent, intent := intent, upperPolar_extent := upperPolar_extent,
                        lowerPolar_intent := lowerPolar_intent }) →
            motive t