fact: Fixpoint simplifyCProp p := match p with | CFalse => CFalse | CTrue => CTrue | CAtom i => CAtom i | CAnd p1 p2 => match simplifyCProp p1, simplifyCProp p2 with | CTrue, p' | p', CTrue => p' | p1', p2' => CAnd p1' p2' end 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