diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-18 15:21:02 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-18 15:21:02 +0000 |
commit | 5a932e8c77207188c73629da8ab80f4c401c4e76 (patch) | |
tree | 8d010eb327dd2084661ab623bfb7a917a96f651a /test-suite/modules | |
parent | f761bb2ac13629b4d6de8855f8afa4ea95d7facc (diff) |
Unset Asymmetric Patterns
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16129 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/modules')
-rw-r--r-- | test-suite/modules/Przyklad.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/modules/Przyklad.v b/test-suite/modules/Przyklad.v index 341805a16..7214287a6 100644 --- a/test-suite/modules/Przyklad.v +++ b/test-suite/modules/Przyklad.v @@ -145,8 +145,8 @@ Module ListDict (E: ELEM). Definition add (e : elt) (s : T) := cons elt e s. Fixpoint find (e : elt) (s : T) {struct s} : bool := match s with - | nil => false - | cons e' s' => ifte (E.eq_dec e e') true (find e s') + | nil _ => false + | cons _ e' s' => ifte (E.eq_dec e e') true (find e s') end. Definition find_empty_false (e : elt) := refl_equal false. |