From 79c848f7b252849c8b99430eb6d7b3dd3920a88a Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Wed, 19 Oct 2016 13:20:55 -0400 Subject: Add Tuple.map2 --- src/Util/ListUtil.v | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Util/ListUtil.v') diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index 749b1b09f..84553d64b 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -1494,6 +1494,8 @@ Proof. rewrite map2_cons, !length_cons, IHls1. auto. Qed. +Hint Rewrite @map2_length : distr_length. + Ltac simpl_list_lengths := repeat match goal with | H : appcontext[length (@nil ?A)] |- _ => rewrite (@nil_length0 A) in H -- cgit v1.2.3