{m : Type u → Type v} →
  {P : Sort u_1} →
    {toApplicative : Applicative m} →
      {toBind : Bind m} →
        {toApplicative' : Applicative m} →
          {toBind' : Bind m} →
            { toApplicative := toApplicative, toBind := toBind } =
                { toApplicative := toApplicative', toBind := toBind' } →
              (toApplicative ≍ toApplicative' → toBind ≍ toBind' → P) → P