fact: Definition size_of_reachable_from_item' (size_of_reachable_from_productions : forall {pats}, reachable_from_productions G ch valid pats -> nat) {it} (p : reachable_from_item G ch valid it) : nat := match p with | ReachableTerminal _ _ => 0 | ReachableNonTerminal _ _ p' => S (size_of_reachable_from_productions p') end.
imports: Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.Reachable.OnlyLast.Reachable Fiat.Parsers.BaseTypes