diff options
Diffstat (limited to 'src/Util/HList.v')
-rw-r--r-- | src/Util/HList.v | 6 |
1 files changed, 5 insertions, 1 deletions
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. |