fact: Fixpoint Psucc t := match t with | CInt _ | CBinFl _ _ => t | CVar n => CVar (S n) | COp OP t1 t2 => COp OP (Psucc t1) (Psucc t2) | CRnd md t' => CRnd md (Psucc t') | CNearbyint t' => CNearbyint (Psucc t') | CTrunc t' => CTrunc (Psucc t') | CLdexp t' p => CLdexp (Psucc t') (Psucc p) | CSqrt t' => CSqrt (Psucc t') 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