Lemma hzqrandselfq ( p : hz ) ( x : hzneq 0 p ) : hzquotientmod p x p = 1. Proof. intros. apply pathsinv0. apply ( hzqrtestq p x p 1 0 ). split. - apply ( hzqrandselfeq p x ). - apply ( hzqrandselfineq p x ). Defined.
Require Import UniMath.PAdics.lemmas. Require Import UniMath.NumberSystems.Integers. Require Import UniMath.Foundations.Preamble.