fact: Fixpoint add_seqpoly_fun (p q : seqpoly) : seqpoly := match p,q with | [::], q => q | p, [::] => p | a :: p', b :: q' => a + b :: add_seqpoly_fun p' q' end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq ssralg) mathcomp(path choice fintype tuple finset bigop poly polydiv) CoqEAL(hrel param refinements poly_op)