diff options
| author | msozeau | 2008-02-08 16:51:54 +0000 |
|---|---|---|
| committer | msozeau | 2008-02-08 16:51:54 +0000 |
| commit | f71cbe1115db9c7997f1d45b5c419da597d30a59 (patch) | |
| tree | b40d6818020f4d8f220358eb9763fed4d7aa0c3e /interp | |
| parent | a1a7cb88e85c33204dfb022cb5b9eb5c435366b1 (diff) | |
Move generally useful definition of nf_evar on contexts to evarutil.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10532 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/implicit_quantifiers.ml | 11 | ||||
| -rw-r--r-- | interp/implicit_quantifiers.mli | 4 |
2 files changed, 0 insertions, 15 deletions
diff --git a/interp/implicit_quantifiers.ml b/interp/implicit_quantifiers.ml index 112c2fc189..8a0b940b1a 100644 --- a/interp/implicit_quantifiers.ml +++ b/interp/implicit_quantifiers.ml @@ -264,14 +264,3 @@ let implicits_of_rawterm l = | RLetIn (loc, na, t, b) -> aux i b | _ -> [] in aux 1 l - -let nf_named_context sigma ctx = - Sign.map_named_context (Reductionops.nf_evar sigma) ctx - -let nf_rel_context sigma ctx = - Sign.map_rel_context (Reductionops.nf_evar sigma) ctx - -let nf_env sigma env = - let nc' = nf_named_context sigma (Environ.named_context env) in - let rel' = nf_rel_context sigma (Environ.rel_context env) in - push_rel_context rel' (reset_with_named_context (val_of_named_context nc') env) diff --git a/interp/implicit_quantifiers.mli b/interp/implicit_quantifiers.mli index ab23e763c1..4ea95fc43c 100644 --- a/interp/implicit_quantifiers.mli +++ b/interp/implicit_quantifiers.mli @@ -54,10 +54,6 @@ val implicits_of_binders : local_binder list -> (Topconstr.explicitation * (bool val implicits_of_rawterm : Rawterm.rawconstr -> (Topconstr.explicitation * (bool * bool)) list -val nf_named_context : evar_map -> named_context -> named_context -val nf_rel_context : evar_map -> rel_context -> rel_context -val nf_env : evar_map -> env -> env - val combine_params : Names.Idset.t -> (Names.Idset.t -> (Names.identifier * bool) option * (Names.identifier * Term.constr option * Term.types) -> Topconstr.constr_expr * Names.Idset.t) -> |