diff options
Diffstat (limited to 'src/Util/ListUtil.v')
| -rw-r--r-- | src/Util/ListUtil.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index 9931fb9b1..169564c23 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -1126,3 +1126,12 @@ Hint Rewrite @firstn_update_nth : push_firstn. Hint Rewrite @firstn_update_nth : pull_update_nth. Hint Rewrite <- @firstn_update_nth : pull_firstn. Hint Rewrite <- @firstn_update_nth : push_update_nth. + +Require Import Coq.Lists.SetoidList. +Global Instance Proper_nth_default : forall A eq, + Proper (eq==>eqlistA eq==>Logic.eq==>eq) (nth_default (A:=A)). +Proof. + do 5 intro; subst; induction 1. + + repeat intro; rewrite !nth_default_nil; assumption. + + repeat intro; subst; destruct y0; rewrite ?nth_default_cons, ?nth_default_cons_S; auto. +Qed.
\ No newline at end of file |