Variable X : Type.
Variable P : list X -> Prop.
Hypothesis B : (forall x : X, P [x]).
Hypothesis S : (forall x A, P A -> P (x :: A)).

(* Specifications: *)
Lemma list_ind_ne A : A <> [] -> P A.
End neList.
Lemma list_ind_ne A : A <> [] -> P A.
End neList.