From bc670dd9081811f55310bc3e2ea7432095fb3ef1 Mon Sep 17 00:00:00 2001 From: Andres Erbsen Date: Mon, 8 Aug 2016 12:50:52 -0400 Subject: [cbv beta] in the beginning of Obligation Tactic for 8.5 --- src/Spec/ModularArithmetic.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Spec') diff --git a/src/Spec/ModularArithmetic.v b/src/Spec/ModularArithmetic.v index 80638ff58..95d7d4e75 100644 --- a/src/Spec/ModularArithmetic.v +++ b/src/Spec/ModularArithmetic.v @@ -22,7 +22,7 @@ Local Open Scope Z_scope. Module F. Definition F (m : BinInt.Z) := { z : BinInt.Z | z = z mod m }. - Local Obligation Tactic := auto using Pre.Z_mod_mod. + Local Obligation Tactic := cbv beta; auto using Pre.Z_mod_mod. Program Definition of_Z m (a:BinNums.Z) : F m := a mod m. Definition to_Z {m} (a:F m) : BinNums.Z := proj1_sig a. -- cgit v1.2.3