diff options
| author |  jadep <jade.philipoom@gmail.com> | 2016-04-19 20:59:02 -0400 |
|---|---|---|
| committer | jadep <jade.philipoom@gmail.com> | 2016-04-19 20:59:02 -0400 |
| commit | 7afde2d5e17ffa15915ea6b49c0705883636199a (patch) | |
| tree | 35b9c01728d4dd72b03fcfa80def70e37933f3ce /src/Util/ListUtil.v | |
| parent | d47107f60fbf9c840b57ce7ca639672244ea1468 (diff) | |
Added lemmas to Util/ that are needed for testbit.
Diffstat (limited to 'src/Util/ListUtil.v')
| -rw-r--r-- | src/Util/ListUtil.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index 1f9a62457..d65c65723 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -433,6 +433,12 @@ Proof. auto. Qed. +Lemma nth_default_cons_S : forall {A} us (u0 : A) n d, + nth_default d (u0 :: us) (S n) = nth_default d us n. +Proof. + boring. +Qed. + Lemma set_nth_cons : forall {T} (x u0 : T) us, set_nth 0 x (u0 :: us) = x :: us. Proof. auto. |