fact: Fixpoint member (A : Type) (n : A) (l : list A) {struct l} : CProp := match l with | nil => False | cons y m => member A n m or y = n end.
imports: Coq.Arith.Compare_dec CoRN.logic.CornBasics Coq.ZArith.ZArith Coq.setoid_ring.ZArithRing Coq.Arith.Wf_nat Coq(Lia)