Lemma QSORaddon : SORaddon 0 1 Qplus Qmult Qminus Qopp Qeq Qle (* ring elements *) 0 1 Qplus Qmult Qminus Qopp (* coefficients *) Qeq_bool Qle_bool (fun x => x) (fun x => x) (pow_N 1 Qmult).