diff options
| author | herbelin | 2000-10-18 17:51:58 +0000 |
|---|---|---|
| committer | herbelin | 2000-10-18 17:51:58 +0000 |
| commit | edfda2501f08f18e24bd2e3eca763eb1c2dec0ea (patch) | |
| tree | e4c42c670c2f61b95a7a0f68fd96f635aeef8b2b /kernel/closure.ml | |
| parent | a586cb418549eb523a3395155cab2560fd178571 (diff) | |
Simplifications autour de typed_type (renommé types par analogie avec sorts); documentation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@727 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index ae5e51db0f..8f49130b76 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -738,15 +738,6 @@ and frreference = let reloc_flex r el = r -(* -let typed_map f t = f (body_of_type t), level_of_type t -let typed_unmap f (t,s) = make_typed (f t) s -*) -(**) -let typed_map f t = f (body_of_type t) -let typed_unmap f t = make_typed_lazy (f t) (fun _ -> assert false) -(**) - let frterm_of v = v.term let is_val v = v.norm |