Lemma isrinv_CCDRinv : ∏ (x : X) (Hx0 : x ≠ (0 : X)), x * (CDRinv (X := X) x Hx0) = 1. Proof. exact (isrinv_CDRinv (X := ConstructiveCommutativeDivisionRig_ConstructiveDivisionRig X)). Qed.
Require Import UniMath.MoreFoundations.Tactics.