diff src/InductiveTypes.v @ 375:d1276004eec9

Finish pass over LogicProg; change [crush] to take advantage of new [Hint Rewrite] syntax that uses database [core] by default
author Adam Chlipala <adam@chlipala.net>
date Mon, 26 Mar 2012 16:55:59 -0400
parents 549d604c3d16
children 4b1242b277b2
line wrap: on
line diff
--- a/src/InductiveTypes.v	Mon Mar 26 16:24:19 2012 -0400
+++ b/src/InductiveTypes.v	Mon Mar 26 16:55:59 2012 -0400
@@ -420,9 +420,9 @@
   = plus (nsize tr2) (nsize tr1).
 (* begin thide *)
 (* begin hide *)
-  Hint Rewrite n_plus_O plus_assoc : cpdt.
+  Hint Rewrite n_plus_O plus_assoc.
 (* end hide *)
-  (** [Hint] %\coqdockw{%#<tt>#Rewrite#</tt>#%}% [n_plus_O plus_assoc : cpdt.] *)
+  (** [Hint] %\coqdockw{%#<tt>#Rewrite#</tt>#%}% [n_plus_O plus_assoc.] *)
 
   induction tr1; crush.
 Qed.
@@ -1125,9 +1125,9 @@
   = plus (ntsize tr2) (ntsize tr1).
 (* begin thide *)
 (* begin hide *)
-  Hint Rewrite plus_S : cpdt.
+  Hint Rewrite plus_S.
 (* end hide *)
-  (** [Hint] %\coqdockw{%#<tt>#Rewrite#</tt>#%}% [plus_S : cpdt.] *)
+  (** [Hint] %\coqdockw{%#<tt>#Rewrite#</tt>#%}% [plus_S.] *)
 
   (** We know that the standard induction principle is insufficient for the task, so we need to provide a %\index{tactics!using}%[using] clause for the [induction] tactic to specify our alternate principle. *)