proposition: Lemma as_Moebius_M_min_one: as_Moebius MM (-1)%R = (-1/3)%R.
proof: Proof. unfold as_Moebius, map_digits, fst, snd; realify_Q; auto; simpl; replace (2+1) with 3; [|ring]; replace (0/1 * -1 + 3 / 1) with 3; field; auto. Qed.
imports: digits QArithSternBrocot(R_addenda) Fourier_solvable_ineqs Fourier Bounded_M