fact: Fixpoint interpret_R (e : Expr_R) : R := match e with | ER_Q q => Q2R q | ER_R r => r | ER_Z z => IZR z | ER_Unary f a => (unary_fun_R f) (interpret_R a) | ER_Binary f a b => (binary_fun_R f) (interpret_R a) (interpret_R b) | ER_Pow a b => pow (interpret_R a) (interpret_N b) end.
imports: Reals ZArith QArith Lra Lia Ltac2.Ltac2 Ltac2.Printf Ltac2.Bool