proposition: Lemma pos_of_natK n: nat_of_pos (pos_of_nat' n) = n.+1.
proof: Proof. exact: (bin_of_natK n.+1). Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq choice fintype order bigop ssralg) mathcomp(div ssrnum ssrint rat prime path binomial) mathcomp(tuple finset) gaia(fibm)