fact: Fixpoint fold_split (le lp lc : list expr) := match le with | nil => (lp, lc) | e :: le => let (lp, lc) := fold_split le lp lc in match split_expr e lp lc with | Sconst => (lp, (rcons_unique e lc)) | Scomposed lp lc => (lp, lc) end end.
imports: Coq(ZArith Reals List Psatz) Xreal Tree