fact: Fixpoint exprsucc t := match t with | Tree.Evar n => Tree.Evar (S n) | Tree.Econst _ => t | Tree.Eunary op t' => Tree.Eunary op (exprsucc t') | Tree.Ebinary op t1 t2 => Tree.Ebinary op (exprsucc t1) (exprsucc t2) 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