diff options
| author | Gaëtan Gilbert | 2020-04-13 16:43:05 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-04-13 16:43:05 +0200 |
| commit | f2cdb87232e3b04cbd1e199833253fb3e38156f8 (patch) | |
| tree | 8c3ab7c3ce5e3cbafcf0fe85d1265eb5d4e80bb6 /vernac | |
| parent | b8fcbecf8e1b96dcb47f15ac7573197de43f0bdb (diff) | |
| parent | 39c4f9030f3aefdb7581aa02dd4b0c0d1ef89ee5 (diff) | |
Merge PR #11916: [proof] Introduce `prepare_proof` to improve normalization workflow.
Reviewed-by: SkySkimmer
Ack-by: gares
Ack-by: ppedrot
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/declareDef.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/declareDef.ml b/vernac/declareDef.ml index 1607771598..601e7e060c 100644 --- a/vernac/declareDef.ml +++ b/vernac/declareDef.ml @@ -171,7 +171,7 @@ let prepare_obligation ?opaque ?inline ~name ~poly ~udecl ~types ~body sigma = let ce = definition_entry ?opaque ?inline ?types ~univs body in let env = Global.env () in let (c,ctx), sideff = Future.force ce.Declare.proof_entry_body in - assert(Safe_typing.empty_private_constants = sideff.Evd.seff_private); + assert(Safe_typing.is_empty_private_constants sideff.Evd.seff_private); assert(Univ.ContextSet.is_empty ctx); RetrieveObl.check_evars env sigma; let c = EConstr.of_constr c in |