addP P v Q := match Q with | Pconst _ => PX P v Q | PX Q1 w Q2 => match v ?= w with | LT => PX Q1 w ( addP P v Q2) | EQ => PXguard (addP Q1) v Q2 | GT => PX P v Q end end.
Require Import Import Quoting.