fact: Fixpoint toList {Tl} : evalExprTypeReal_list Tl -> list R := match Tl with | nil => fun _ => nil | _ :: Tl' => fun l => let x := fst l in let l' := snd l in x :: toList l' end.
imports: Coq(Bool Floats Reals List Lia Lra) Flocq(Core PrimFloat BinarySingleNaN Operations) Specific_bigint Specific_ops Interval_helper Float_full Prog Lang_expr