diff options
| author | Gaëtan Gilbert | 2020-05-09 20:59:29 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-05-09 20:59:29 +0200 |
| commit | 34e2e7901ffb7fee1a51f890f1c4f5d77a21d48a (patch) | |
| tree | b2bbb53961b9ba7f3afd96a4f84f41d963ffad19 /vernac/comFixpoint.ml | |
| parent | 5681ea2535bbaef18e55d9bdc4270e12856de114 (diff) | |
| parent | 6675e7c54ae552df31a281098ba7f7d199372aec (diff) | |
Merge PR #12241: [declare] Merge DeclareDef into Declare
Reviewed-by: Matafou
Reviewed-by: SkySkimmer
Diffstat (limited to 'vernac/comFixpoint.ml')
| -rw-r--r-- | vernac/comFixpoint.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/comFixpoint.ml b/vernac/comFixpoint.ml index d3c1d2e767..80ca85e9a6 100644 --- a/vernac/comFixpoint.ml +++ b/vernac/comFixpoint.ml @@ -257,7 +257,7 @@ let build_recthms ~indexes fixnames fixtypes fiximps = in let thms = List.map3 (fun name typ (ctx,impargs,_) -> - { DeclareDef.Recthm.name + { Declare.Recthm.name ; typ ; args = List.map Context.Rel.Declaration.get_name ctx ; impargs}) @@ -284,7 +284,7 @@ let declare_fixpoint_generic ?indexes ~scope ~poly ((fixnames,fixrs,fixdefs,fixt let rec_declaration = prepare_recursive_declaration fixnames fixrs fixtypes fixdefs in let fix_kind = Decls.IsDefinition fix_kind in let _ : GlobRef.t list = - DeclareDef.declare_mutually_recursive ~scope ~opaque:false ~kind:fix_kind ~poly ~uctx + Declare.declare_mutually_recursive ~scope ~opaque:false ~kind:fix_kind ~poly ~uctx ~possible_indexes:indexes ~restrict_ucontext:true ~udecl ~ntns ~rec_declaration fixitems in |