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 wand_sepcon_map : forall {A} (R : A -> mpred) l P Q
(HR : forall i, In i l -> R i = P i * Q i),
fold_right sepcon emp (map R l) = fold_right sepcon emp (map P l) *
(fold_right sepcon emp (map P l) -* fold_right sepcon emp (map R l)).