diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-10-20 11:05:25 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-10-20 11:05:25 +0200 |
commit | 7e5a0e348e9686b7d75285f1ae71406a82a19170 (patch) | |
tree | 2e54113fbfeb2c70860e78e5f3e503f41bc7c804 /vernac/obligations.ml | |
parent | 8492fa8d2aa0e77b7c571956ee21097977b1df15 (diff) | |
parent | 26f216653aed171a70513d3f5ece059ab30bcd73 (diff) |
Merge PR #1120: Fixing BZ#5762 (supporting implicit arguments in "where" clause of an inductive definitions
Diffstat (limited to 'vernac/obligations.ml')
-rw-r--r-- | vernac/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/obligations.ml b/vernac/obligations.ml index 81218308f..785c842ba 100644 --- a/vernac/obligations.ml +++ b/vernac/obligations.ml @@ -556,7 +556,7 @@ let declare_mutual_definition l = let kns = List.map4 (DeclareDef.declare_fix ~opaque (local, poly, kind) [] ctx) fixnames fixdecls fixtypes fiximps in (* Declare notations *) - List.iter Metasyntax.add_notation_interpretation first.prg_notations; + List.iter (Metasyntax.add_notation_interpretation (Global.env())) first.prg_notations; Declare.recursive_message (fixkind != IsCoFixpoint) indexes fixnames; let gr = List.hd kns in let kn = match gr with ConstRef kn -> kn | _ -> assert false in |