diff options
| author | herbelin | 2000-09-14 07:12:47 +0000 |
|---|---|---|
| committer | herbelin | 2000-09-14 07:12:47 +0000 |
| commit | 148aee35615772086a8dc511f3b42a7768c9f2a5 (patch) | |
| tree | 9749b71344c61077569772f7d77117472090e5fb /kernel/abstraction.ml | |
| parent | 7ad7db0100c37149392c9e0cc41cc54778119371 (diff) | |
Rendus obsolètes par le LetIn
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@600 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/abstraction.ml')
| -rw-r--r-- | kernel/abstraction.ml | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/kernel/abstraction.ml b/kernel/abstraction.ml deleted file mode 100644 index 04ed649920..0000000000 --- a/kernel/abstraction.ml +++ /dev/null @@ -1,27 +0,0 @@ - -(* $Id$ *) - -open Util -open Names -(* open Generic *) -open Term - -type abstraction_body = { - abs_kind : path_kind; - abs_arity : int array; - abs_rhs : constr } - -let rec count_dlam = function - | DLAM (_,c) -> 1 + (count_dlam c) - | _ -> 0 - -let sAPP c n = - match c with - | DLAM(na,m) -> subst1 n m - | _ -> invalid_arg "SAPP" - -let contract_abstraction ab args = - if array_for_all2 (fun c i -> (count_dlam c) = i) args ab.abs_arity then - Sosub.soexecute (Array.fold_left sAPP ab.abs_rhs args) - else - failwith "contract_abstraction" |