Ltac pull_left A := repeat (rewrite <- (pull_right A) || rewrite <- (pull_right0 A)).
Ltac pull_right A := repeat (rewrite (pull_right A) || rewrite (pull_right0 A)).

Lemma derives_extract_prop {A} `{ageable A}:
forall (P: Prop) (Q R: pred A), (P -> Q |-- R) ->  !!P && Q |-- R.