diff options
| author | Matthieu Sozeau | 2015-10-01 18:42:38 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-02 15:54:13 +0200 |
| commit | 4585baa53e7fa4c25e304b8136944748a7622e10 (patch) | |
| tree | b8a6b71eff51d1f1ef8367bdf420754597dcd8c3 /tactics | |
| parent | de648c72a79ae5ba35db166575669ca465b11770 (diff) | |
Univs: refined handling of assumptions
According to their polymorphic/non-polymorphic status, which
imply that universe variables introduced with it are assumed
to be >= or > Set respectively in the following definitions.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/extratactics.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/extratactics.ml4 b/tactics/extratactics.ml4 index a72c6ab51e..cab74968d2 100644 --- a/tactics/extratactics.ml4 +++ b/tactics/extratactics.ml4 @@ -270,7 +270,7 @@ let add_rewrite_hint bases ort t lcsr = let ctx = let ctx = Evd.evar_universe_context_set Univ.UContext.empty ctx in if poly then ctx - else (Global.push_context_set ctx; Univ.ContextSet.empty) + else (Global.push_context_set false ctx; Univ.ContextSet.empty) in Constrexpr_ops.constr_loc ce, (c, ctx), ort, t in let eqs = List.map f lcsr in |