fact: Fixpoint modulus_h (mu:Matrix) (alpha:Reals) (H1:emits_h mu alpha) {struct H1}: prodT Digit (prodT Matrix Reals) := match Incl_M_dec_D mu LL with | left _ => pairT LL (pairT (product inv_LL mu) alpha) | right H_emission_L => match Incl_M_dec_D mu RR with | left _ => pairT RR (pairT (product inv_RR mu) alpha) | right H_emission_R => match Incl_M_dec_D mu MM with | left _ => pairT MM (pairT (product inv_MM mu) alpha) | right H_emission_M => modulus_h (product mu (hd alpha)) (tl alpha) (emits_h_absorbs_inv mu alpha H_emission_L H_emission_R H_emission_M H1) end end end.
imports: digits