fact: Definition In_dec1: forall {A: Set}, (forall x y : A, {x = y} + {x <> y}) -> forall (a : A) (l : list A), {ll : list A * list A| l = fst ll ++ (a :: snd ll)} + {~ In a l}.
imports: List Arith Tactic Inverse_Image Wf_nat