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 *)

(* These lemmas should probably be in veric. *)
Lemma exp_comm : forall {A B} P,
(EX x : A, EX y : B, P x y) = EX y : B, EX x : A, P x y.