diff options
| author | Maxime Dénès | 2019-04-05 01:44:59 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-04-10 15:41:44 +0200 |
| commit | ac5d50d405ad878b6899d483e64576de63d2d095 (patch) | |
| tree | 6e933be829ba881d698d4cf5adda896fc6a4e680 /vernac/class.ml | |
| parent | dd672f839765c656a910ff8e07603858dbc8bc38 (diff) | |
Functionalize env in type classes
I had to reorganize the code a bit. The Context command moved to
comAssumption, as it is not so related to type classes. We were able to
remove a few hooks on the way.
Diffstat (limited to 'vernac/class.ml')
| -rw-r--r-- | vernac/class.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vernac/class.ml b/vernac/class.ml index eb01e82b83..f3a279eab1 100644 --- a/vernac/class.ml +++ b/vernac/class.ml @@ -232,7 +232,9 @@ let check_source = function | _ -> () let cache_coercion (_,c) = - Classops.declare_coercion c + let env = Global.env () in + let sigma = Evd.from_env env in + Classops.declare_coercion env sigma c let open_coercion i o = if Int.equal i 1 then |