aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/evd.ml
diff options
context:
space:
mode:
authorGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-03-21 16:20:59 +0000
committerGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-03-21 16:20:59 +0000
commit123c8683a25b34070d4874df4cdd9381d5ceac24 (patch)
tree58b51cbd58bc8492d2b79985f917d49dccefd567 /pretyping/evd.ml
parent78e8a11a5f40c5ee1c09e279350ab208c4a31b64 (diff)
Correct bug introduced in r10589, where we lost information that
assumption types are types when type-checking them and necessary coercions were not inserted. Add empty_evar_defs definition in Evd and call the new helper function in constrintern that performs interpretation and gives back implicit argument information. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10706 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/evd.ml')
-rw-r--r--pretyping/evd.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index e044c17a9..2703e5ae0 100644
--- a/pretyping/evd.ml
+++ b/pretyping/evd.ml
@@ -414,6 +414,7 @@ let create_evar_defs sigma =
let create_goal_evar_defs sigma =
let h = fold (fun mv _ l -> (mv,(dummy_loc,GoalEvar))::l) sigma [] in
{ evars=sigma; conv_pbs=[]; last_mods = []; history=h; metas=Metamap.empty }
+let empty_evar_defs = create_evar_defs empty
let evars_of d = d.evars
let evars_reset_evd evd d = {d with evars = evd}
let reset_evd (sigma,mmap) d = {d with evars = sigma; metas=mmap}