fact: Definition afldfracapartrelpre : hrel ( A × aintdomazerosubmonoid A ) := fun ab cd => ( pr1 ab * pr1 ( pr2 cd ) ) # ( pr1 cd * pr1 ( pr2 ab ) ).
imports: UniMath.PAdics.lemmas UniMath.Algebra.RigsAndRings UniMath.Algebra.Domains_and_Fields