fact: Definition AtomToGoal g := match g with | InInt32 _ => Reify.Glele (Tree.Econst (Tree.Int (- Int32.N / 2))) (Tree.Econst (Tree.Int (Int32.N / 2 - 1))) | InInt51 _ => Reify.Glele (Tree.Econst (Tree.Int (-2251799813685248))) (Tree.Econst (Tree.Int 2251799813685247)) | InInt64 _ => Reify.Glele (Tree.Econst (Tree.Int (- Int64.N / 2))) (Tree.Econst (Tree.Int (Int64.N / 2 - 1))) | InFloat64 _ => Reify.Gabsle true (Tree.Ebinary Tree.Mul (Tree.Ebinary Tree.Sub (Tree.Econst (Tree.Bpow 2 53)) (Tree.Econst (Tree.Int 1))) (Tree.Econst (Tree.Bpow 2 971))) | InFloat64Int _ => Reify.Gabsle true (Tree.Econst (Tree.Bpow 2 53)) | NonZero _ => Reify.Gne true (Tree.Econst (Tree.Int 0)) | NonNeg _ => Reify.Gge true (Tree.Econst (Tree.Int 0)) | _ => Reify.Glt (Tree.Evar O) 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