proposition: Lemma Bounded_M_Incl_M_L_folded: forall mu, Bounded_M mu -> (forall r, (-1 <= r <= 1)%R -> (-1 <= as_Moebius mu r <= 0)%R) -> Incl_M mu LL.
proof: Proof. intros mu H_bound; generalize (Bounded_M_denom_nonvanishing_M mu H_bound); apply Incl_M_L_folded. Qed.
imports: digits Raxioms RIneq QArithSternBrocot(R_addenda) Fourier_solvable_ineqs Bounded_M