From 7fff12d45c4d86fa5cb9be3883084ffef5911405 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 30 May 2017 20:04:31 -0400 Subject: Break circular dependency in MExtraction Described in https://github.com/coq/coq/pull/515#discussion_r119230833 --- plugins/micromega/MExtraction.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'plugins') diff --git a/plugins/micromega/MExtraction.v b/plugins/micromega/MExtraction.v index c976aeb37..4d5c3b1d5 100644 --- a/plugins/micromega/MExtraction.v +++ b/plugins/micromega/MExtraction.v @@ -38,11 +38,11 @@ Extract Inductive sumor => option [ Some None ]. Let's rather use the ocaml && *) Extract Inlined Constant andb => "(&&)". -Require Import Reals. +Import Reals.Rdefinitions. -Extract Constant R => "int". -Extract Constant R0 => "0". -Extract Constant R1 => "1". +Extract Constant R => "int". +Extract Constant R0 => "0". +Extract Constant R1 => "1". Extract Constant Rplus => "( + )". Extract Constant Rmult => "( * )". Extract Constant Ropp => "fun x -> - x". -- cgit v1.2.3