proposition: Lemma hqmult2r : ∏ x : hq, x * 2 = x + x.
proof: Proof. intros x. now rewrite hq2eq1plus1, hqldistr, (hqmultr1 x). Qed.
imports: UniMath.Foundations.Preamble UniMath.MoreFoundations.Tactics UniMath.Topology.Prelim UniMath.NumberSystems.RationalNumbers UniMath.Algebra.Archimedean