fact: Fixpoint map2 (s1 : seq C) (s2 : seq C) : seq C := match s1, s2 with | _, [::] => s1 | [::], b :: s4 => op' b :: map2 [::] s4 | a :: s3, b :: s4 => op a b :: map2 s3 s4 end.
imports: Coq(Rdefinitions Raxioms RIneq Rbasic_fun) mathcomp.ssreflect(ssreflect ssrfun ssrbool eqtype ssrnat seq bigop) MathComp1or2