aboutsummaryrefslogtreecommitdiffhomepage
path: root/theories/Wellfounded/Inclusion.v
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2003-11-29 17:28:49 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2003-11-29 17:28:49 +0000
commit9a6e3fe764dc2543dfa94de20fe5eec42d6be705 (patch)
tree77c0021911e3696a8c98e35a51840800db4be2a9 /theories/Wellfounded/Inclusion.v
parent9058fb97426307536f56c3e7447be2f70798e081 (diff)
Remplacement des fichiers .v ancienne syntaxe de theories, contrib et states par les fichiers nouvelle syntaxe
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5027 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Wellfounded/Inclusion.v')
-rw-r--r--theories/Wellfounded/Inclusion.v21
1 files changed, 10 insertions, 11 deletions
diff --git a/theories/Wellfounded/Inclusion.v b/theories/Wellfounded/Inclusion.v
index 2038b34bf..2508011dc 100644
--- a/theories/Wellfounded/Inclusion.v
+++ b/theories/Wellfounded/Inclusion.v
@@ -10,24 +10,23 @@
(** Author: Bruno Barras *)
-Require Relation_Definitions.
+Require Import Relation_Definitions.
Section WfInclusion.
- Variable A:Set.
- Variable R1,R2:A->A->Prop.
+ Variable A : Set.
+ Variables R1 R2 : A -> A -> Prop.
- Lemma Acc_incl: (inclusion A R1 R2)->(z:A)(Acc A R2 z)->(Acc A R1 z).
+ Lemma Acc_incl : inclusion A R1 R2 -> forall z:A, Acc R2 z -> Acc R1 z.
Proof.
- NewInduction 2.
- Apply Acc_intro;Auto with sets.
+ induction 2.
+ apply Acc_intro; auto with sets.
Qed.
- Hints Resolve Acc_incl.
+ Hint Resolve Acc_incl.
- Theorem wf_incl:
- (inclusion A R1 R2)->(well_founded A R2)->(well_founded A R1).
+ Theorem wf_incl : inclusion A R1 R2 -> well_founded R2 -> well_founded R1.
Proof.
- Unfold well_founded ;Auto with sets.
+ unfold well_founded in |- *; auto with sets.
Qed.
-End WfInclusion.
+End WfInclusion. \ No newline at end of file