diff options
| author | Maxime Dénès | 2017-04-15 12:15:13 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-15 12:15:13 +0200 |
| commit | 0147ae6ba6db24d4f9b29ff477d374a6abb103dd (patch) | |
| tree | b07f2d41760b7c138fc7b7b6a652320e5169e4f3 /vernac/command.ml | |
| parent | ed09fccb6405fb832cab867919cc4b0be32dea36 (diff) | |
| parent | 727ef1bd345f9ad9e08d9e4f136e2db7d034a93d (diff) | |
Merge branch 'v8.6' into trunk
Diffstat (limited to 'vernac/command.ml')
| -rw-r--r-- | vernac/command.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vernac/command.ml b/vernac/command.ml index 4a5a4312e3..5ec708446d 100644 --- a/vernac/command.ml +++ b/vernac/command.ml @@ -603,12 +603,13 @@ let interp_mutual_inductive (paramsl,indl) notations poly prv finite = lift_implicits (Context.Rel.nhyps ctx_params) impls) arities in let arities = List.map pi1 arities and aritypoly = List.map pi2 arities in let impls = compute_internalization_env env0 (Inductive params) indnames fullarities indimpls in + let implsforntn = compute_internalization_env env0 Variable indnames fullarities indimpls in let mldatas = List.map2 (mk_mltype_data evdref env_params params) arities indnames in let constructors = Metasyntax.with_syntax_protection (fun () -> (* Temporary declaration of notations and scopes *) - List.iter (Metasyntax.set_notation_for_interpretation impls) notations; + List.iter (Metasyntax.set_notation_for_interpretation implsforntn) notations; (* Interpret the constructor types *) List.map3 (interp_cstrs env_ar_params evdref impls) mldatas arities indl) () in |