fact: Fixpoint add_aux addP P v Q := match Q with | Pconst _ => PX P v Q | PX Q1 w Q2 => match v ?= w with | LT => PX Q1 w (add_aux addP P v Q2) | EQ => PXguard (addP Q1) v Q2 | GT => PX P v Q end end.
imports: HoTT.Classes.interfaces.abstract_algebra HoTT.Classes.theory.additional_operations HoTT.Classes.tactics.ring_quote HoTT.Classes.theory.rings