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 andp_assoc' {A}{NA: NatDed A}:
forall P Q R : A, Q && (P && R) = P && (Q && R).