End OCCUR.
Section APPEND.
Variable data : Set.
Fixpoint append (q : queue data) : queue data -> queue data :=
fun q2 : queue data =>
match q with
| empty => q2
| input d q' => input data d (append q' q2)
end.

Lemma first_input :
forall (d0 d1 : data) (q : queue data),
first data (input data d0 (input data d1 q)) = first data (input data d1 q).