fact: Definition natnat_to_nat3_inv n := let r := nn_to_n_split (list_of_num (bin_of_nat n)) in (nat_of_list r.1, nat_of_list r.2).
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)