proposition: Lemma Posz_nat_of_pos_neq0 p : Posz (nat_of_pos p) == 0%R = false.
proof: Proof. rewrite -binnat.to_natE. case E: (Pos.to_nat _)=>//; exfalso; move: E. by move: (binnat.to_nat_gt0 p); case (Pos.to_nat _). Qed.
imports: ZArith QArith Lia Bignums(BigQ) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat order) mathcomp(ssralg ssrnum ssrint rat div intdiv) CoqEAL.refinements(hrel refinements param binint)