Mercurial > cpdt > repo
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. *)