diff options
| author | herbelin | 2000-06-02 14:18:01 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-02 14:18:01 +0000 |
| commit | 94b27cf1c88ba0473b4b59a81be93b1d7d1f9316 (patch) | |
| tree | c26843903853aff2dd147c5843a595c873ba8f0d /kernel/reduction.ml | |
| parent | 68b09c91c78c6d1893b9361416fcd6c50a0ea682 (diff) | |
Retrait de decomp_prod non conforme à sa spec
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@496 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/reduction.ml')
| -rw-r--r-- | kernel/reduction.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/kernel/reduction.ml b/kernel/reduction.ml index 2d699b7855..c7acd792af 100644 --- a/kernel/reduction.ml +++ b/kernel/reduction.ml @@ -1032,15 +1032,6 @@ let splay_arity env sigma c = let sort_of_arity env c = snd (splay_arity env Evd.empty c) -let decomp_prod env sigma = - let rec decrec m c = - match whd_betadeltaiota env sigma c with - | DOP0(Sort _) as x -> m,x - | DOP2(Prod,a,DLAM(n,c_0)) -> decrec (m+1) c_0 - | _ -> error "decomp_prod: Not a product" - in - decrec 0 - let decomp_n_prod env sigma n = let rec decrec m ln c = if m = 0 then (ln,c) else match whd_betadeltaiota env sigma c with |