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/Lists/StreamMemo.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/Lists/StreamMemo.v')
| -rw-r--r-- | theories/Lists/StreamMemo.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Lists/StreamMemo.v b/theories/Lists/StreamMemo.v index e10ad325f..d906cfa44 100644 --- a/theories/Lists/StreamMemo.v +++ b/theories/Lists/StreamMemo.v @@ -80,7 +80,7 @@ Variable f: forall n, A n. Inductive memo_val: Type := memo_mval: forall n, A n -> memo_val. -Fixpoint is_eq (n m : nat) {struct n}: {n = m} + {True} := +Fixpoint is_eq (n m : nat) : {n = m} + {True} := match n, m return {n = m} + {True} with | 0, 0 =>left True (refl_equal 0) | 0, S m1 => right (0 = S m1) I |