diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2016-11-11 15:45:44 -0500 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2016-11-11 15:45:44 -0500 |
| commit | 3bd1f4011a75eed0c24b1a83966578ceade717d3 (patch) | |
| tree | 1935adb508e4885494933e7b74edbedcbcb81174 /src/Util/HList.v | |
| parent | 37167250d6f02a187c91702ecbfb66f6ca19f925 (diff) | |
prove last HList admit
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. |