{X : SSet} →
  {A : X.Subcomplex} →
    {h : A.PairingCore} →
      {α : Type v} →
        [inst : PartialOrder α] →
          (rank : h.ι → α) →
            (∀ {x y : h.ι}, h.AncestralRel x y → h.dim x = h.dim y → rank x < rank y) → h.WeakRankFunction α