Section Helpers.
Variable A : Type.
Fixpoint onth (s : seq A) n : option A :=
if s is x::sx then if n is nx.+1 then onth sx nx else Some x else None.
Definition prefix s1 s2 :=
forall n x, onth s1 n = some x -> onth s2 n = some x.
(* Lemmas *)
End Helpers.
Hint Resolve prefix_refl : core.

Lemma onth_mem (A : eqType) (s : seq A) n x : onth s n = Some x -> x \in s.