∀ {K : Type u} [inst : Field K]
  (G : CategoryTheory.Over (AlgebraicGeometry.Spec { carrier := K, commRing := Field.toEuclideanDomain.toCommRing }))
  [AlgebraicGeometry.IsProper G.hom] [AlgebraicGeometry.GeometricallyIntegral G.hom] [inst_3 : CategoryTheory.GrpObj G],
  CategoryTheory.IsCommMonObj G