fact: Definition rt_closure_aux: state -> statemap stateset -> statemap stateset * stateset := Fix Hwf (fun _ => statemap stateset -> statemap stateset * stateset) (fun i rt_closure_aux acc => match StateMap.find i acc with | Some pi => (acc,pi) | None => let (acc,pi) := stateset_fold (f i) (fun j accp Hj => let '(acc,p) := accp in let (acc,pj) := rt_closure_aux j Hj acc in (acc,StateSet.union pj p) ) (acc,StateSet.singleton i) in (StateMap.add i pi acc, pi) end).
imports: ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(MxGraph) ATBR(MxSemiLattice) ATBR(MxSemiRing) ATBR(MxKleeneAlgebra) ATBR(DKA_Definitions) ATBR(Utils_WF) Coq(Relations) Coq(Eqdep_dec)