Instance Inhabitant_share : Inhabitant share := Share.bot. (* TODO: remove this, it's already in sublist.v *)
Instance Inhabitant_mpred : Inhabitant mpred := @FF mpred Nveric. (* TODO: remove this, it's already in sublist.v *)

Lemma extract_wand_sepcon : forall l P, In P l ->
fold_right sepcon emp l = P * (P -* fold_right sepcon emp l).