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