fact: Definition paren_balanced''_production_step (hiding : bool) := fun (it : item Char) (rest_balanced : nat -> bool) level => let predata := @rdp_list_predata _ G in match it with | Terminal P => ((pb_check_level_fun hiding P level) && match pb_new_level_fun P level with | new_level::nil => rest_balanced new_level | _ => false end)%bool | NonTerminal nt => (if (hiding && Compare_dec.zerop level) then is_valid_nonterminal pbh_nts (of_nonterminal nt) else is_valid_nonterminal pb_nts (of_nonterminal nt)) && rest_balanced level end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Lists.List Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.ZArith.ZArith Fiat.Parsers.Splitters.RDPList Fiat.Parsers.Refinement.BinOpBrackets.ParenBalanced Fiat.Parsers.Reachable.ParenBalanced.Core Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.ContextFreeGrammar.PreNotations Fiat.Parsers.BaseTypes Fiat.Parsers.StringLike.Properties Fiat.Common.Equality Fiat.Common.List.Operations Fiat.Common Fiat.Common.Enumerable Fiat.Common.FixedPoints