# HG changeset patch
# User griff
# Date 1237811232 -3600
# Node ID b98ec7d7443596a7e17a68cd4612f8637d541e42
# Parent  195e7bcbf6185015da58c17118bab516f4add2d1
typos

diff -r 195e7bcbf618 -r b98ec7d74435 ProgTutorial/FirstSteps.thy
--- a/ProgTutorial/FirstSteps.thy	Mon Mar 23 12:47:05 2009 +0100
+++ b/ProgTutorial/FirstSteps.thy	Mon Mar 23 13:27:12 2009 +0100
@@ -650,8 +650,8 @@
                 (Const \<dots> $ (Free (\"Q\",\<dots>) $ \<dots>)))"}
 
   There are a number of handy functions that are frequently used for 
-  constructing terms. One is the function @{ML list_comb} which a term
-  and a list of terms as argument, and produces as output the term
+  constructing terms. One is the function @{ML list_comb} which takes a term
+  and a list of terms as arguments, and produces as output the term
   list applied to the term. For example
 
 @{ML_response_fake [display,gray]
@@ -688,7 +688,7 @@
 
   \begin{exercise}\label{fun:makesum}
   Write a function which takes two terms representing natural numbers
-  in unary notation (like @{term "Suc (Suc (Suc 0))"}), and produce the
+  in unary notation (like @{term "Suc (Suc (Suc 0))"}), and produces the
   number representing their sum.
   \end{exercise}