{R : Type u_1} →
  [inst : CommRing R] →
    {P : RingPreordering R} →
      {motive : P.IsOrdering → Sort u} →
        ([toHasMemOrNegMem : HasMemOrNegMem P] → [toIsPrime : P.support.IsPrime] → motive ⋯) →
          (t : P.IsOrdering) → motive t