Lemma hqmult2r : ∏ x : hq, x * 2 = x + x. Proof. intros x. now rewrite hq2eq1plus1, hqldistr, (hqmultr1 x). Qed.
Require Import UniMath.Foundations.Preamble. Require Import UniMath.MoreFoundations.Tactics.