From e4043e51ed4b4dcee7096df2d55ac049033b1d68 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Tue, 15 Nov 2022 11:43:13 +0100
Subject: Make minor modifications to the extraction

---
 tests/coq/betree/Primitives.v          | 2 --
 tests/coq/hashmap/Primitives.v         | 2 --
 tests/coq/hashmap_on_disk/Primitives.v | 2 --
 tests/coq/misc/Primitives.v            | 2 --
 4 files changed, 8 deletions(-)

(limited to 'tests/coq')

diff --git a/tests/coq/betree/Primitives.v b/tests/coq/betree/Primitives.v
index 9a97d6c7..ae961ac2 100644
--- a/tests/coq/betree/Primitives.v
+++ b/tests/coq/betree/Primitives.v
@@ -259,8 +259,6 @@ Definition scalar_cast (src_ty tgt_ty : scalar_ty) (x : scalar src_ty) : result
   mk_scalar tgt_ty (to_Z x).
 
 (** Comparisons *)
-Print Z.leb .
-
 Definition scalar_leb {ty : scalar_ty} (x : scalar ty) (y : scalar ty) : bool :=
   Z.leb (to_Z x) (to_Z y) .
 
diff --git a/tests/coq/hashmap/Primitives.v b/tests/coq/hashmap/Primitives.v
index 9a97d6c7..ae961ac2 100644
--- a/tests/coq/hashmap/Primitives.v
+++ b/tests/coq/hashmap/Primitives.v
@@ -259,8 +259,6 @@ Definition scalar_cast (src_ty tgt_ty : scalar_ty) (x : scalar src_ty) : result
   mk_scalar tgt_ty (to_Z x).
 
 (** Comparisons *)
-Print Z.leb .
-
 Definition scalar_leb {ty : scalar_ty} (x : scalar ty) (y : scalar ty) : bool :=
   Z.leb (to_Z x) (to_Z y) .
 
diff --git a/tests/coq/hashmap_on_disk/Primitives.v b/tests/coq/hashmap_on_disk/Primitives.v
index 9a97d6c7..ae961ac2 100644
--- a/tests/coq/hashmap_on_disk/Primitives.v
+++ b/tests/coq/hashmap_on_disk/Primitives.v
@@ -259,8 +259,6 @@ Definition scalar_cast (src_ty tgt_ty : scalar_ty) (x : scalar src_ty) : result
   mk_scalar tgt_ty (to_Z x).
 
 (** Comparisons *)
-Print Z.leb .
-
 Definition scalar_leb {ty : scalar_ty} (x : scalar ty) (y : scalar ty) : bool :=
   Z.leb (to_Z x) (to_Z y) .
 
diff --git a/tests/coq/misc/Primitives.v b/tests/coq/misc/Primitives.v
index 9a97d6c7..ae961ac2 100644
--- a/tests/coq/misc/Primitives.v
+++ b/tests/coq/misc/Primitives.v
@@ -259,8 +259,6 @@ Definition scalar_cast (src_ty tgt_ty : scalar_ty) (x : scalar src_ty) : result
   mk_scalar tgt_ty (to_Z x).
 
 (** Comparisons *)
-Print Z.leb .
-
 Definition scalar_leb {ty : scalar_ty} (x : scalar ty) (y : scalar ty) : bool :=
   Z.leb (to_Z x) (to_Z y) .
 
-- 
cgit v1.2.3