diff options
| author | Pierre-Marie Pédrot | 2016-02-15 13:31:54 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-02-15 13:41:16 +0100 |
| commit | 1a8c37ca352c95b4cd530efbbf47f0e7671d1fb3 (patch) | |
| tree | 15aadd829fe3e8c3ee0a747de34a9b96614bfdba /plugins/micromega | |
| parent | 968dfdb15cc11d48783017b2a91147b25c854ad6 (diff) | |
Renaming functions in Typing to stick to the standard e_* scheme.
Diffstat (limited to 'plugins/micromega')
| -rw-r--r-- | plugins/micromega/coq_micromega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/micromega/coq_micromega.ml b/plugins/micromega/coq_micromega.ml index 1dd53a3fd8..27daa7e3c6 100644 --- a/plugins/micromega/coq_micromega.ml +++ b/plugins/micromega/coq_micromega.ml @@ -1170,7 +1170,7 @@ struct let is_prop term = let ty = Typing.unsafe_type_of (Tacmach.pf_env gl) (Tacmach.project gl) term in - let sort = Typing.sort_of (Tacmach.pf_env gl) (ref (Tacmach.project gl)) ty in + let sort = Typing.e_sort_of (Tacmach.pf_env gl) (ref (Tacmach.project gl)) ty in Term.is_prop_sort sort in let rec xparse_formula env tg term = |