fact: Fixpoint poly_mul_cst v p := match p with | Cst c => Cst (andb c v) | Poly p i q => let r := poly_mul_cst v q in if decide (null r) then poly_mul_cst v p else Poly (poly_mul_cst v p) i r end.
imports: Bool PArith DecidableClass Ring Lia