diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-24 08:54:16 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-24 08:54:16 +0000 |
| commit | 8c63a877eb0908513b75e2b5e6ac1cd998547089 (patch) | |
| tree | f7cd0f8e518de0ccd3bf1b63faa5eeae53d9fa13 /theories/Arith/Plus.v | |
| parent | 217ff530701d5fc3467659f093227680906c1c9a (diff) | |
Destruct/Induction -> NewDestruct/NewInduction
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4469 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Arith/Plus.v')
| -rwxr-xr-x | theories/Arith/Plus.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Arith/Plus.v b/theories/Arith/Plus.v index 2285c544c..843ba0739 100755 --- a/theories/Arith/Plus.v +++ b/theories/Arith/Plus.v @@ -176,6 +176,6 @@ Fixpoint plus_acc [q,n:nat] : nat := Definition tail_plus := [n,m:nat](plus_acc m n). Lemma plus_tail_plus : (n,m:nat)(n+m)=(tail_plus n m). -Induction n; Unfold tail_plus; Simpl; Auto. -Intros p H m; Rewrite <- H; Simpl; Auto. +Unfold tail_plus; NewInduction n as [|n IHn]; Simpl; Auto. +Intro m; Rewrite <- IHn; Simpl; Auto. Qed. |