From 95c915ce89cc168ec34ab36797c78de94fcc0a18 Mon Sep 17 00:00:00 2001 From: Guillaume Melquiond Date: Wed, 17 Sep 2014 17:45:39 +0200 Subject: Add some missing Proof statements. --- theories/Program/Wf.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'theories/Program') 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. -- cgit v1.2.3