fact: Definition afldfracmultinvint ( ab : A × aintdomazerosubmonoid A ) ( is : afldfracapartrelpre ab ( make_dirprod ( @ringunel1 A ) ( unel ( aintdomazerosubmonoid A ) ) ) ) : A × aintdomazerosubmonoid A.
imports: UniMath.PAdics.lemmas UniMath.Algebra.RigsAndRings UniMath.Algebra.Domains_and_Fields