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/Sets/Finite_sets.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/Sets/Finite_sets.v')
| -rwxr-xr-x | theories/Sets/Finite_sets.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Sets/Finite_sets.v b/theories/Sets/Finite_sets.v index 1e0c05450..1e7168791 100755 --- a/theories/Sets/Finite_sets.v +++ b/theories/Sets/Finite_sets.v @@ -59,8 +59,8 @@ Lemma cardinal_invert : [n:nat] (EXT A | (EXT x | X == (Add U A x) /\ ~ (In U A x) /\ (cardinal U A n))) end. Proof. -Induction 1; Simpl; Auto. -Intros; Exists A; Exists x; Auto. +NewInduction 1; Simpl; Auto. +Exists A; Exists x; Auto. Qed. Lemma cardinal_elim : |