diff options
author | Stephane Glondu <steph@glondu.net> | 2011-04-19 16:47:51 +0200 |
---|---|---|
committer | Stephane Glondu <steph@glondu.net> | 2011-04-19 16:47:51 +0200 |
commit | aa33547c764a229e22d323ca213d46ea221b903e (patch) | |
tree | 3894cb190f34bc1d2deee4322a674db641562ee0 /pretyping/cases.ml | |
parent | 50dc9067e98ca001ad2e875011abab5da6fdb621 (diff) | |
parent | 9d27ae09786866b6e3d7b79d1fa7667e5e2aa309 (diff) |
Remove non-DFSG contentsupstream/8.3.pl2+dfsg
Diffstat (limited to 'pretyping/cases.ml')
-rw-r--r-- | pretyping/cases.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index bae89329..67bf7043 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* $Id: cases.ml 13728 2010-12-19 11:35:20Z herbelin $ *) +(* $Id: cases.ml 13962 2011-04-06 17:00:45Z herbelin $ *) open Util open Names @@ -1203,7 +1203,7 @@ and match_current pb tomatch = let case = mkCase (ci,nf_betaiota Evd.empty pred,current,brvals) in let inst = List.map mkRel deps in { uj_val = applist (case, inst); - uj_type = substl inst typ } + uj_type = prod_applist typ inst } and compile_branch current names deps pb arsign eqn cstr = let sign, pb = build_branch current deps names pb arsign eqn cstr in |