diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-09-17 17:45:39 +0200 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-09-17 17:54:39 +0200 |
| commit | 95c915ce89cc168ec34ab36797c78de94fcc0a18 (patch) | |
| tree | a07639d54aeebdf0dd8f75f3ec0e4ccfc8e03163 /theories/Program | |
| parent | 9060a941d8b7566220f6fb6a191ac2fd7eca7315 (diff) | |
Add some missing Proof statements.
Diffstat (limited to 'theories/Program')
| -rw-r--r-- | theories/Program/Wf.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/theories/Program/Wf.v b/theories/Program/Wf.v index d82fa602a..c483b1d83 100644 --- a/theories/Program/Wf.v +++ b/theories/Program/Wf.v @@ -32,8 +32,7 @@ Section Well_founded. (* Notation Fix_F := (Fix_F_sub P F_sub) (only parsing). (* alias *) *) (* Definition Fix (x:A) := Fix_F_sub P F_sub x (Rwf x). *) - Hypothesis - F_ext : + Hypothesis F_ext : forall (x:A) (f g:forall y:{y:A | R y x}, P (`y)), (forall y:{y : A | R y x}, f y = g y) -> F_sub x f = F_sub x g. @@ -63,6 +62,7 @@ Section Well_founded. Fix_sub x = let f_sub := F_sub in f_sub x (fun y: {y : A | R y x} => Fix_sub (`y)). + Proof. exact Fix_eq. Qed. |