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 --- backends/coq/Primitives.v | 2 -- 1 file changed, 2 deletions(-) (limited to 'backends/coq') diff --git a/backends/coq/Primitives.v b/backends/coq/Primitives.v index 9a97d6c7..ae961ac2 100644 --- a/backends/coq/Primitives.v +++ b/backends/coq/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