fact: Fixpoint product_init_zip (xi:Tensor) (alpha beta:Reals) (n:nat) {struct n}: Tensor := match n with | O => xi | S n' => right_product (left_product (product_init_zip xi alpha beta n') (Str_nth n' alpha)) (Str_nth n' beta) end.
imports: digits Refining_T quadratic Streams_addenda rep RIneq QArithSternBrocot(R_addenda)