fact: Definition language : [ Language ] := Fix Language (fun _ rec => let addop := EAdd <$ char "+" <|> ESub <$ char "-" in let mulop := TMul <$ char "*" <|> TDiv <$ char "/" in let factor := FEmb <$> parens (Induction.map _expr _ rec) <|> FLit <$> decimal_nat in let term := hchainl (TEmb <$> factor) mulop factor in let expr := hchainl (EEmb <$> term) addop term in MkLanguage expr term factor).
imports: parseque(Running Parseque) Coq(Ascii String)