∀ {R : CommRingCat} (M : (AlgebraicGeometry.Spec { carrier := ↑R, commRing := R.commRing }).Modules)
  (U : (AlgebraicGeometry.Spec { carrier := ↑R, commRing := R.commRing }).Opens),
  CategoryTheory.CategoryStruct.comp
      (AlgebraicGeometry.tilde.toOpen ((AlgebraicGeometry.modulesSpecToSheaf.obj M).presheaf.obj (Opposite.op ⊤)) U)
      ((AlgebraicGeometry.modulesSpecToSheaf.map M.fromTildeΓ).val.app (Opposite.op U)) =
    (AlgebraicGeometry.modulesSpecToSheaf.obj M).val.map (CategoryTheory.homOfLE ⋯).op