{X Y : AlgebraicGeometry.Scheme} →
  {P : Sort u_1} →
    {domain : X.Opens} →
      {dense_domain : Dense ↑domain} →
        {hom : ↑domain ⟶ Y} →
          {domain' : X.Opens} →
            {dense_domain' : Dense ↑domain'} →
              {hom' : ↑domain' ⟶ Y} →
                { domain := domain, dense_domain := dense_domain, hom := hom } =
                    { domain := domain', dense_domain := dense_domain', hom := hom' } →
                  (domain ≍ domain' → hom ≍ hom' → P) → P