fact: Fixpoint modulus_q (xi:Tensor) (alpha beta:Reals) (H1:emits_q xi alpha beta) {struct H1} : prodT Digit (prodT Tensor (prodT Reals Reals)) := match Incl_T_dec_D xi LL with | left _ => pairT LL (pairT (m_product inv_LL xi) (pairT alpha beta)) | right H_emission_L => match Incl_T_dec_D xi RR with | left _ => pairT RR (pairT (m_product inv_RR xi) (pairT alpha beta)) | right H_emission_R => match Incl_T_dec_D xi MM with | left _ => pairT MM (pairT (m_product inv_MM xi) (pairT alpha beta)) | right H_emission_M => modulus_q (right_product (left_product xi (hd alpha)) (hd beta)) (tl alpha) (tl beta) (emits_q_absorbs_inv xi alpha beta H_emission_L H_emission_R H_emission_M H1) end end end.
imports: digits