fact: Definition stateset_fold p (f: forall i, A -> StateSet.mem i p = true -> A) a := StateSet.fold (fun i a => match StateSet.mem i p as x return StateSet.mem i p = x -> A with | true => fun H => f i a H | false => fun _ => a end refl_equal) p a.
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)