From 6a8f392badaf7b736651d8349a4eaced47fa2d5e Mon Sep 17 00:00:00 2001 From: Jasper Hugunin Date: Fri, 29 Jun 2018 17:31:25 -0700 Subject: Make all parameters implicit --- src/Arithmetic/BarrettReduction/RidiculousFish.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Arithmetic') diff --git a/src/Arithmetic/BarrettReduction/RidiculousFish.v b/src/Arithmetic/BarrettReduction/RidiculousFish.v index e3f00d7a9..908e098b8 100644 --- a/src/Arithmetic/BarrettReduction/RidiculousFish.v +++ b/src/Arithmetic/BarrettReduction/RidiculousFish.v @@ -32,7 +32,7 @@ Definition wrap (bits val : Z) : Z := val mod 2^bits. (** A [word] is a C data type with a specified bit size. *) Inductive word (bits : Z) := -| Word : Z -> word bits. +| Word (v : Z). Definition to_Z {bits : Z} (a : word bits) : Z := match a with Word v => v end. -- cgit v1.2.3