diff options
author | jadep <jade.philipoom@gmail.com> | 2016-07-25 21:06:20 -0400 |
---|---|---|
committer | jadep <jade.philipoom@gmail.com> | 2016-07-25 21:06:20 -0400 |
commit | 4c73b7273c5fae67154ad9dd8bd3a719e4fbcf5f (patch) | |
tree | f2e60ad282447023ff59330e77ee588657e77e97 /src/ModularArithmetic/Pow2BaseProofs.v | |
parent | 39a6c95de8a900c859726d875cc40ea96298d31b (diff) | |
parent | b9312acc45407a58d07e19e407e9575d427dd6c3 (diff) |
Merge branch 'master' of github.com:mit-plv/fiat-crypto
Diffstat (limited to 'src/ModularArithmetic/Pow2BaseProofs.v')
-rw-r--r-- | src/ModularArithmetic/Pow2BaseProofs.v | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/ModularArithmetic/Pow2BaseProofs.v b/src/ModularArithmetic/Pow2BaseProofs.v index 4b616c288..da9bbac0d 100644 --- a/src/ModularArithmetic/Pow2BaseProofs.v +++ b/src/ModularArithmetic/Pow2BaseProofs.v @@ -4,6 +4,7 @@ Require Import Coq.Lists.List. Require Import Crypto.Util.ListUtil Crypto.Util.ZUtil Crypto.Util.NatUtil. Require Import Crypto.Util.Tactics. Require Import Crypto.ModularArithmetic.Pow2Base Crypto.BaseSystemProofs. +Require Export Crypto.Util.FixCoqMistakes. Require Crypto.BaseSystem. Local Open Scope Z_scope. @@ -779,7 +780,7 @@ Section carrying. (* TODO : move? *) Lemma make_chain_lt : forall x i : nat, In i (make_chain x) -> (i < x)%nat. Proof. - induction x; simpl; intuition. + induction x; simpl; intuition auto with arith lia. Qed. Lemma nth_default_carry_gen_full fc fi d i n us |