fact: Definition extractCProp {Tl T} (t : ArithExpr Tl T) md := let '(_, _, l, p) := decomposeToCProp t (map add_compatibility (list_var (length Tl))) md in (l, simplifyCProp p).
imports: Coq(Bool Floats Reals List Lia Lra) Flocq(Core PrimFloat BinarySingleNaN Operations) Specific_bigint Specific_ops Interval_helper Float_full Prog Lang_expr