fact: Definition compute_next_bin_op'_step := (fun ch next level => if is_bin_op ch then if Compare_dec.gt_dec level 0 then option_map S (next level) else Some 0 else if is_open ch then option_map S (next (S level)) else if is_close ch then if Compare_dec.gt_dec level 0 then option_map S (next (pred level)) else None else option_map S (next level)).
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Lists.List Coq.ZArith.ZArith Fiat.Common Fiat.Common.List.Operations Fiat.Common.List.ListFacts Fiat.Common.SetoidInstances Fiat.Parsers.Reachable.ParenBalanced.Core Fiat.Parsers.StringLike.Core Fiat.Parsers.StringLike.Properties Fiat.Parsers.StringLike.FirstChar Fiat.Parsers.Refinement.BinOpBrackets.ParenBalanced