fact: Fixpoint par_mergerest Al (bl : list bool) P := match Al with | nil => P | p :: Al' => match bl with | nil => merge Al' (CAnd P (CAtom p)) | b :: bl' => let P' := if b then P else (CAnd P (CAtom p)) in par_mergerest Al' bl' P' 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