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