diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-02 18:50:33 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-11-02 18:50:33 +0000 |
| commit | 0fb8601151a0e316554c95608de2ae4dbdac2ed3 (patch) | |
| tree | eef149e1c23427c2bd4943cf72b3a276a3a82808 /theories/Program/Wf.v | |
| parent | d70800791ded96209c8f71e682f602201f93d56b (diff) | |
Remove various useless {struct} annotations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12458 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Program/Wf.v')
| -rw-r--r-- | theories/Program/Wf.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Program/Wf.v b/theories/Program/Wf.v index 9b7ea0474..c4d06fd72 100644 --- a/theories/Program/Wf.v +++ b/theories/Program/Wf.v @@ -27,7 +27,7 @@ Section Well_founded. Variable F_sub : forall x:A, (forall y: { y : A | R y x }, P (proj1_sig y)) -> P x. - Fixpoint Fix_F_sub (x : A) (r : Acc R x) {struct r} : P x := + Fixpoint Fix_F_sub (x : A) (r : Acc R x) : P x := F_sub x (fun y: { y : A | R y x} => Fix_F_sub (proj1_sig y) (Acc_inv r (proj2_sig y))). |