diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/reduction.ml | 9 | ||||
| -rw-r--r-- | kernel/reduction.mli | 1 |
2 files changed, 0 insertions, 10 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 diff --git a/kernel/reduction.mli b/kernel/reduction.mli index 0d2c39c5f5..fb623595a1 100644 --- a/kernel/reduction.mli +++ b/kernel/reduction.mli @@ -96,7 +96,6 @@ val hnf_lam_applist : env -> 'a evar_map -> constr -> constr list -> constr val splay_prod : env -> 'a evar_map -> constr -> (name * constr) list * constr val splay_arity : env -> 'a evar_map -> constr -> (name * constr) list * sorts val sort_of_arity : env -> constr -> sorts -val decomp_prod : env -> 'a evar_map -> constr -> int * constr val decomp_n_prod : env -> 'a evar_map -> int -> constr -> ((name * constr) list) * constr |