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/Inverse_Image.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/Inverse_Image.v')
-rw-r--r-- | theories/Wellfounded/Inverse_Image.v | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/theories/Wellfounded/Inverse_Image.v b/theories/Wellfounded/Inverse_Image.v index 9afffc95c..ac828ac1a 100644 --- a/theories/Wellfounded/Inverse_Image.v +++ b/theories/Wellfounded/Inverse_Image.v @@ -19,10 +19,10 @@ Section Inverse_Image. Local Rof : A->A->Prop := [x,y:A](R (f x) (f y)). Remark Acc_lemma : (y:B)(Acc B R y)->(x:A)(y=(f x))->(Acc A Rof x). - Induction 1; Intros. - Apply Acc_intro; Intros. - Apply (H1 (f y0)); Try Trivial. - Rewrite H2; Trivial. + NewInduction 1 as [y _ IHAcc]; Intros x H. + Apply Acc_intro; Intros y0 H1. + Apply (IHAcc (f y0)); Try Trivial. + Rewrite H; Trivial. Qed. Lemma Acc_inverse_image : (x:A)(Acc B R (f x)) -> (Acc A Rof x). @@ -39,10 +39,10 @@ Section Inverse_Image. Lemma Acc_inverse_rel : (b:B)(Acc B R b)->(x:A)(F x b)->(Acc A RoF x). -Induction 1; Intros. -Constructor; Intros. -Case H3; Intros. -Apply (H1 x1); Auto. +NewInduction 1 as [x _ IHAcc]; Intros x0 H2. +Constructor; Intros y H3. +NewDestruct H3. +Apply (IHAcc x1); Auto. Save. |