diff options
| author | Matthieu Sozeau | 2014-04-01 19:19:22 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:58 +0200 |
| commit | a2fce6d14d00a437466a1f7e3b53a77229f87980 (patch) | |
| tree | 2e88133b978c67c222f0bfd7c13416609cdc84ac /toplevel | |
| parent | 4d7956a9b3f7f44aa9dae1bf22258b12dacab65f (diff) | |
- Fix eq_constr_universes restricted to Sorts.equal
- Fix passing of universe contexts through definitions/proofs, abstract is ok now, even
in presence of polymorphism
- Correctly mark unresolvable the evars made by the Simple abstraction.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/obligations.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index d45c2af3ed..cce5242ec4 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -791,8 +791,8 @@ let rec string_of_list sep f = function let solve_by_tac name evi t poly subst ctx = let id = name in let concl = Universes.subst_opt_univs_constr subst evi.evar_concl in - (* spiwack: the status is dropped *) - let (entry,_,subst) = Pfedit.build_constant_by_tactic + (* spiwack: the status is dropped. MS: the ctx is dropped too *) + let (entry,_,(subst,ctx)) = Pfedit.build_constant_by_tactic id ~goal_kind:(goal_kind poly) evi.evar_hyps (concl, ctx) (Tacticals.New.tclCOMPLETE t) in let env = Global.env () in let entry = Term_typing.handle_side_effects env entry in |