diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-26 15:29:16 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-26 15:29:16 +0200 |
| commit | d5ee6e2d24d0f9b42499b507fe9d03555c9ddf45 (patch) | |
| tree | 147deeab6e42563bd5d5b871c955db3049569cb8 /pretyping | |
| parent | 380dfe70ad9daf766e6acaf028e2c0cedc3be688 (diff) | |
Add a comment regarding the specialization of the combinator in Detyping.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 98f6c24aa..ebd270e9f 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -694,6 +694,8 @@ and detype_binder (lax,isgoal as flags) bk avoid env sigma na body ty c = let t = if s != InProp && not !Flags.raw_print then None else Some (detype (lax,false) avoid env sigma ty) in GLetIn (na', c, t, r) +(** We use a dedicated function here to prevent overallocation from + Array.map_to_list. *) and detype_array flags avoid env sigma args = let ans = ref [] in for i = Array.length args - 1 downto 0 do |