Lemma istight_CCDRap : ∏ x y : X, ¬ (x ≠ y) → x = y. Proof. exact (istight_CDRap (X := ConstructiveCommutativeDivisionRig_ConstructiveDivisionRig X)). Qed.
Require Import UniMath.MoreFoundations.Tactics.