fact: Definition pb_new_level (ch : Char) (start_level : nat) : nat := if is_bin_op ch then start_level else if is_open ch then (S start_level) else if is_close ch then (pred start_level) else start_level.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Strings.String Coq.Lists.List Coq.ZArith.ZArith Fiat.Parsers.ContextFreeGrammar.Core Fiat.Parsers.BaseTypes Fiat.Common.List.Operations Fiat.Common Fiat.Common.List.ListFacts Fiat.Common.Enumerable Fiat.Common.LogicFacts Fiat.Common.Equality