proposition: Lemma Psize_Zlog2 (p: positive) : Zpos (Pos.size p) = Z.succ (Z.log2 (Zpos p)).
proof: Proof. destruct p; simpl; rewrite ?Pos.add_1_r; reflexivity. Qed.
imports: CoRN.algebra.RSetoid CoRN.metric2.Metric CoRN.metric2.UniformContinuity Coq.NArith.Ndigits Coq.ZArith.ZArith Coq.Program.Basics Coq.QArith.Qpower CoRN.stdlib_omissions.Z