diff options
| -rw-r--r-- | lib/coq/Sail2_real.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/coq/Sail2_real.v b/lib/coq/Sail2_real.v index 49023d4c..23070935 100644 --- a/lib/coq/Sail2_real.v +++ b/lib/coq/Sail2_real.v @@ -1,6 +1,11 @@ Require Export Rbase. Require Import Reals. Require Export ROrderedType. +Require Import Sail2_values. + +(* "Decidable" in a classical sense... *) +Instance Decidable_eq_real : forall (x y : R), Decidable (x = y) := + Decidable_eq_from_dec Req_dec. Definition realFromFrac (num denom : Z) : R := Rdiv (IZR num) (IZR denom). |