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) ->  Q && !!P|-- R.