comparison src/DataStruct.v @ 115:f6eb1ed8048c

itree exercise
author Adam Chlipala <adamc@hcoop.net>
date Tue, 14 Oct 2008 14:58:33 -0400
parents ccab8a30c05e
children 7163cc09270f
comparison
equal deleted inserted replaced
114:2f97c8177172 115:f6eb1ed8048c
817 repeat (match goal with 817 repeat (match goal with
818 | [ |- context[cfold ?E] ] => dep_destruct (cfold E) 818 | [ |- context[cfold ?E] ] => dep_destruct (cfold E)
819 end; crush). 819 end; crush).
820 Qed. 820 Qed.
821 (* end thide *) 821 (* end thide *)
822
823
824 (** * Exercises *)
825
826 (** Some of the type family definitions from this chapter are duplicated in the [DepList] module of the book source. Only the recursive versions of length-indexed and heterogeneous lists are included, and they are renamed without the [f] prefixes, e.g., [ilist] in place of [filist].
827
828 %\begin{enumerate}%#<ol>#
829
830 %\item%#<li># Define a tree analogue of [hlist]. That is, define a parameterized type of binary trees with data at their leaves, and define a type family [itree] indexed by trees. The structure of an [itree] mirrors its index tree, with the type of each data element (which only occur at leaves) determined by applying a type function to the corresponding element of the index tree. Define a type standing for all possible paths from the root of a tree to leaves and use it to implement a function [tget] for extracting an element of an [itree] by path. Define a function [itmap2] for "mapping over two trees in parallel." That is, [itmap2] takes in two [itree]s with the same index tree, and it forms a new [itree] with the same index by applying a binary function pointwise.
831
832 Repeat this process so that you implement each definition for each of the three definition styles covered in this chapter: inductive, recursive, and reflexive.#</li>#
833
834 #</ol>#%\end{enumerate}% *)