fact: Definition find_after_last_char_such_that' {Char} {HSLM : StringLikeMin Char} {HSL : StringLike Char} (P : Char -> bool) (len : nat) (str : String) : nat := nat_rect (fun _ => nat) 0 (fun len' otherwise => match get len' str with | Some ch => if P ch then S len' else otherwise | None => otherwise end) len.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Fiat.Parsers.StringLike.Core Fiat.Parsers.StringLike.Properties Fiat.Parsers.StringLike.ForallChars Fiat.Parsers.StringLike.LastChar Fiat.Common