End plistFun.
Section plistOk.
Context {A : Type}.
Context {RelDecA : RelDec (@eq A)}.
Context {RelDecA_Correct : RelDec_Correct RelDecA}.

(* Specifications: *)
Lemma inb_sound (x : A) (lst : plist A) (H : inb x lst = true) : pIn x lst.
Lemma inb_complete (x : A) (lst : plist A) (H : pIn x lst) : inb x lst = true.
Lemma nodup_sound (lst : plist A) (H : nodup lst = true) : pNoDup lst.
Lemma nodup_complete (lst : plist A) (H : pNoDup lst) : nodup lst = true.
End plistOk.