diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-25 22:15:32 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-06-25 22:15:32 +0000 |
| commit | 46ad1d27adae081e07b9d463fafd88c33dc01bb7 (patch) | |
| tree | c8353be9db1d2aa1842d11bfec2c4e8fca420a2f /theories/Init | |
| parent | b1ff09f716bbaf585793f45dda5e8cd108309f7b (diff) | |
repetition d'hypotheses dans well_founded_induction_type_2
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8988 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Init')
| -rw-r--r-- | theories/Init/Wf.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/theories/Init/Wf.v b/theories/Init/Wf.v index 17f3e5107..6e07ea43a 100644 --- a/theories/Init/Wf.v +++ b/theories/Init/Wf.v @@ -146,6 +146,8 @@ Section Well_founded_2. Variable R : A * B -> A * B -> Prop. Variable P : A -> B -> Type. + + Section Acc_iter_2. Variable F : forall (x:A) (x':B), @@ -156,6 +158,7 @@ Section Well_founded_2. F (fun (y:A) (y':B) (h:R (y, y') (x, x')) => Acc_iter_2 (x:=y) (x':=y') (Acc_inv a (y, y') h)). + End Acc_iter_2. Hypothesis Rwf : well_founded R. |