diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-06-10 16:43:21 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-06-10 16:43:21 -0400 |
| commit | 969cb56234750c320768ae39e934b18ce2883aef (patch) | |
| tree | 50ceed23e66d66f635d671929f5330f52159defa /src/Util/IterAssocOp.v | |
| parent | ecf5f6fc0d3107eeb8566f56037f28d888a53a1a (diff) | |
8.5 fixes
Diffstat (limited to 'src/Util/IterAssocOp.v')
| -rw-r--r-- | src/Util/IterAssocOp.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Util/IterAssocOp.v b/src/Util/IterAssocOp.v index 6116312e1..82d22046d 100644 --- a/src/Util/IterAssocOp.v +++ b/src/Util/IterAssocOp.v @@ -1,5 +1,7 @@ Require Import Coq.Setoids.Setoid Coq.Classes.Morphisms Coq.Classes.Equivalence. Require Import Coq.NArith.NArith Coq.PArith.BinPosDef. +Require Import Coq.Numbers.Natural.Peano.NPeano. + Local Open Scope equiv_scope. Generalizable All Variables. @@ -147,7 +149,7 @@ Section IterAssocOp. destruct (funexp (test_and_op n a) (x, acc) y) as [i acc']. simpl in IHy. unfold test_and_op. - destruct i; rewrite NPeano.Nat.sub_succ_r; subst; rewrite <- IHy; simpl; reflexivity. + destruct i; rewrite Nat.sub_succ_r; subst; rewrite <- IHy; simpl; reflexivity. Qed. Lemma iter_op_termination : forall sc a bound, |