End imfset.
Section in_imfset.
Variable (key : unit) (K : choiceType).
Implicit Types (A B : {fset K}) (a b : K).

Lemma in_fset_valT A (p : finmempred _) (k : K) (kA : k \in A) :
(k \in imfset key val p) = in_mem [` kA] p.