Definition Forall_tl (A : Type) (P : A -> Prop) (a : A) (l : list A)
           (H : Forall P (a :: l)): Forall P l.

Theorem xor_inrange : forall (x y : Z), x = x mod Byte.modulus -> y = y mod Byte.modulus -> Z.lxor x y = (Z.lxor x y) mod Byte.modulus.