{X : Type u_1} →
  [inst : TopologicalSpace X] →
    {motive : CompactlyCoherentSpace X → Sort u} →
      (t : CompactlyCoherentSpace X) →
        ((isCoherentWith : Topology.IsCoherentWith {K | IsCompact K}) → motive ⋯) → motive t