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.

(* Specialized induction rules *)
Lemma list_ind_singleton@{u}
: forall {T : Type@{u}} (P : list T -> Prop)
(Hnil : P nil)
(Hsingle : forall t, P (t :: nil))
(Hcons : forall t u us, P (u :: us) -> P (t :: u :: us)),
forall ls, P ls.