fact: Fixpoint depth_h (mu:Matrix) (alpha:Reals) (H1:emits_h mu alpha) {struct H1}: nat := match Incl_M_dec_D mu LL with | left _ => 0 | right H_emission_L => match Incl_M_dec_D mu RR with | left _ => 0 | right H_emission_R => match Incl_M_dec_D mu MM with | left _ => 0 | right H_emission_M => S(depth_h (product mu (Streams.hd alpha)) (Streams.tl alpha) (emits_h_absorbs_inv mu alpha H_emission_L H_emission_R H_emission_M H1)) end end end.
imports: digits Refining_M homographic Streams_addenda RIneq QArithSternBrocot(R_addenda) rep