{X : Type u_1} →
  {R : Type u_2} →
    [inst : Zero R] →
      [inst_1 : Add R] →
        [inst_2 : LE R] →
          [inst_3 : Max R] →
            {d : PseudoMetric X R} →
              {motive : d.IsUltra → Sort u} →
                ((le_sup' : ∀ (x y z : X), d x z ≤ d x y ⊔ d y z) → motive ⋯) → (t : d.IsUltra) → motive t