summaryrefslogtreecommitdiff
path: root/lib/coq
diff options
context:
space:
mode:
authorBrian Campbell2018-09-13 16:44:46 +0100
committerBrian Campbell2018-09-17 17:03:00 +0100
commitc6a03fe03e9e19978cceb64562acfffd7ca066ea (patch)
treeec639e792ddd803d79ab4297684068393a6ee6a9 /lib/coq
parent4d410d7c2497d89efe6e756bec035ee5b0e8ba04 (diff)
Coq: make generic_neq work on real
Diffstat (limited to 'lib/coq')
-rw-r--r--lib/coq/Sail2_real.v5
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).