fact: Fixpoint well_formed {Tl} : evalExprTypeReal_list Tl -> _ := match Tl with | nil => fun _ vars _ => vars = nil | _ :: Tl' => fun lR vars l => let x := fst lR in let lR' := snd lR in match vars with | nil => False | (t, b) :: vars' => (b = true -> compatible t = true) /\ (evalCArithExpr2 t l) = x /\ well_formed lR' vars' l 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