fact: Fixpoint mulC c P := match P with | Pconst d => Pconst (c * d) | PX P v Q => PXguard (mulC c P) v (mulC c Q) end.
imports: HoTT.Classes.interfaces.abstract_algebra HoTT.Classes.theory.additional_operations HoTT.Classes.tactics.ring_quote HoTT.Classes.theory.rings