proposition: Lemma cnf_coefficients_monotone x y: cnfp x -> cnfp y -> (forall e, Vr x e <=c Vr y e) -> cnf_val x <=o cnf_val y.
proof: Proof. move => ox oy hyp. case: (cnf_le_total ox oy). by move /(cnf_le_compat ox oy). move => [_ _]; case. move ->; apply: (oleR (OS_cnf_val ox)). move => [e /cltNge]; case; apply: hyp. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)