diff options
| author |  Stephane Glondu <steph@glondu.net> | 2010-07-01 17:21:17 +0200 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2010-07-01 17:21:17 +0200 |
| commit | 2dad86a4e71bae9905b39970384328316e53eb42 (patch) | |
| tree | 9fe7df673a3e36cfbee14f2a4afe5b5b6fc72e80 /interp/constrextern.ml | |
| parent | 257f04de91e394cea67254da547fc1b90fa6978d (diff) | |
| parent | da178a880e3ace820b41d38b191d3785b82991f5 (diff) | |
Merge commit 'upstream/8.2pl2+dfsg'
Diffstat (limited to 'interp/constrextern.ml')
| -rw-r--r-- | interp/constrextern.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/interp/constrextern.ml b/interp/constrextern.ml index f99af68e..99bcf159 100644 --- a/interp/constrextern.ml +++ b/interp/constrextern.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: constrextern.ml 11576 2008-11-10 19:13:15Z msozeau $ *) +(* $Id: constrextern.ml 12495 2009-11-11 12:10:44Z herbelin $ *) (*i*) open Pp @@ -363,7 +363,6 @@ let bind_env (sigma,sigmalist as fullsigma) var v = let rec match_cases_pattern metas sigma a1 a2 = match (a1,a2) with | r1, AVar id2 when List.mem id2 metas -> bind_env sigma id2 r1 | PatVar (_,Anonymous), AHole _ -> sigma - | a, AHole _ -> sigma | PatCstr (loc,(ind,_ as r1),args1,_), _ -> let nparams = (fst (Global.lookup_inductive ind)).Declarations.mind_nparams in |