Section EqDec.
Universe u.
Variable T : Type@{u}.
Variable EqDec_T : EquivDec.EqDec _ (@eq T).
Global Instance EqDec_list@{} : EquivDec.EqDec _ (@eq (list T)).
End EqDec.

Lemma list_rev_ind@{u}
: forall (T : Type@{u}) (P : list T -> Prop),
P nil ->
(forall l ls, P ls -> P (ls ++ l :: nil)) ->
forall ls, P ls.