Local Open Scope logic.
(*Require Import tweetnacl20140427.split_array_lemmas.*)
unfold Byte.max_unsigned, Int.max_unsigned. simpl. omega. Qed.

Lemma In_force_lengthn {A} d u: forall n l, @In A u (force_lengthn n l d) -> In u l \/ u=d.
Lemma In_force_lengthn_n {A} d u: forall n l (L:(length l >=n)%nat), @In A u (force_lengthn n l d) -> In u l.
Lemma In_skipn {A} (u:A): forall n l, In u (skipn n l) -> In u l.