fact: Fixpoint bfsort (b : bool) m : network (`2^ m) := if m is m1.+1 then nmerge (bfsort b m1) (bfsort (~~b) m1) ++ half_cleaner_rec b m1.+1 else [::].
imports: mathcomp(all_ssreflect perm algebra.zmodp) mathcomp(zify) more_tuple nsort