diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-23 21:00:49 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-09-23 21:00:49 +0000 |
| commit | 19dd83cf1b0e57fb13a8d970251822afd6a04ced (patch) | |
| tree | 7f5630f3f9a54d06f48ad5a1da6d2987332cc01b /theories/Wellfounded/Well_Ordering.v | |
| parent | 8a95a21a90188d8ef4bd790563a63fdf9b4318a9 (diff) | |
Remplacement de Induction/Destruct par NewInduction/NewDestruct
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4463 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Wellfounded/Well_Ordering.v')
| -rw-r--r-- | theories/Wellfounded/Well_Ordering.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/theories/Wellfounded/Well_Ordering.v b/theories/Wellfounded/Well_Ordering.v index ebd4925d1..49595dd2b 100644 --- a/theories/Wellfounded/Well_Ordering.v +++ b/theories/Wellfounded/Well_Ordering.v @@ -65,8 +65,7 @@ Proof. Intros. Apply (sup A B x). Unfold 1 B . - Induction 1. - Intros. + NewDestruct 1 as [x0]. Apply (H1 x0);Auto. Qed. |