fact: Fixpoint eq_seq T f (s1 s2 : seq T) := match s1, s2 with | [::], [::] => true | x1 :: s1', x2 :: s2' => f x1 x2 && eq_seq f s1' s2' | _, _ => false end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat div seq ssralg) mathcomp(path choice fintype tuple finset bigop poly matrix mxpoly) CoqEAL(hrel param refinements trivial_seq)