fact: Definition simple_parse_of_production_correct_step (str : String) (pat : production Char) (t : simple_parse_of_production) : Prop := match t with | SimpleParseProductionNil => length str = 0 /\ pat = nil | SimpleParseProductionCons t' ts' => match pat with | nil => False | it::its => exists n, simple_parse_of_item_correct (take n str) it t' /\ simple_parse_of_production_correct (drop n str) its ts' end end.
imports: Coq.Lists.List Fiat.Parsers.ContextFreeGrammar.Core