From 3bd1f4011a75eed0c24b1a83966578ceade717d3 Mon Sep 17 00:00:00 2001 From: Andres Erbsen Date: Fri, 11 Nov 2016 15:45:44 -0500 Subject: prove last HList admit --- src/Util/HList.v | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Util/HList.v') diff --git a/src/Util/HList.v b/src/Util/HList.v index c1fab2aee..cac84ece2 100644 --- a/src/Util/HList.v +++ b/src/Util/HList.v @@ -121,5 +121,9 @@ Module Tuple. Lemma map_id_ext {n A} (f : A -> A) (xs:tuple A n) : hlist (fun x => f x = x) xs -> Tuple.map f xs = xs. Proof. - Admitted. + destruct n as [|n]; [cbv in *; destruct xs; trivial|]. + induction n as [|n IHn]; [cbv in *;trivial|]. + simpl in *. destruct xs. simpl in *; intros [??]. + rewrite map_S. eauto using f_equal2. + Qed. End Tuple. -- cgit v1.2.3