fact: CoInductive rep : Reals -> Rdefinitions.R -> Prop := | rep_L : forall alpha beta x, (-1<=x<=1)%R-> rep alpha x -> bisim beta (Cons LL alpha) -> rep beta ((x-1)/(x+3))%R | rep_R : forall alpha beta x, (-1<=x<=1)%R-> rep alpha x -> bisim beta (Cons RR alpha) -> rep beta ((x+1)/((-x)+3))%R | rep_M : forall alpha beta x, (-1<=x<=1)%R-> rep alpha x -> bisim beta (Cons MM alpha) -> rep beta (x/3)%R.
imports: digits Refining_M Streams_addenda Raxioms RIneq QArithSternBrocot(R_addenda) Fourier_solvable_ineqs