fact: Parameter sign_large_correct : forall xi, match sign_large xi with | Xeq => forall x, contains (convert xi) x -> x = Xreal 0 | Xlt => forall x, contains (convert xi) x -> x = Xreal (proj_val x) /\ Rle (proj_val x) 0 | Xgt => forall x, contains (convert xi) x -> x = Xreal (proj_val x) /\ Rle 0 (proj_val x) | Xund => True end.
imports: Coq(Bool Reals Psatz) Coquelicot(Coquelicot) Stdlib Xreal Basic