diff options
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. |