diff options
author | 2014-06-18 17:16:59 +0200 | |
---|---|---|
committer | 2014-06-18 17:21:21 +0200 | |
commit | 23f4804b50307766219392229757e75da9aa41d9 (patch) | |
tree | 4df833759b600b1a3d638bdbc65cf5060eb3e24f /tactics/tacinterp.ml | |
parent | 77839ae306380e99a8ceac0bf26ff86ec9159346 (diff) |
Proofs now take and return an evar_universe_context, simplifying interfaces
and avoiding explicit substitutions and merging of contexts, e.g. in obligations.ml.
The context produced by typechecking a statement is passed in the proof, allowing the
universe name context to be correctly folded as well. Mainly an API cleanup.
Diffstat (limited to 'tactics/tacinterp.ml')
-rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 1d76f4afd..aafe6f2f7 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2060,8 +2060,7 @@ let _ = if has_type arg (glbwit wit_tactic) then let tac = out_gen (glbwit wit_tactic) arg in let tac = interp_tactic ist tac in - let ctx = Evd.universe_context_set sigma in - let prf = Proof.start sigma [env, (ty, ctx)] in + let prf = Proof.start sigma [env, ty] in let (prf, _) = try Proof.run_tactic env tac prf with Proof_errors.TacticFailure e as src -> |