Definition afldtoaintdom ( A : afld ) : aintdom . Proof. split with ( pr1 A ). split. - apply (pr2 A). - intros a b p q. apply afldinvertibletoazero. apply multinvmultstable. + apply (pr2 (pr2 A)). assumption. + apply (pr2 (pr2 A)). assumption. Defined.
Require Import UniMath.Foundations.PartA. Require Import UniMath.Foundations.Propositions. Require Import UniMath.Foundations.NaturalNumbers. Require Import UniMath.Algebra.RigsAndRings. Require Import UniMath.Algebra.Domains_and_Fields. Require Import UniMath.NumberSystems.Integers. Require Import UniMath.Algebra.Monoids.