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 semax_extract_later_prop'':
forall {CS : compspecs} {Espec: OracleKind},
forall (Delta : tycontext) (PP : Prop) P Q R c post P1 P2,
P2 |-- !!PP ->
(PP -> semax Delta (PROPx P (LOCALx Q (SEPx (P1 && |>P2 :: R)))) c post) ->
semax Delta (PROPx P (LOCALx Q (SEPx (P1 && |>P2 :: R)))) c post.