-
Notifications
You must be signed in to change notification settings - Fork 53
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[add-const] do not recompute the uctx for the evar map #651
Conversation
CC @ppedrot |
0c8466a
to
9823c22
Compare
Hello, I need help in order to remove the use of the non-sound API.
that comes from mlock #[universes(polymorphic)] Definition id2@{u} (T : Type@{u}) (x : T) := x. Note that f4340e1 works if you run |
The message above is for @SkySkimmer and @ppedrot |
src/coq_elpi_builtins.ml
Outdated
let declare_definition _ using ~cinfo ~info ~opaque ~body sigma = | ||
let using = Option.map Proof_using.using_from_string using in | ||
let gr, uctx = Declare.declare_definition_full ~cinfo ~info ~opaque ~body ?using sigma in | ||
gr, UState.context_set uctx |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
maybe need to do if poly then empty else UState.context_set uctx
(not sure where poly
is, I think either cinfo
or info
)
src/coq_elpi_HOAS.ml
Outdated
UState.demote_global_univs env uctx | ||
[%%else] | ||
let demote uctx sigma0 env = | ||
UState.demote_global_univs_sound uctx (Evd.evar_universe_context sigma0) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Might be useful to add a debug print like "demoting (print uctx)"
0a3c5df
to
bac1c4f
Compare
.nix/config.nix
Outdated
@@ -32,7 +32,13 @@ | |||
reglang.job = false; | |||
}; | |||
|
|||
"coq-master".ocamlPackages = { |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
remove before merge
bac1c4f
to
414b24e
Compare
1afd417
to
8de3026
Compare
8de3026
to
544bff1
Compare
let global_univs = UGraph.domain (Environ.universes (Global.env ())) in | ||
let env = Global.env () in | ||
let is_global u = | ||
match Univ.Universe.level u with | ||
| None -> true | ||
| Some l -> Univ.Level.Set.mem l global_univs in | ||
| Some l -> is_global_level env l in |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
you could merge this in master separately btw
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
right, but I hope to merge this soon, keeping the PR going is draining too much of my time
Please merge now |
coq/coq#19336