fact: Definition degree (p : polynomial) : Z := match List.map (@snd _ _) (List.filter (fun '(coeff, _) => negb (Qeq_bool coeff 0)) p) with | [] => 0%Z | e :: rest => List.fold_right Z.max e rest end.
imports: Coq.Strings.String Coq.Structures.Orders Coq.micromega.Lia Coq.Bool.Bool Coq.Sorting.Mergesort Coq.QArith.QArith Coq.QArith.Qround Coq.QArith.Qabs Coq.QArith.Qminmax Coq.NArith.NArith Coq.ZArith.ZArith Coq.Arith.Arith Coq.Lists.List PerformanceExperiments.LetIn