Definition exclusive_mpred (R : mpred) :=
(R * R |-- FF)%logic.
Program Definition weak_exclusive_mpred (P: mpred): mpred :=
fun w => exclusive_mpred (approx (S (level w)) P).
Next Obligation.
intros; hnf; intros.
unfold exclusive_mpred in *.
apply age_level in H.
eapply derives_trans, H0.
apply sepcon_derives; apply approx_derives_ge; omega.
Defined.

Lemma corable_weak_exclusive R : seplog.corable (weak_exclusive_mpred R).