diff options
| author | Cyprien Mangin | 2018-01-19 10:15:27 +0100 |
|---|---|---|
| committer | Cyprien Mangin | 2018-01-19 10:15:27 +0100 |
| commit | 248d290aa9313501a857a4d3bd9f3d0dc7dc5b4f (patch) | |
| tree | 7a01258f9def516e1c228ca1bd8a5662f057c47c /pretyping | |
| parent | 4d8903c06fd9fd2aca793da8bb55448906347a8c (diff) | |
Define EConstr version of [push_rec_types].
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evarconv.ml | 5 | ||||
| -rw-r--r-- | pretyping/typing.ml | 5 |
2 files changed, 0 insertions, 10 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 788e4d268a..41c4616f79 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -276,11 +276,6 @@ let rec ise_app_stack2 env f evd sk1 sk2 = end | _, _ -> (sk1,sk2), Success evd -let push_rec_types pfix env = - let (i, c, t) = pfix in - let inj c = EConstr.Unsafe.to_constr c in - push_rec_types (i, Array.map inj c, Array.map inj t) env - (* This function tries to unify 2 stacks element by element. It works from the end to the beginning. If it unifies a non empty suffix of stacks but not the entire stacks, the first part of the answer is diff --git a/pretyping/typing.ml b/pretyping/typing.ml index 43066c8099..3132d2ad53 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -23,11 +23,6 @@ open Arguments_renaming open Pretype_errors open Context.Rel.Declaration -let push_rec_types pfix env = - let (i, c, t) = pfix in - let inj c = EConstr.Unsafe.to_constr c in - push_rec_types (i, Array.map inj c, Array.map inj t) env - let meta_type evd mv = let ty = try Evd.meta_ftype evd mv |