proposition: Lemma hzqrandselfr ( p : hz ) ( x : hzneq 0 p ) : hzremaindermod p x p = 0.
proof: Proof. intros. apply pathsinv0. apply ( hzqrtestr p x p 1 0 ). split. - apply ( hzqrandselfeq p x ). - apply ( hzqrandselfineq p x ). Defined.
imports: UniMath.PAdics.lemmas UniMath.NumberSystems.Integers UniMath.Foundations.Preamble