fact: Fixpoint product_init (mu:Matrix) (alpha:Reals) (n:nat) {struct n}: Matrix := match n with | O => mu | S n' => product (product_init mu alpha n') (Str_nth n' alpha) end.
imports: digits Refining_M homographic Streams_addenda RIneq QArithSternBrocot(R_addenda) rep