proposition: Lemma index_points_to_binop_S2 {HSLP : StringLikeProperties Char} offset index str : index_points_to_binop offset (S index) str <-> index_points_to_binop offset index (drop 1 str).
proof: Proof. rewrite <- index_points_to_binop_S1. unfold index_points_to_binop. replace (offset + S index) with (S offset + index) by omega. reflexivity. 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