proposition: Lemma index_not_points_to_binop_spec {HSLP : StringLikeProperties Char} offset index str ch (H : (take 1 (drop (offset + index) str) ~= [ ch ])%string_like) : index_not_points_to_binop offset index str <-> is_bin_op ch = false.
proof: Proof. unfold index_not_points_to_binop. rewrite (for_first_char__take 0). rewrite <- for_first_char_singleton; [ reflexivity | assumption ]. Qed.
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