proposition: Lemma padicapartcomputation ( a b : fpscommring hz ) : ( pr1 padicapart ) ( setquotpr ( carryequiv p ( isaprimetoneq0 is ) ) a ) ( setquotpr ( carryequiv p ( isaprimetoneq0 is ) ) b ) = padicapart0 a b.
proof: Proof. intros. apply hPropUnivalence. - intros i. apply i. - intro u. apply u. Defined.
imports: UniMath.PAdics.lemmas UniMath.PAdics.fps UniMath.PAdics.frac UniMath.PAdics.z_mod_p UniMath.NumberSystems.Integers