fact: Fixpoint interp_side_equa_in_N s (rho : list Rseq) : option Rseq := match s with | cst r => Return (constant_seq r) | scal r e => Bind (interp_side_equa_in_N e rho) (fun un => Return (r * un)) | y i k a => Bind (nth_error rho i) (fun un => Return (An_expand (An_nth_deriv un k) a)) | opp e => Bind (interp_side_equa_in_N e rho) (fun un => Return (- un)) | min e1 e2 => Bind (interp_side_equa_in_N e1 rho) (fun un => Bind (interp_side_equa_in_N e2 rho) (fun vn => Return (un - vn))) | plus e1 e2 => Bind (interp_side_equa_in_N e1 rho) (fun un => Bind (interp_side_equa_in_N e2 rho) (fun vn => Return (un + vn))) | mult e1 e2 => Bind (interp_side_equa_in_N e1 rho) (fun un => Bind (interp_side_equa_in_N e2 rho) (fun vn => Return (un # vn))) end.
imports: Reals Rpser_def Rpser_sums Rpser_usual Rpser_derivative Rfunction_classes Nth_derivative_def Rfunction_def Functions Rsequence_def List Option