{α : Type u_1} →
  {σ : Type u_2} →
    {inst : PartialOrder α} →
      {P : Sort u} →
        {f : σ → α} →
          {pt : σ} →
            {inf : σ → σ → σ} →
              {inf_le_left : ∀ (a b : σ), f (inf a b) ≤ f a} →
                {inf_le_right : ∀ (a b : σ), f (inf a b) ≤ f b} →
                  {f' : σ → α} →
                    {pt' : σ} →
                      {inf' : σ → σ → σ} →
                        {inf_le_left' : ∀ (a b : σ), f' (inf' a b) ≤ f' a} →
                          {inf_le_right' : ∀ (a b : σ), f' (inf' a b) ≤ f' b} →
                            { f := f, pt := pt, inf := inf, inf_le_left := inf_le_left, inf_le_right := inf_le_right } =
                                { f := f', pt := pt', inf := inf', inf_le_left := inf_le_left',
                                  inf_le_right := inf_le_right' } →
                              (f ≍ f' → pt ≍ pt' → inf ≍ inf' → P) → P