(**********************)
simple induction n. auto with arith. intros. simpl in |- *. auto with arith.
Qed. Hint Resolve length_list_const.
(****************************************************************)
(* rev: renverse une liste *)
Fixpoint rev (l : list A) : list A :=
(************************)
match l return (list A) with
| nil => nil
| b :: l' => rev l' ++ b :: nil
end.

Lemma rev_eq1 : rev nil = nil.
auto with arith. Qed.