diff options
| author | Pierre-Marie Pédrot | 2018-10-16 10:50:51 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-16 10:50:51 +0200 |
| commit | 697a59de8a39f3a4b253ced93ece1209b7f0eb1b (patch) | |
| tree | 60fe9cb964ee6a1be68c0333270f29f996af0574 /kernel/safe_typing.ml | |
| parent | 1b4e757a90d8c0a5fc8599fffcda75618b468032 (diff) | |
| parent | 23fc1c59d78ffb524265caa1908503f50816335a (diff) | |
Merge PR #8695: Adding a functional version of constant- and mind_of_delta_kn + functional version of is_polymorphic
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 820c5b3a2b..625b7e5073 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -168,6 +168,12 @@ let is_initial senv = let delta_of_senv senv = senv.modresolver,senv.paramresolver +let constant_of_delta_kn_senv senv kn = + Mod_subst.constant_of_deltas_kn senv.paramresolver senv.modresolver kn + +let mind_of_delta_kn_senv senv kn = + Mod_subst.mind_of_deltas_kn senv.paramresolver senv.modresolver kn + (** The safe_environment state monad *) type safe_transformer0 = safe_environment -> safe_environment |