From 5901c9fa39702c8e08217fa470ead9dba7264274 Mon Sep 17 00:00:00 2001 From: Jade Philipoom Date: Tue, 27 Mar 2018 11:22:03 +0200 Subject: pass-through after Andres's review in #334 --- src/Util/ListUtil.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Util/ListUtil.v') diff --git a/src/Util/ListUtil.v b/src/Util/ListUtil.v index e162c2daf..2aab77aca 100644 --- a/src/Util/ListUtil.v +++ b/src/Util/ListUtil.v @@ -1879,7 +1879,7 @@ Ltac expand_lists _ := end; subst v; reflexivity ]. -Lemma list_rect_to_match A (P:list A -> Type) (Pnil: P nil) (PS: forall a tl, P (a :: tl)) ls : +Lemma single_list_rect_to_match A (P:list A -> Type) (Pnil: P nil) (PS: forall a tl, P (a :: tl)) ls : @list_rect A P Pnil (fun a tl _ => PS a tl) ls = match ls with | cons a tl => PS a tl | nil => Pnil -- cgit v1.2.3