tuned comments;
authorwenzelm
Sat, 17 May 2008 23:53:20 +0200
changeset 26938 64e850c3da9e
parent 26937 57e7d045774a
child 26939 1035c89b4c02
tuned comments;
src/Provers/blast.ML
src/Provers/classical.ML
--- a/src/Provers/blast.ML	Sat May 17 23:53:19 2008 +0200
+++ b/src/Provers/blast.ML	Sat May 17 23:53:20 2008 +0200
@@ -587,7 +587,7 @@
 val dummyTVar = Term.TVar(("a",0), []);
 val dummyVar2 = Term.Var(("var",0), dummyT);
 
-(*convert Blast_tac's type representation to real types for tracing*)
+(*convert blast_tac's type representation to real types for tracing*)
 fun showType (Free a)  = Term.TFree (a,[])
   | showType (Var _)   = dummyTVar
   | showType t         =
--- a/src/Provers/classical.ML	Sat May 17 23:53:19 2008 +0200
+++ b/src/Provers/classical.ML	Sat May 17 23:53:20 2008 +0200
@@ -170,7 +170,7 @@
 
     [| inj f; f x = f y; x = y ==> PROP W |] ==> PROP W
 
-Such rules can cause Fast_tac to fail and Blast_tac to report "PROOF
+Such rules can cause fast_tac to fail and blast_tac to report "PROOF
 FAILED"; classical_rule will strenthen this to
 
     [| inj f; ~ W ==> f x = f y; x = y ==> W |] ==> W