diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-02-15 13:31:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-02-15 13:41:16 +0100 |
| commit | 1a8c37ca352c95b4cd530efbbf47f0e7671d1fb3 (patch) | |
| tree | 15aadd829fe3e8c3ee0a747de34a9b96614bfdba /pretyping/typing.ml | |
| parent | 968dfdb15cc11d48783017b2a91147b25c854ad6 (diff) | |
Renaming functions in Typing to stick to the standard e_* scheme.
Diffstat (limited to 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index fb0c49320..022c85340 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -267,7 +267,7 @@ and execute_recdef env evdref (names,lar,vdef) = and execute_array env evdref = Array.map (execute env evdref) -let check env evdref c t = +let e_check env evdref c t = let env = enrich_env env evdref in let j = execute env evdref c in if not (Evarconv.e_cumul env evdref j.uj_type t) then @@ -283,7 +283,7 @@ let unsafe_type_of env evd c = (* Sort of a type *) -let sort_of env evdref c = +let e_sort_of env evdref c = let env = enrich_env env evdref in let j = execute env evdref c in let a = e_type_judgment env evdref j in @@ -310,10 +310,10 @@ let e_type_of ?(refresh=false) env evdref c = c else j.uj_type -let solve_evars env evdref c = +let e_solve_evars env evdref c = let env = enrich_env env evdref in let c = (execute env evdref c).uj_val in (* side-effect on evdref *) nf_evar !evdref c -let _ = Evarconv.set_solve_evars solve_evars +let _ = Evarconv.set_solve_evars e_solve_evars |