proposition: Lemma islinv_CFinv : ∏ (x : X) (Hx0 : x ≠ 0), (CFinv x Hx0) * x = 1.
proof: Proof. exact (islinv_CCDRinv (X := ConstructiveField_ConstructiveCommutativeDivisionRig X)). Qed.
imports: UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.Apartness UniMath.MoreFoundations.Tactics