∀ {A : Type u_2} {K : Type u_3} [inst : CommRing A] [inst_1 : Field K] [inst_2 : Algebra A K] [IsFractionRing A K]
  [IsDedekindDomain A] {I : FractionalIdeal (nonZeroDivisors A) K}, I ≠ 0 → StrictMono fun x => x * I