fact: Fixpoint BTreeToList_aux bt acc := match bt with | Void => acc | Leaf i => i :: acc | Node bt1 bt2 => let acc' := BTreeToList_aux bt2 acc in BTreeToList_aux bt1 acc' 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