fact: Fixpoint switch_step_dist_it (lam rho : NormalizedDegreeDistribution.L K) c r (ts : seq {ffun port -> port * {set port}}) := match ts with | [::] => (c, r) | t :: ts => let b := enum (border (nodes c)) in let (c', r') := step_dist_it lam c r (map t b) in switch_step_dist_it rho lam (switch c') r' ts end.
imports: mathcomp(all_ssreflect ssralg fingroup zmodp poly ssrnum) mathcomp(matrix perm) ssr_ext ssralg_ext fdist subgraph_partition tanner