fact: Fixpoint tree_of_trace (l : nat) k p : l.-tuple {ffun port -> port * {set port}} -> tree l k := match l as l0 return l0.-tuple {ffun port -> port * {set port}} -> tree l0 k with | 0 => fun _ => Frontier k | l'.+1 => fun seqs => let (ep,en) := (thead seqs) p in Node [seq tree_of_trace (negk k) p' (tbehead seqs) | p' in en :\ ep] end.
imports: mathcomp(all_ssreflect ssralg fingroup zmodp poly ssrnum) mathcomp(matrix perm) ssr_ext ssralg_ext fdist subgraph_partition tanner