{P : Type u_2} →
  {inst : Preorder P} →
    {P_1 : Sort u} →
      {I : Order.Ideal P} →
        {F : Order.PFilter P} →
          {isCompl_I_F : IsCompl ↑I ↑F} →
            {I' : Order.Ideal P} →
              {F' : Order.PFilter P} →
                {isCompl_I_F' : IsCompl ↑I' ↑F'} →
                  { I := I, F := F, isCompl_I_F := isCompl_I_F } = { I := I', F := F', isCompl_I_F := isCompl_I_F' } →
                    (I ≍ I' → F ≍ F' → P_1) → P_1