Lemma padicplusisbinopapartr : isbinopapartr padicapart padicplus. Proof. intros. unfold isbinopapartr. intros a b c. unfold padicplus. rewrite ( @ringcomm1 commringofpadicints b a ). rewrite ( @ringcomm1 commringofpadicints c a ). apply padicplusisbinopapartl. Defined.
Require Import UniMath.PAdics.lemmas. Require Import UniMath.PAdics.fps. Require Import UniMath.PAdics.frac. Require Import UniMath.PAdics.z_mod_p. Require Import UniMath.NumberSystems.Integers.