Mercurial > cpdt > repo
changeset 30:4887ddb1ad23
Parameterized inductives
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Mon, 08 Sep 2008 15:38:34 -0400 |
parents | add8215ec72a |
children | 1a82839f83b7 |
files | src/InductiveTypes.v src/StackMachine.v |
diffstat | 2 files changed, 95 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/InductiveTypes.v Mon Sep 08 15:23:04 2008 -0400 +++ b/src/InductiveTypes.v Mon Sep 08 15:38:34 2008 -0400 @@ -357,3 +357,97 @@ P n -> forall (n0 : nat) (n1 : nat_btree), P n1 -> P (NNode n n0 n1)) -> forall n : nat_btree, P n ]] *) + + +(** * Parameterized Types *) + +(** We can also define polymorphic inductive types, as with algebraic datatypes in Haskell and ML. *) + +Inductive list (T : Set) : Set := +| Nil : list T +| Cons : T -> list T -> list T. + +Fixpoint length T (ls : list T) : nat := + match ls with + | Nil => O + | Cons _ ls' => S (length ls') + end. + +Fixpoint app T (ls1 ls2 : list T) {struct ls1} : list T := + match ls1 with + | Nil => ls2 + | Cons x ls1' => Cons x (app ls1' ls2) + end. + +Theorem length_app : forall T (ls1 ls2 : list T), length (app ls1 ls2) + = plus (length ls1) (length ls2). + induction ls1; crush. +Qed. + +(** There is a useful shorthand for writing many definitions that share the same parameter, based on Coq's %\textit{%#<i>#section#</i>#%}% mechanism. The following block of code is equivalent to the above: *) + +(* begin hide *) +Reset list. +(* end hide *) + +Section list. + Variable T : Set. + + Inductive list : Set := + | Nil : list + | Cons : T -> list -> list. + + Fixpoint length (ls : list) : nat := + match ls with + | Nil => O + | Cons _ ls' => S (length ls') + end. + + Fixpoint app (ls1 ls2 : list) {struct ls1} : list := + match ls1 with + | Nil => ls2 + | Cons x ls1' => Cons x (app ls1' ls2) + end. + + Theorem length_app : forall ls1 ls2 : list, length (app ls1 ls2) + = plus (length ls1) (length ls2). + induction ls1; crush. + Qed. +End list. + +(** After we end the section, the [Variable]s we used are added as extra function parameters for each defined identifier, as needed. *) + +Check list. +(** [[ + +list + : Set -> Set +]] *) + +Check Cons. +(** [[ + +Cons + : forall T : Set, T -> list T -> list T +]] *) + +Check length. +(** [[ + +length + : forall T : Set, list T -> nat +]] + +The extra parameter [T] is treated as a new argument to the induction principle, too. *) + +Check list_ind. +(** [[ + +list_ind + : forall (T : Set) (P : list T -> Prop), + P (Nil T) -> + (forall (t : T) (l : list T), P l -> P (Cons t l)) -> + forall l : list T, P l +]] + +Thus, even though we just saw that [T] is added as an extra argument to the constructor [Cons], there is no quantifier for [T] in the type of the inductive case like there is for each of the other arguments. *)
--- a/src/StackMachine.v Mon Sep 08 15:23:04 2008 -0400 +++ b/src/StackMachine.v Mon Sep 08 15:38:34 2008 -0400 @@ -19,7 +19,7 @@ (** %\chapter{Some Quick Examples}% *) -(** I will start off by jumping right in to a fully-worked set of examples, building certified compilers from increasingly complicated source languages to stack machines. We will meet a few useful tactics and see how they can be used in manual proofs, and we will also see how easily these proofs can be automated instead. I assume that you have installed Coq and Proof General. +(** I will start off by jumping right in to a fully-worked set of examples, building certified compilers from increasingly complicated source languages to stack machines. We will meet a few useful tactics and see how they can be used in manual proofs, and we will also see how easily these proofs can be automated instead. I assume that you have installed Coq and Proof General. The code in this book is tested with Coq version 8.1pl3, though parts may work with other versions. As always, you can step through the source file %\texttt{%#<tt>#StackMachine.v#</tt>#%}% for this chapter interactively in Proof General. Alternatively, to get a feel for the whole lifecycle of creating a Coq development, you can enter the pieces of source code in this chapter in a new %\texttt{%#<tt>#.v#</tt>#%}% file in an Emacs buffer. If you do the latter, include a line [Require Import List Tactics.] at the start of the file, to match some code hidden in this rendering of the chapter source, and be sure to run the Coq binary %\texttt{%#<tt>#coqtop#</tt>#%}% with the command-line argument %\texttt{%#<tt>#-I SRC#</tt>#%}%, where %\texttt{%#<tt>#SRC#</tt>#%}% is the path to a directory containing the source for this book. In either case, you will need to run %\texttt{%#<tt>#make#</tt>#%}% in the root directory of the source distribution for the book before getting started. If you have installed Proof General properly, it should start automatically when you visit a %\texttt{%#<tt>#.v#</tt>#%}% buffer in Emacs.