fact: Fixpoint regex_language (e: regex): language := match e with | RegExp.plus e f => regex_language e + regex_language f | RegExp.dot e f => regex_language e * regex_language f | RegExp.star e => regex_language e # | RegExp.one => 1 | RegExp.zero => 0 | RegExp.var a => (fun w => w = a::nil) end.
imports: Coq(List) ATBR(Common) ATBR(Classes) ATBR(Graph) ATBR(Monoid) ATBR(SemiLattice) ATBR(SemiRing) ATBR(KleeneAlgebra) ATBR(MxGraph) ATBR(MxSemiLattice) ATBR(MxSemiRing) ATBR(MxKleeneAlgebra) ATBR(Functors) ATBR(MxFunctors) ATBR(DKA_Definitions) ATBR(Model_Languages)