fact: Fixpoint dotmuldiv (u : U) (a b : seq Z) (p : T) : T := match a, b, p with | a0 :: a1, b0 :: b1, p0 :: p1 => C.mul u (C.div u (C.fromZ u a0) (C.fromZ u b0)) p0 :: dotmuldiv u a1 b1 p1 | _, _, _ => [::] end.
imports: Coq(ZArith Reals) Coquelicot(Coquelicot) mathcomp.ssreflect(ssreflect ssrfun ssrbool eqtype ssrnat seq fintype bigop) Flocq(Core) Stdlib MathComp Interval Xreal Basic_rec