fact: Record comp_graph := { nodes : hemi_comp_graph ; conodes : hemi_comp_graph ; edges : {ffun port -> port} ; edom := graph_dom nodes ; edom_codom : edges @: edom = graph_dom conodes ; edges_inj : {in edom &, injective edges}; edges_out : {in ~: edom, edges =1 ssrfun.id} }.
imports: mathcomp(all_ssreflect ssralg fingroup zmodp poly ssrnum) mathcomp(matrix perm) ssr_ext ssralg_ext fdist subgraph_partition tanner