{R : Type u_1} →
  (K : Type u_2) →
    [inst : CommRing R] →
      [inst_1 : Field K] →
        [inst_2 : Algebra R K] →
          [inst_3 : IsFractionRing R K] →
            [inst_4 : IsDomain R] →
              ClassGroup R ≃* (FractionalIdeal (nonZeroDivisors R) K)ˣ ⧸ (toPrincipalIdeal R K).range