Definition fashionable  (P: pred nat) := # P = P.
Notation "P '>=>' Q" := (# (P --> Q)) (at level 55, right associativity) : pred.
Notation "P '<=>' Q" := (# (P <--> Q)) (at level 57, no associativity) : pred.

Lemma subp_orp {A} `{ageable A} : forall G P P' Q Q',
G |-- P >=> P' ->
G |-- Q >=> Q' ->
G |-- (P || Q) >=> (P' || Q').